IDimAttributeProbe.Probe

Копировать пример

Class UserForm: Form
    Memo1: Memo;
    EditBox1: EditBox;
    uidimCountries: UiDimension;
    dcCountries: DimensionCombo;
    uidimIndicator: UiDimension;
    dcIndicator: DimensionCombo;
    Label1: Label;
    Label2: Label;
    EditBox2: EditBox;
    Label3: Label;
    Button1: Button;
    Mb: IMetabase;
    Cat: IRubricator;
    Inst: IRubricatorInstance;
    pAttrs : IMetaAttributes;

    Sub UserFormOnShow(Sender: Object; Args: IEventArgs);
    Begin
        Mb := MetabaseClass.Active;
        Cat := Mb.ItemById(EditBox1.Text).Bind As IRubricator; // EditBox1.Text содержит идентификатор базы данных временных рядов
        Inst := (Cat As IMetabaseObject).Open(Null) As IRubricatorInstance;
        pAttrs := Inst.Facts.Dictionary.Attributes;
        uidimCountries.Object := pAttrs.FindById("COUNTRY").ValuesObject;
        uidimIndicator.Object := pAttrs.FindById("INDICATOR").ValuesObject;
    End Sub UserFormOnShow; 

    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    selections : IDimSelectionSet;
    factory : IDimSelectionSetFactory;
    FactLookup : IRubricatorFactsLookup;
    MetaLookup : IMetaDictionaryLookup;
    Criteria : IDimTextCriteria;
    ObjProbe : MyProbe;
Begin
    factory := New DimSelectionSetFactory.Create;
    selections := factory.CreateDimSelectionSet;
    selections.Add(dcCountries.Dimension.DimInstance);
    selections.Add(dcIndicator.Dimension.DimInstance);
    dcCountries.Selection.CopyTo(selections.Item(0), True);
    dcIndicator.Selection.CopyTo(selections.Item(1), True);
    FactLookup := Inst.CreateFactsLookup;
    MetaLookup := FactLookup.Lookup;
    Criteria := New DimTextCriteria.Create;
    Criteria.SelectOptions := ConditionSelectOptions.SelectedOnly;
    Criteria.CriteriaOptions := TextCriteriaOptions.SearchProbeAttributes Or TextCriteriaOptions.FreeText;
    Criteria.Text := EditBox2.Text;
    ObjProbe := New MyProbe.Create;
    Criteria.Probe := ObjProbe;
    selections := FactLookup.SetTextCriteria(Criteria, selections);
    selections.Item(0).CopyTo(dcCountries.Selection, True);
    selections.Item(1).CopyTo(dcIndicator.Selection, True);
End Sub Button1OnClick; 

End Class UserForm;


Public Class MyProbe : Object, IDimAttributeProbe
    Public Function Probe(Dimension : IDimensionModel; Attribute : IDimAttribute) : Boolean;
    Begin
    Return (Attribute.Name = "SpecialName");
    End Function Probe;
End Class MyProbe;