IMetabase.Classes

Classes: IDbClasses;

Classes: Prognoz.Platform.Interop.Metabase.IDbClasses;

Sub UserProc;
Var
    Mb: IMetabase;
    i: Integer;
    Classes: IDbClasses;
    classDb: IDbClass;
Begin
    Mb := MetabaseClass.Active;
    Classes := Mb.Classes;
    For i := 0 To Classes.Count - 1 Do
        classDb := Classes.Item(i);
        Debug.WriteLine("Класс :" + classDb.Id);
        Debug.WriteLine(" Наименование :" + classDb.Name);
        Debug.WriteLine(" Ключ :" + classDb.Key.ToString);
    End For;
    Debug.WriteLine(mb.Classes.Count);
End Sub UserProc;

Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    i: Integer;
    Classes: IDbClasses;
    classDb: IDbClass;
Begin
    Mb := Params.Metabase;
    Classes := Mb.Classes;
    For i := 0 To Classes.Count - 1 Do
        classDb := Classes.Item[i];
        System.Diagnostics.Debug.WriteLine("Класс :" + classDb.Id);
        System.Diagnostics.Debug.WriteLine(" Наименование :" + classDb.Name);
        System.Diagnostics.Debug.WriteLine(" Ключ :" + classDb.Key.ToString());
    End For;
    System.Diagnostics.Debug.WriteLine(mb.Classes.Count);
    End Sub;
End Class;