WriteUpdate(Update: IMetabaseUpdate; Mode: UpdateLoadMode);
Update. Обновление, которое будет сохранено;
Mode. Режим добавления объектов в обновление.
Метод WriteUpdate сохраняет обновление как объект репозитория.
Для выполнения примера в репозитории предполагается наличие обновления с идентификатором ObjPefx, таблицы с идентификатором Table и модуля с идентификатором Module.
Добавьте ссылку на системную сборку Metabase.
Sub UserProc;
Var
MB: IMetabase;
Update: IMetabaseUpdate;
Root: IMetabaseUpdateFolderNode;
TableObj: IMetabaseUpdateDataObjectNode;
Obj: IMetabaseUpdateObjectNode;
UpdateObj: IMetabaseUpdateObject;
Begin
MB := MetabaseClass.Active;
Update := MB.CreateUpdate;
Root := Update.RootFolder;
TableObj := Root.Add(MetabaseUpdateNodeType.Object) As IMetabaseUpdateDataObjectNode;
TableObj.Object := MB.ItemById("Table");
TableObj.Method := MetabaseUpdateMethod.All;
TableObj.Label := TableObj.Object.Name;
Obj := Root.Add(MetabaseUpdateNodeType.Object) As IMetabaseUpdateObjectNode;
Obj.Object := MB.ItemById("Module");
UpdateObj := MB.ItemById("ObjPefx").Bind As IMetabaseUpdateObject;
UpdateObj.WriteUpdate(Update, UpdateLoadMode.InsertUpdate);
End Sub UserProc;
При выполнении примера в обновление, расположенное в репозитории, будут добавлены таблица и модуль. Если данные объекты уже содержались в обновлении, то они будут заменены.
См. также: