Permanent: Boolean;
Permanent: boolean;
Свойство Permanent определяет признак создания постоянного объекта.
Если свойству установлено значение True, то после выполнения метода IMetabase.CreateObject созданный объект сразу будет сохранен в репозитории. Для объекта будут выставлены базовые свойства. Для работоспособности объекта в дальнейшем необходимо будет отредактировать его структуру и выставить специфические свойства.
Если свойству установлено значение False, то после выполнения метода IMetabase.CreateObject будет создана заготовка с описанием объекта. Для того чтобы объект был доступен необходимо открыть его структуру на редактирование, изменить необходимые свойства и сохранить новый объект с помощью метода IMetabaseObject.Save.
По умолчанию свойству установлено значение False.
Добавьте ссылку на системную сборку Metabase.
Sub UserProc;
Var
MB: IMetabase;
CrInfo: IMetabaseObjectCreateInfo;
Begin
MB := MetabaseClass.Active;
CrInfo := MB.CreateCreateInfo;
CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_FOLDER;
CrInfo.Id := "NewFolder";
CrInfo.Name := "Новая папка";
CrInfo.Permanent := True;
MB.CreateObject(CrInfo);
End Sub UserProc;
Public Sub Main(Params: StartParams);
Var
MB: IMetabase;
CrInfo: IMetabaseObjectCreateInfo;
Begin
MB := Params.Metabase;
CrInfo := MB.CreateCreateInfo();
CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_FOLDER As Int32;
CrInfo.Id := "NewFolder";
CrInfo.Name := "Новая папка";
CrInfo.Permanent := True;
MB.CreateObject(CrInfo);
End Sub;
После выполнения примера в корневой папке репозитория будет создана новая папка.
См. также: