ICubeMetaUpdateAttributeRemapping.AlternateHierarchyMappings

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

Sub UserProc;
Var
    mb: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    Obj: IMetabaseObject;
    ObjDesc: IMetabaseObjectDescriptor;
    RubUpdateEx: ICubeMetaUpdateEx;
    Rub: IRubricator;
    AttrRemapping: ICubeMetaUpdateAttributeRemappings;
    AttrR: ICubeMetaUpdateAttributeRemapping;
    Attr: IMetaAttribute;
    AlterHies: IDimHierarchies;
    AlterHie: IDimHierarchy;
    HieMappings: IAlternateHierarchyMappings;
    HieMap: IAlternateHierarchyMapping;
    Progress: IMetabaseUpdateProgress;
Begin
    // Получаем репозиторий
    mb := MetabaseClass.Active;
    // Создаем объект копирования
    CrInfo := Mb.CreateCreateInfo;
    CrInfo.ClassId := MetabaseObjectClass.KE_CLASS_CUBEMETAUPDATE;
    CrInfo.Id := Mb.GenerateId("Cube_Meta_Upd");
    CrInfo.Permanent := True;
    CrInfo.Parent := Mb.Root;
    ObjDesc := Mb.CreateObject(CrInfo);
    Obj := ObjDesc.Edit;
    // Задаем параметры объекта копирования
    RubUpdateEx := Obj As ICubeMetaUpdateEx;
    // Указываем базу данных временных рядов, являющуюся источником данных
    Rub := mb.ItemById("TSDB_SRC_HIE").Bind As IRubricator;
    RubUpdateEx.Rubricator := Rub;
    // Указываем репозиторий, в который будет скопирована база данных временных рядов
    RubUpdateEx.Metabase := Mb;
    // Указываем репозиторий НСИ для хранения данных базы данных временных рядов
    RubUpdateEx.RdsDatabase := Rub.Database;
    // Указываем базу данных временных рядов, являющуюся приёмником данных
    RubUpdateEx.TargetRubricator := mb.ItemById("TSDB_DEST_HIE").Bind As IRubricator;
    // Задаём соответствие атрибутов
    AttrRemapping := RubUpdateEx.MetafactsAttributeRemappings;
    // Задаём параметры соответствия атрибута «INDICATOR» в источнике и приёмнике
    AttrR := AttrRemapping.FindById("INDICATOR");
    // Задаём параметры соответствия альтернативных иерархий в источнике и приёмнике
    HieMappings := AttrR.AlternateHierarchyMappings;
    // Получаем все альтернативные иерархии, которые присутствуют в справочнике,
    // являющимся источником данных для атрибута «INDICATOR» в исходной базе данных временных рядов
    Attr := Rub.Facts.Attributes.FindById("INDICATOR");
    AlterHies := (Attr.ValuesObject.Bind As IDimensionModel).Hierarchies;
    // Получаем первую альтернативную иерархию
    AlterHie := AlterHies.Item(0);
    // Создаём соответствие между альтернативными иерархиями в источнике и приёмнике
    HieMap := HieMappings.Add(AlterHie.Key, AlterHie.Id);
    // Получаем все альтернативные иерархии, которые присутствуют в справочнике,
    // являющимся источником данных для атрибута «INDICATOR». Атрибут содержится в базе данных
    // временных рядов, являющейся приёмником данных.
    Rub := RubUpdateEx.TargetRubricator;
    Attr := Rub.Facts.Attributes.FindById("INDICATOR");
    AlterHies := (Attr.ValuesObject.Bind As IDimensionModel).Hierarchies;
    // Получаем вторую альтернативную иерархию
    AlterHie := AlterHies.Item(1);
    // Указываем, что первая альтернативная иерархия в исходной базе данных временных рядов
    // соответствует второй альтернативной иерархии в базе данных временных рядов, являющейся приёмником данных.
    HieMap.TargetId := AlterHie.Id;
    HieMap.TargetKey := AlterHie.Key;
    // Выводим параметры копируемой альтернативной иерархии в окно консоли
    Debug.WriteLine("Идентификатор копируемой альтернативной иерархии: " + HieMap.SourceId);
    Debug.WriteLine("Ключ копируемой альтернативной иерархии: " + HieMap.SourceKey.ToString);
    // Выполняем копирование
    RubUpdateEx.Apply(Progress);
    // Сохраняем изменения в объекте копирования
    Obj.Save;
End Sub UserProc;