IMetabaseObjectDescriptor.GetChangesHistoryLog

Синтаксис

GetChangesHistoryLog([Start: DateTime = 0;] [End_: DateTime = 0]): IChangesHistoryAuditLog;

Параметры

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

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

Описание

Метод GetChangesHistoryLog возвращает журнал изменения объекта репозитория за указанный промежуток времени.

Комментарии

Для выполнения метода пользователь должен обладать привилегией «Просмотр протокола доступа».

Пример

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

Добавьте ссылки на системные сборки: Dal, Metabase.

Sub UserProc;
Var
    Mb: IMetabase;
    MDesc: IMetabaseObjectDescriptor;
    DateStart, DateEnd: DateTime;
    History: IChangesHistoryAuditLog;
Begin
    Mb := MetabaseClass.Active;
    MDesc := Mb.ItemById("REPORT");
    Debug.WriteLine("Объект: " + MDesc.Name + '(' + MDesc.Id + ')');
    Debug.Indent;
    DateEnd := DateTime.Now;
    DateStart := DateTime.AddDays(DateEnd, -2);
    // Откроем протокол доступа
    History := MDesc.GetChangesHistoryLog(DateStart, DateEnd);
    While Not History.Eof Do
        Debug.WriteLine("Операция - " + History.Name + ". " +
            DateTime.FromDouble(History.Stamp).ToString + '|' +
            History.Station + '|' +
            History.UserIP + '|' + History.UserName + '|' + History.UserOS);
        History.Next;
    End While;
    Debug.Unindent;
End Sub UserProc;

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

См. также:

IMetabaseObjectDescriptor

Дефект 353945