IMetabaseObjectDescriptor.Attributes

Attributes: IABACAttributeInstances;

Attributes: Prognoz.Platform.Interop.ABAC.IABACAttributeInstances;

Sub UserProc;
Var
    MB: IMetabase;
    MDesc: IMetabaseObjectDescriptor;
    Attr: IABACAttributeInstances;
    MDescr: IMetabaseObjectDescriptors;
    i, Count: Integer;
Begin
    MB := MetabaseClass.Active;
    MDesc := Mb.ItemById("OBJ_ATTR");
    Attr := MDesc.Attributes;
    Count := Attr.Count;
    For i := 0 To Count-1 Do
        Debug.WriteLine(Attr.Item(i).Name(MB.CurrentLocale));
    End For;
End Sub UserProc;

Imports Prognoz.Platform.Interop.ABAC;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MDesc: IMetabaseObjectDescriptor;
    Attr: IABACAttributeInstances;
    MDescr: IMetabaseObjectDescriptors;
    i, Count: Integer;
Begin
    MB := Params.Metabase;
    MDesc := Mb.ItemById["D_ATTR"];
    Attr := MDesc.Attributes;
    Count := Attr.Count;
    For i := 0 To Count-1 Do
        System.Diagnostics.Debug.WriteLine(Attr.Item[i].Name[MB.CurrentLocale]);
    End For;
End Sub;