IMetabaseObjectDescriptor.GetCheckOutInfo

Синтаксис

GetCheckOutInfo: IObjectCheckOutInfo;

GetCheckOutInfo(): Prognoz.Platform.Interop.Metabase.IObjectCheckOutInfo;

Описание

Метод GetCheckOutInfo возвращает информацию о блокировках объекта.

Пример

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

Добавьте ссылки на системные сборки: Metabase, Ui.

Sub UserProc;
Var
    MB: IMetabase;
    MDesc: IMetabaseObjectDescriptor;
    Info: IObjectCheckOutInfo;
    UserInfo: IObjectCheckOutInfoUser;
Begin
    MB := MetabaseClass.Active;
    MDesc := MB.ItemById("Report_11");
    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;
Imports Prognoz.Platform.Interop.Ui;
 
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MDesc: IMetabaseObjectDescriptor;
    Info: IObjectCheckOutInfo;
    UserInfo: IObjectCheckOutInfoUser;
Begin
    MB := Params.Metabase;
    MDesc := MB.ItemById["Report_11"];
    Info := MDesc.GetCheckOutInfo();
    For Each UserInfo In Info Do
        System.Diagnostics.Debug.Write("Пользователь: " + UserInfo.UserName);
        System.Diagnostics.Debug.Write("; Станция: " + UserInfo.MachineName);
        System.Diagnostics.Debug.Write("; Дата и время блокировки: " + UserInfo.Stamp.ToString());
        System.Diagnostics.Debug.WriteLine("; Комментарий: " + UserInfo.Comment);
    End For;
End Sub;

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

См. также:

IMetabaseObjectDescriptor