IObjectCheckOutInfoUser.MachineName

Синтаксис

MachineName: String;

Описание

Свойство MachineName возвращает наименование рабочей станции, с который был заблокирован объект.

Пример

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

Sub UserProc;

Var

MB: IMetabase;

MDesc: IMetabaseObjectDescriptor;

Info: IObjectCheckOutInfo;

UserInfo: IObjectCheckOutInfoUser;

Begin

MB := MetabaseClass.Active;

MDesc := MB.ItemById("Obj_1");

Info := MDesc.GetCheckOutInfo;

For Each UserInfo In Info Do

Debug.Write("Пользователь: " + UserInfo.UserName);

Debug.Write("; Станция: " + UserInfo.MachineName);

Debug.Write("; Дата и время блокировки: " + UserInfo.Stamp.ToString);

Debug.WriteLine("; Комментарий: " + UserInfo.Comment);

End For;

End Sub UserProc;

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

См. также:

IObjectCheckOutInfoUser