GetHistory: IMetabaseObjectHistory;
Метод GetHistory возвращает историю изменения объекта.
Для ведения истории необходимо включить данную функцию для конкретного типа объектов в аудите менеджера безопасности, либо для конкретного объекта включить аудит для определенного пользователя в навигаторе менеджера безопасности.
Для выполнения примера предполагается наличие в репозитории объекта с идентификатором "ObjTest".
Sub Main;
Var
MB: IMetabase;
Desc: IMetabaseObjectDescriptor;
Histor: IMetabaseObjectHistory;
Item: IMetabaseObjectHistoryItem;
i: Integer;
Begin
MB := MetabaseClass.Active;
Desc := Mb.ItemById("ObjTest");
Histor := Desc.GetHistory;
For i := 0 To Histor.Count - 1 Do
Item := Histor.Item(i);
Debug.WriteLine(Item.Id + " " + Item.Name + " " + ((Item.Stamp As Variant) As DateTime).ToString);
End For;
End Sub Main;
После выполнения примера в консоль среды разработки будет выведена информация об изменении объекта "ObjTest". Будут выведены идентификаторы, наименования и дата и время изменения объектов.
См. также: