IAuditOperations.Position

Position: Integer;

Position: integer;

Sub UserProc;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    AL: IAuditLog;
    ALogon: IAuditLogons;
    OperatTree: IAuditOperations;
    Lic: Object;
Begin
    MB := MetabaseClass.Active;
    // Получим лицензию для возможности работы с менеджером безопасности
    Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
    MS := MB.Security;
    // Откроем протокол доступа
    Al := MS.OpenAuditLog;
    ALogon := AL.OpenLogons(False);
    OperatTree := Al.OpenOperationTree(ALogon.Session, 0);
    // Выведем в консоль описание операции, выполненной над объектом
    While Not OperatTree.Eof Do
        Debug.WriteLine(OperatTree.ObjectId + " " + OperatTree.Name);
        Debug.Indent;
            Debug.WriteLine("Номер сессии: " + OperatTree.Session.ToString);
            Debug.WriteLine("Наименование объекта: " + OperatTree.ObjectName);
            Debug.WriteLine("Класс объекта: " + OperatTree.ObjectClass.ToString);
            Debug.WriteLine("Ключ объекта: " + OperatTree.ObjectKey.ToString);
            Debug.WriteLine("Номер операции: " + OperatTree.Operation.ToString);
            Debug.WriteLine("Примечание к операции: " + OperatTree.Comment);
            Debug.WriteLine("Маска операции: " + OperatTree.Mask.ToString);
            Debug.WriteLine("Номер операции относительно операции, связанной с зависимым объектом: " + OperatTree.Position.ToString);
            Debug.WriteLine("Уровень вложенности: " + OperatTree.Level.ToString);
        Debug.Unindent;
        OperatTree.Next;
    End While;
    OperatTree.Close;
    // Освободим лицензию
    Lic := Null;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    AL: IAuditLog;
    ALogon: IAuditLogons;
    OperatTree: IAuditOperations;
    Lic: Object;
Begin
    MB := Params.Metabase;
    // Получим лицензию для возможности работы с менеджером безопасности
    Lic := MB.RequestLicense(UiLicenseFeatureType.lftAdm);
    MS := MB.Security;
    // Откроем протокол доступа
    Al := MS.OpenAuditLog();
    ALogon := AL.OpenLogons(False);
    OperatTree := Al.OpenOperationTree(ALogon.Session, 0);
    // Выведем в консоль описание операции, выполненной над объектом
    While Not OperatTree.Eof() Do
        System.Diagnostics.Debug.WriteLine(OperatTree.ObjectId + " " + OperatTree.Name);
        System.Diagnostics.Debug.Indent();
            System.Diagnostics.Debug.WriteLine("Номер сессии: " + OperatTree.Session.ToString());
            System.Diagnostics.Debug.WriteLine("Наименование объекта: " + OperatTree.ObjectName);
            System.Diagnostics.Debug.WriteLine("Класс объекта: " + OperatTree.ObjectClass.ToString());
            System.Diagnostics.Debug.WriteLine("Ключ объекта: " + OperatTree.ObjectKey.ToString());
            System.Diagnostics.Debug.WriteLine("Номер операции: " + OperatTree.Operation.ToString());
            System.Diagnostics.Debug.WriteLine("Примечание к операции: " + OperatTree.Comment);
            System.Diagnostics.Debug.WriteLine("Маска операции: " + OperatTree.Mask.ToString());
            System.Diagnostics.Debug.WriteLine("Номер операции относительно операции, связанной с зависимым объектом: " + OperatTree.Position.ToString());
            System.Diagnostics.Debug.WriteLine("Уровень вложенности: " + OperatTree.Level.ToString());
        System.Diagnostics.Debug.Unindent();
        OperatTree.Next();
    End While;
    OperatTree.Close();
    // Освободим лицензию
    Lic := Null;
End Sub;