IMetabaseClassSecurityDescriptor.ClassId

ClassId: MetabaseObjectClass;

ClassId: Prognoz.Platform.Interop.Metabase.MetabaseObjectClass;

Sub UserProc;
Var
    MB: IMetabase;
    SecDescrs: IMetabaseClassesSecurityDescriptors;
    MS: IMetabaseSecurity;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    MS := MB.Security;
    // Получим список типов объектов с правами
    SecDescrs := MS.MetabaseClassesSecurityDescriptors;
    For i := 0 To SecDescrs.Count - 1 Do
        Debug.WriteLine(SecDescrs.Item(i).ClassId);
    End For;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    SecDescrs: IMetabaseClassesSecurityDescriptors;
    MS: IMetabaseSecurity;
    i: Integer;
Begin
    MB := Params.Metabase;
    MS := MB.Security;
    // Получим список типов объектов с правами
    SecDescrs := MS.MetabaseClassesSecurityDescriptors;
    For i := 0 To SecDescrs.Count - 1 Do
        System.Diagnostics.Debug.WriteLine(SecDescrs.Item[i].ClassId);
    End For;
End Sub;