IMetabaseCustomClass.IsContainer

IsContainer: Boolean;

IsContainer: System.Boolean;

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;

Imports Prognoz.Platform.Interop.Metabase;
…
Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    ClassNew: IMetabaseCustomClass;
    CustomClass: IMetabaseCustomExtender;
    Type: MetabaseSpecialObject;
Begin
    Mb := Params.Metabase;
    Type := MetabaseSpecialObject.msoCustomExtender;
    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;