IMetabaseObjectDescriptor.GetChangesHistory

Синтаксис Fore

GetChangesHistory(Start: DateTime; End_: DateTime): IAuditOperations;

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

GetChangesHistory(Start: DateTime; @End: DateTime): Prognoz.Platform.Interop.Metabase.IAuditOperations;

Параметры

Start. Начальная дата;

End. Конечная дата.

Описание

Метод GetChangesHistory возвращает коллекцию записей протокола доступа, которые содержат информацию о действиях, произведенных над объектами в заданном промежутке времени.

Пример Fore

Для выполнения примера предполагается наличие в репозитории объекта с идентификатором «Obj_1».

Sub UserProc;
Var
    MB: IMetabase;
    MDesc: IMetabaseObjectDescriptor;
    Operations: IAuditOperations;
    Start, End_: DateTime;
Begin
    MB := MetabaseClass.Active;
    MDesc := MB.ItemById("Obj_1");
    End_ := DateTime.Now;
    Start := DateTime.AddDays(End_, -10);
    Operations := MDesc.GetChangesHistory(Start, End_);
    While Not Operations.Eof Do
        Debug.WriteLine(Operations.Name + " " + Operations.Logon.UserName);
        Operations.Next;
    End While;
End Sub UserProc;

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

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Metabase;

…

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MDesc: IMetabaseObjectDescriptor;
    Operations: IAuditOperations;
    Start, @End: DateTime;
Begin
    MB := Params.Metabase;
    MDesc := MB.ItemById["Obj_1"];
    @End := DateTime.Now;
    Start := @End.AddDays(-10);
    Operations := MDesc.GetChangesHistory(Start, @End);
    While Not Operations.Eof() Do
        System.Diagnostics.Debug.WriteLine(Operations.Name + " " + Operations.Logon.UserName);
        Operations.Next();
    End While;
End Sub;

См. также:

IMetabaseObjectDescriptor