GetPendingCheckins: IMetabaseObjectDescriptors;
Метод GetPendingCheckins возвращает описание всех объектов репозитория, которые захвачены для редактирования.
Для выполнения примера добавьте ссылку на системную сборку Metabase.
Sub UserProc;
Var
MB: IMetabase;
PCheck: IMetabaseObjectDescriptors;
Count: Integer;
Begin
MB := MetabaseClass.Active;
PCheck := MB.GetPendingCheckins;
Count := PCheck.Count;
End Sub UserProc;
После выполнения примера в переменной «Count» будет содержаться количество захваченных для редактирования объектов репозитория.
См. также: