IMetabaseUpdateContext.RegisterHierarchyChangeO

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Update: IMetabaseUpdate;
    Context: IMetabaseUpdateContext;
    sourceDim, targetDim: IMetabaseObject;
    sourceHieSrc, targetHieSrc: IMetabaseObject;
    sourceHierarchies, targetHierarchies: IDimHierarchies;
    sourceHierarchy, targetHierarchy: IDimHierarchy;
    TSDBKey: Integer;
    i: Integer;
    KeyMap: IMetabaseUpdateKeyMap;
    UpdObjRemap: IMetabaseUpdateObjectRemapping;
Begin
    // Получаем текущий репозиторий
    MB := MetabaseClass.Active;
    // Создаем обновление
    Update := Mb.CreateUpdate;
    // Загружаем параметры обновления из файла
    Update.LoadFromFileNF("C:\RegHieOChng.pefx", UpdateLoadMode.Replace);
    // Создаем дополнительные настройки обновления
    Context := Update.CreateUpdateContext;
    // Получаем справочники
    sourceDim := MB.ItemById("MDM_INDICATOR_S").Bind;
    targetDim := MB.ItemById("MDM_INDICATOR_D").Bind;
    // Получаем иерархии справочников
    sourceHierarchies := (sourceDim As IDimensionModel).Hierarchies;
    targetHierarchies := (targetDim As IDimensionModel).Hierarchies;
    // Получаем ключ базы данных временных рядов
    TSDBKey := MB.GetObjectKeyById("TSDB_PEF");
    context.RegisterKeyChangeO(TSDBKey, sourceDim.ClassId, sourceDim.Key, targetDim.Key,
                sourceDim.Id, targetDim.Id, targetDim);
    // Перебираем иерархии справочника-источника
    For i := 0 To sourceHierarchies.Count - 1 Do
        // Получаем текущую иерархию справочника-источника
        sourceHierarchy := sourceHierarchies.Item(i);
        // Ищем аналогичную иерархию в справочнике-приёмнике
        targetHierarchy := targetHierarchies.FindById(sourceHierarchy.Id);
        // Если такая иерархия найдена
        If (targetHierarchy <> Null) Then
            // Переопределяем альтернативную иерархию на которую ссылается справочник-источник.
            // Она будет ссылаться на альтернативную иерархию в справочнике-приёмнике
            context.RegisterHierarchyChangeO(TSDBKey, sourceDim.Key, sourceHierarchy.Key, sourceHierarchy.Id,
                targetHierarchy.Key, targetHierarchy.Id, targetDim);
            // Получаем справочник, используемый для альтернативной иерархии в справочнике-источнике
            sourceHieSrc := sourceHierarchy.Source As IMetabaseObject;
            // Получаем справочник, используемый для альтернативной иерархии в справочнике-приёмнике
            targetHieSrc := targetHierarchy.Source As IMetabaseObject;
            // Переопределяем справочник, используемый для построения альтернативной иерархии в справочнике-источнике.
            // Будет использоваться справочник для построения альтернативной иерархии в справочнике приёмнике
            context.RegisterKeyChangeO(TSDBKey, sourceHieSrc.ClassId, sourceHieSrc.Key, targetHieSrc.Key,
                sourceHieSrc.Id, targetHieSrc.Id, targetHieSrc);
            End If;
    End For;
    // Применяем обновление
    Update.ApplyEx(Null, Context);
    // Получаем карту ключей, используемых для повторного сопоставления объектов обновления
    KeyMap := Context.KeyMap;
    // Выполняем поиск параметров сопоставления для справочника, используемого для построения альтернативной иерархии
    UpdObjRemap := KeyMap.FindByOldId(MetabaseObjectClass.KE_CLASS_METADICTIONARYRDS, targetHieSrc.Id);
    // Проверяем, найдены ли параметры
    If UpdObjRemap <> Null Then
        // Выводим информацию о параметрах повторного сопоставления объекта
        Debug.WriteLine("Идентификатор нового объекта: " + UpdObjRemap.NewId);
        Debug.WriteLine("Идентификатор старого объекта: " + UpdObjRemap.OldId);
        Debug.WriteLine("Ключ нового объекта: " + UpdObjRemap.NewKey.ToString);
        Debug.WriteLine("Ключ старого объекта: " + UpdObjRemap.OldKey.ToString);
    End If;
End Sub UserProc;