IMetaAttributeNamings.GetRecordMnemo

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

Sub UserProc;
Var
    Factors: Array Of Integer;
    DicEdit: IMetaDictionary;
    Nams: IMetaAttributeNamings;
    Rubricator: IRubricator;
    Mb: IMetabase;
    Di: integer;
    s: String;
    Loo: IRubricatorFactsLookup;
    Inst: IRubricatorInstance;
    RubFD: IRubricatorFactData;
    k: Integer;
Begin
    Mb := MetabaseClass.Active;
    Rubricator := Mb.ItemById("FC_MN").Edit As IRubricator;
    DicEdit := Rubricator.EditFacts;
    Inst := ((Rubricator As IMetabaseObject).Open(Null)) As IRubricatorInstance;
    Loo := Inst.CreateFactsLookup;
    Nams := DicEdit.AttributeMnemoNamings;
    Factors := Loo.LookupFactors;
    For Di := 0 To Factors.Length - 1 Do
        k := Factors[Di];
        RubFD := Inst.GetFactData(k);
        s := Nams.GetRecordMnemo(RubFD.Record, Null);
        Debug.WriteLine(s);
    End For;
End Sub UserProc;