IAuditLog.OpenOperations

Синтаксис Fore

OpenOperations(Session: Integer): IAuditOperations;

Синтаксис Fore.NET

OpenOperations(Session: uinteger): Prognoz.Platform.Interop.Metabase.IAuditOperations;

Параметры

Session - номер сессии.

Описание

Метод OpenOperations возвращает список операций, произведенных в репозитории, представленный в линейном виде.

Комментарии

Для получения информации о соединениях с репозиторием используйте свойство IAuditLog.OpenLogons.

Пример Fore

Для выполнения примера добавьте ссылку на системную сборку «Metabase».

Sub Main;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    AL: IAuditLog;
    ALogs: IAuditLogons;
    AOperat: IAuditOperations;
    s: Array[0..10] Of String;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    MS := MB.Security;
    AL := MS.OpenAuditLog;
    // информация о соединениях с репозиторием
    ALogs := AL.OpenLogons(False);
    // формирование списка операций
    AOperat := AL.OpenOperations(ALogs.Session);
    // вывод номера текущей сессии
    Debug.WriteLine("Сессия " + ALogs.Session.ToString + ": ");
    For i := 0 To 9 Do
        s[i] := AOperat.Name;
        Debug.WriteLine(s[i]);
        AOperat.Next;
    End For;
End Sub Main;

После выполнения примера в окно консоли будут выведены наименования десяти последних операций над объектами текущей сессии репозитория.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    AL: IAuditLog;
    ALogs: IAuditLogons;
    AOperat: IAuditOperations;
    s: Array[0..10] Of String;
    i: Integer;
Begin
    MB := Params.Metabase;
    MS := MB.Security;
    AL := MS.OpenAuditLog();
    // информация о соединениях с репозиторием
    ALogs := AL.OpenLogons(False);
    // формирование списка операций
    AOperat := AL.OpenOperations(ALogs.Session);
    // вывод номера текущей сессии
    System.Diagnostics.Debug.WriteLine("Сессия " + ALogs.Session.ToString() + ": ");
    For i := 0 To 9 Do
        s[i] := AOperat.Name;
        System.Diagnostics.Debug.WriteLine(s[i]);
        AOperat.Next();
    End For;
End Sub;

См. также:

IAuditLog