IMatrixAggregatorModelHierarchies.AddValue

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

Sub UserProc;
Var
    MB: IMetabase;
    Cub: IStandardCube;
    Hiers: IMatrixAggregatorModelHierarchies;
    Dim: IStandardCubeDimension;
    Dest: IStandardCubeDestination;
    HierKey: Integer;
    Model: IMatrixAggregatorModel;
    Man: IMatrixAggregatorManager;
    BasicAggr: IBasicMatrixAggregator;
Begin
    MB := MetabaseClass.Active;
    // Получим куб для редактирования
    Cub := MB.ItemById("CUBE").Edit As IStandardCube;
    // Получим первое измерение куба
    Dim := Cub.Dimensions.Item(1);    
    // Получим параметры варианта отображения куба
    Dest := Cub.Destinations.Item(0);
    // Получим список альтернативных иерархий
    Hiers := Dim.AggregatorHierarchies(1, Dest);    
    // Создадим и настроим агрегатор данных
    Man := New MatrixAggregatorManager.Create As IMatrixAggregatorManager;
    BasicAggr := Man.CreateAggregator("BasicMatrixAggregator") As IBasicMatrixAggregator;
    BasicAggr.UseSelection := True;
    BasicAggr.DefaultLevelAggregation.Operation := BasicAggregatorOperation.Sum;
    Model := BasicAggr As IMatrixAggregatorModel;
    // Ключ справочника в параметрах агрегации первой альтернативной иерархии
    HierKey := Dim.Dimension.Hierarchies.Item(0).Key;    
    // Изменим параметры агрегации
    Hiers.AddValue(HierKey, Model);
    // Сохраним изменения в кубе
    (Cub As IMetabaseObject).Save;
End Sub UserProc;