IMetabaseObjectDescriptor.GetHistory

Синтаксис

GetHistory: IMetabaseObjectHistory;

GetHistory(): Prognoz.Platform.Interop.Metabase.IMetabaseObjectHistory;

Описание

Метод GetHistory возвращает историю изменения объекта.

Комментарии

Для ведения истории необходимо включить данную функцию для конкретного типа объектов в аудите менеджера безопасности, либо для конкретного объекта включить аудит для определенного пользователя в навигаторе менеджера безопасности.

Пример

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

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

Sub UserProc;
Var
    MB: IMetabase;
    Desc: IMetabaseObjectDescriptor;
    Histor: IMetabaseObjectHistory;
    Item: IMetabaseObjectHistoryItem;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    Desc := Mb.ItemById("OBJ9253");
    Histor := Desc.GetHistory;
    For i := 0 To Histor.Count - 1 Do
        Item := Histor.Item(i);
        Debug.WriteLine(Item.Id + " " + Item.Name + " " + DateTime.FromDouble(Item.Stamp).ToString);
    End For;
End Sub UserProc;
Imports Prognoz.Platform.Interop.Ui;
 
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Desc: IMetabaseObjectDescriptor;
    Histor: IMetabaseObjectHistory;
    Item: IMetabaseObjectHistoryItem;
    i: Integer;
Begin
    MB := Params.Metabase;
    Desc := Mb.ItemById["OBJ9253"];
    Histor := Desc.GetHistory();
    For i := 0 To Histor.Count - 1 Do
        Item := Histor.Item[i];
        System.Diagnostics.Debug.WriteLine(Item.Id + " " + Item.Name + " " + DateTime.FromOADate(Item.Stamp).ToString());
    End For;
End Sub;

После выполнения примера в консоль среды разработки будет выведена информация об изменении объекта «OBJ9253». Будут выведены идентификаторы, наименования и дата и время изменения объектов.

См. также:

IMetabaseObjectDescriptor