IMetabaseUpdate.RootFolder

Синтаксис

RootFolder: IMetabaseUpdateFolderNode;

Описание

Свойство RootFolder возвращает объект содержащий структуру обновления.

Пример

Для выполнения примера предполагается наличие в репозитории таблиц с идентификаторами "Table_1" и "Table_2" и форм с идентификаторами "Form_1" и "Form_2".

Sub Main;

Var

MB: IMetabase;

Update: IMetabaseUpdate;

Root, Folder1, Folder2: IMetabaseUpdateFolderNode;

TableObj: IMetabaseUpdateDataObjectNode;

FormObj: IMetabaseUpdateObjectNode;

Begin

MB := MetabaseClass.Active;

Update := MB.CreateUpdate;

Root := Update.RootFolder;

//Создание папок

Folder1 := Root.Add(MetabaseUpdateNodeType.Folder) As IMetabaseUpdateFolderNode;

Folder1.Label := "Таблицы";

Folder2 := Root.Add(MetabaseUpdateNodeType.Folder) As IMetabaseUpdateFolderNode;

Folder2.Label := "Формы";

//Добавление таблиц

TableObj := Folder1.Add(MetabaseUpdateNodeType.DataObject) As IMetabaseUpdateDataObjectNode;

TableObj.Object := MB.ItemById("Table_1");

TableObj.Label := TableObj.Object.Name;

TableObj.Method := MetabaseUpdateMethod.All;

TableObj := Folder1.Add(MetabaseUpdateNodeType.DataObject) As IMetabaseUpdateDataObjectNode;

TableObj.Object := MB.ItemById("Table_2");

TableObj.Label := TableObj.Object.Name;

TableObj.Method := MetabaseUpdateMethod.All;

//Добавление форм

FormObj := Folder2.Add(MetabaseUpdateNodeType.Object) As IMetabaseUpdateObjectNode;

FormObj.Object := MB.ItemById("Form_1");

FormObj.Label := FormObj.Object.Name;

FormObj := Folder2.Add(MetabaseUpdateNodeType.Object) As IMetabaseUpdateObjectNode;

FormObj.Object := MB.ItemById("Form_2");

FormObj.Label := FormObj.Object.Name;

Update.SaveToFileNF("c:\Object.pefx");

End Sub Main;

После выполнения примера будет создано новое обновление. В обновление будут включены две таблицы и две формы. Для упорядочивания объектов в структуре обновления будут созданы две папки.

См. также:

IMetabaseUpdate