Нашли ошибку? Выделите
текст с ошибкой и нажмите кнопку "Сообщить об ошибке"
или CTRL+ENTER.
Справочная
система на версию 10.6
от 08/10/2024,
© ООО «ФОРСАЙТ»,
IsContainer: Boolean;
Свойство IsContainer определяет разрешение на добавление дочерних объектов для пользовательского класса.
Допустимые значения:
True. Пользовательский класс является объектом-контейнером, внутри которого можно создавать любые объекты репозитория. Также внутри такого объекта действует собственное пространство идентификаторов;
False. Пользовательский класс не является объектом-контейнером.
Для выполнения примера добавьте ссылку на системную сборку Metabase.
Sub UserProc;
Var
Mb: IMetabase;
ClassNew: IMetabaseCustomClass;
CustomClass: IMetabaseCustomExtender;
Type: MetabaseSpecialObject;
Begin
Mb := Metabaseclass.Active;
Type := MetabaseSpecialObject.CustomExtender;
CustomClass := Mb.SpecialObject(Type).Edit As IMetabaseCustomExtender;
ClassNew := CustomClass.Classes.Add;
ClassNew.Name := "Container";
ClassNew.Description := "Класс-контейнер";
ClassNew.Data := "Пользовательский текст произвольного формата";
ClassNew.IsContainer := True;
(CustomClass As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера будет создан пользовательский класс «Container» с разрешением на добавление дочерних объектов.
См. также: