IMetabaseUpdateContext.RegisterIdChange

Синтаксис Fore

RegisterIdChange(ClassId: Integer; OldId: String; NewId: String; newObject: IMetabaseObject);

Синтаксис Fore.NET

RegisterIdChange(ClassId: integer; OldId: string; NewId: string; newObject: Prognoz.Platform.Interop.Metabase.IMetabaseObject);

Параметры

ClassId. Идентификатор класса объекта репозитория-приемника, на который ссылается объект обновления.

OldId. Идентификатор объекта репозитория-источника, на который ссылается объект до обновления.

NewId. Идентификатор объекта репозитория-приемника, на который ссылается объект после обновления.

newObject. Объект репозитория-приемника, на который ссылается объект после обновления.

Описание

Метод RegisterIdChange переопределяет идентификатор объекта, на который ссылается объект обновления.

Если в качестве параметров NewId или newObject указать несуществующий идентификатор или объект, то обновление объекта репозитория произойдет без перенастройки ссылок.

В качестве значения параметра ClassId указывается одно из допустимых значений перечисления MetabaseObjectClass.

Пример Fore

Для выполнения примера предполагается наличие файла обновления «C:\Update.pefx» и наличие в репозитории объекта с идентификатором "BD2". Должна быть добавлена ссылка на системную сборку Metabase.

Sub UserProc;
Var
    MB: IMetabase;
    Update: IMetabaseUpdate;
    UpdateCxt: IMetabaseUpdateContext;
    NewObject: IMetabaseObject;
Begin
    MB := MetabaseClass.Active;
    Update := MB.CreateUpdate;
    Update.LoadFromFileNF("C:\Update.pefx");
    UpdateCxt := Update.CreateUpdateContext;
    NewObject := Mb.ItemById("BD2").Bind As IMetabaseObject;
    UpdateCxt.RegisterIdChange(NewObject.ClassId, "BD1", "BD2", NewObject);
    Update.ApplyEx(Null, UpdateCxt);
End Sub UserProc;

После выполнения примера будет произведено обновление объектов репозитория-приемника, загруженное из файла «C:\Update.pefx». Произойдет переопределение ссылки обновляемого объекта на объект репозитория-приемника с идентификатором "BD2".

Пример Fore.NET

Для выполнения примера предполагается наличие файла обновления «C:\Update.pefx» и наличие в репозитории объекта с идентификатором "BD2". Указанная процедура является точкой входа для .NET-сборки.

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Update: IMetabaseUpdate;
    UpdateCxt: IMetabaseUpdateContext;
    NewObject: IMetabaseObject;
Begin
    MB := Params.Metabase;
    Update := MB.CreateUpdate();
    Update.LoadFromFileNF("C:\Update.pefx", UpdateLoadMode.ulmReplace);
    NewObject := MB.ItemById["BD2"].Bind() As IMetabaseObject;
    UpdateCxt := Update.CreateUpdateContext();
    UpdateCxt.RegisterIdChange(NewObject.ClassId, "BD1", "BD2", NewObject);
    Update.ApplyEx(Null, UpdateCxt);
End Sub;

См. также:

IMetabaseUpdateContext