IMetabaseObjectHistoryItem.Station

Syntax

Station: String;

Description

The Station property returns a name of the workstation, on which the object was changed.

Example

Executing the example requires that the repository contains an object with the ObjTest identifier.

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;

After executing the example information about the ObjTest object changing is displayed in the development environment console. PC name, repository user name, and date and time of objects changing are displayed.