IMetaDictionaryLookup.WhereFactorMnemo

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

Sub UserProc;
Var
    MB: IMetabase;
    RubDesc: IMetabaseObjectDescriptor;
    RubrIn: IRubricatorInstance;
    DictInst: IMetaDictionaryInstance;
    MetaDLookup: IMetaDictionaryLookup;
    Atts: IMetaAttributes;
    Mnemo: String;
    i: Integer;
    Res: Array Of Integer;
Begin
    MB := MetabaseClass.Active;
    RubDesc := MB.ItemById("FC_MN");
    RubrIn := RubDesc.Open(Null) As IRubricatorInstance;
    DictInst := RubrIn.Facts;
    MetaDLookup := DictInst.CreateLookup;
    Atts := DictInst.Dictionary.Attributes;
    Mnemo := Atts.FindByKind(MetaAttributeKind.Mnemo).Id;
    MetaDLookup.WhereFactorMnemo := "Afghanistan|BCA|Годы";
    If MetaDLookup.LookupKeys("FACTOR") <> Null Then
        i := MetaDLookup.LookupKeys("FACTOR").Length;
        Res := New Integer[i];
        Res := MetaDLookup.LookupKeys("FACTOR");
        For i := 0 To Res.Length - 1 Do
            Debug.WriteLine(Res[i].ToString);
        End For;
    End If;
End Sub Userproc;