IMetabaseObjectHistoryItem.Station

Синтаксис

Station: String;

Описание

Свойство Station возвращает наименование рабочей станции, на которой осуществлялось изменение объекта.

Пример

Для выполнения примера предполагается наличие в репозитории объекта с идентификатором "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.Station + " " + Item.UserName + " " + ((Item.Stamp As Variant) As DateTime).ToString);

End For;

End Sub Main;

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

См. также:

IMetabaseObjectHistoryItem