IDimAdditionalHierarchies.Add

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

Sub UserProc;
Var
    MB: IMetabase;
    Express: IEaxAnalyzer;
    Slice: IEaxDataAreaSlice;
    OriginDim: IDimensionModel;
    Hiers: IDimHierarchies;
    Hier: IDimHierarchy;
    Sel, Sel_: IDimSelection;
    AdditHiers, AdditHiers_: IDimAdditionalHierarchies;
    HierInst: IDimHierarchyInstance;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    //Получение структуры основного справочника
    OriginDim := MB.ItemByIdNamespace("DIC_RF", MB.ItemById("RDS").Key).Edit As IDimensionModel;
    // Получим иерархию справочника
    Hiers := OriginDim.Hierarchies;
    Hier := Hiers.Item(0);
    // Получим экспресс-отчет
    Express := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Получим среза данных
    Slice := Express.DataArea.Slices.Item(0);
    // Добавим альтернативные иерархии в измерение
    Sel := Slice.Selection.FindById("DIC_RFD");
    AdditHiers := Sel.AdditionalHierarchies;
    HierInst := AdditHiers.Add(Hier);
    Sel_ := Slice.Selection.FindById("DIC_RFDR");
    AdditHiers_ := Sel.AdditionalHierarchies;
    AdditHiers.CopyFrom(AdditHiers_);
    // Обновим отчет и сохраним изменения
    Express.RefreshAll;
    (Express As IMetabaseObject).Save;
End Sub UserProc;