IMetaDictionaryLookup.AppendKeysFilter

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

Sub UserProc;
Var
    MB: IMetabase;
    RubDesc: IMetabaseObjectDescriptor;
    RubrIn: IRubricatorInstance;
    DictInst: IMetaDictionaryInstance;
    MetaDLookup: IMetaDictionaryLookup;
    Dest: ICubeInstanceDestinations;
    DimSS: IDimSelectionSet;
    DimSet: IDimSelection;
Begin
    MB := MetabaseClass.Active;
    RubDesc := MB.ItemById("OBJ_FC");
    RubrIn := RubDesc.Open(Null) As IRubricatorInstance
    DictInst := RubrIn.GetDictionary(RubricatorDictionary.FactsValues);
    MetaDLookup := DictInst.CreateLookup("");
    Dest := (RubrIn As ICubeInstance).Destinations;
    DimSS := Dest.DefaultDestination.CreateDimSelectionSet;
    For Each DimSet In DimSS Do
        DimSet.SelectAll;
    End For;
    MetaDLookup.AppendKeysFilter(DimSS, OrmLogicalOperator.Or_);
End Sub Userproc;