IMetaDictionaryLookup.SetKeysFilterRaw

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

Sub UserProc;
Var
    MB: IMetabase;
    RubDesc: IMetabaseObjectDescriptor;
    RubrIn: IRubricatorInstance;
    DictInst: IMetaDictionaryInstance;
    MetaDLookup: IMetaDictionaryLookup;
    i: Integer;
    Sel: Array Of Variant;
    Att: Array Of String;
    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;
    Sel := New Variant[DimSS.Count];
    Att := New String[2];
    Att[0] := "DT";
    Att[1] := "UNIT";
    i := 0;
    For Each DimSet In DimSS Do
        DimSet.SelectAll;
        Sel[i] := DimSet;
        i := i + 1;
    End For;
    MetaDLookup.SetKeysFilterRaw(Att, Sel);
End Sub UserProc;