IMetabase.CreateUpdate

Синтаксис

CreateUpdate: IMetabaseUpdate;

CreateUpdate(): Prognoz.Platform.Interop.Metabase.IMetabaseUpdate;

Описание

Метод CreateUpdate осуществляет создание объекта обновления.

Пример

Для выполнения примера предполагается наличие в репозитории сборки с идентификатором «Assembly_1». В данной сборке имеются какие-либо модули и формы.

Добавьте ссылки на системные сборки: ForeSystem, Metabase.

Sub UserProc;
Var
    Mb: IMetabase;
    MUpdate: IMetabaseUpdate;
    RootFolder: IMetabaseUpdateFolderNode;
    Node: IMetabaseUpdateObjectNode;
Begin
    Mb := MetabaseClass.Active;
    MUpdate := Mb.CreateUpdate;
    RootFolder := MUpdate.RootFolder;
    Node := RootFolder.Add(MetabaseUpdateNodeType.Object) As IMetabaseUpdateObjectNode;
    Node.UpdatePart := MetabaseObjectUpdatePart.DataMetadataSD;
    Node.UpdateType := MetabaseObjectUpdateType.Simple;
    Node.IncludeChildrenDependencies := TriState.OnOption;
    Node.Object := Mb.ItemById("Assembly_1").Bind;
    MUpdate.SaveToFileNF("C:\Update_1.pefx");
End Sub UserProc;

Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    MUpdate: IMetabaseUpdate;
    RootFolder: IMetabaseUpdateFolderNode;
    Node: IMetabaseUpdateObjectNode;
Begin
    Mb := Params.Metabase;
    MUpdate := Mb.CreateUpdate();
    RootFolder := MUpdate.RootFolder;
    Node := RootFolder.Add(MetabaseUpdateNodeType.untObject) As IMetabaseUpdateObjectNode;
    Node.UpdatePart := MetabaseObjectUpdatePart.moupDataMetadataSD;
    Node.UpdateType := MetabaseObjectUpdateType.moutSimple;
    Node.IncludeChildrenDependencies := TriState.tsOnOption;
    Node.Object := Mb.ItemById["Assembly_1"].Bind();
    MUpdate.SaveToFileNF("C:\Update_1.pefx");
End Sub;

После выполнения примера в корневом каталоге диска «С» будет создан новый файл обновления с наименованием «C:\Update_1.pefx». В данный файл будет включена сборка «Assembly_1» со всеми дочерними объектами.

См. также:

IMetabase