UserName: String;
The UserName property returns a name of the repository user that changed the object.
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.
See also: