IRubricatorFactData.GenerateMnemo

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

Sub UserProc;
Var
    MB: IMetabase;
    RubDesc: IMetabaseObjectDescriptor;
    RubrIn: IRubricatorInstance;
    Loo: IRubricatorFactsLookup;
    i: Integer;
    Factors: Array Of Integer;
    FactD: IRubricatorFactData;
Begin
    MB := MetabaseClass.Active;
    RubDesc := MB.ItemById("FC_MN");
    RubrIn := RubDesc.Open(Null) As IRubricatorInstance;
    Loo := RubrIn.CreateFactsLookup;
    Factors := Loo.LookupFactors;
    For i := 0 To Factors.Length - 1 Do
        FactD := RubrIn.GetFactData(Factors[i]);
        Debug.WriteLine(FactD.GenerateMnemo);
    End For;
End Sub UserProc;