ICalcAggr.Aggregator

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Algo, Aggr: ICalcObject;
    List: ICalcObjectsList;
    CalcAlgo: ICalcAlgorithm;
    Block: ICalcAggr;
    Stub: IVariableStub;
    StandCub: IStandardCube;
    Dim: IStandardCubeDimension;
    Lvl: IDimLevels;
    BasicAggr: IBasicMatrixAggregator;
    LevAggr: IBasicMatrixLevelAggregator;
Begin
    MB := MetabaseClass.Active;
    // Получим алгоритм расчёта
    MObj := MB.ItemById("ALGORITHM");
    Algo := CalcObjectFactory.CreateCalcObject(MObj, True);
    CalcAlgo := Algo As ICalcAlgorithm;
    // Получим список объектов алгоритма расчёта
    List := CalcAlgo.Items;
    // Получим блок агрегации с индексом «0»
    Aggr := List.Item(0);
    Block := Aggr As ICalcAggr;
    // Получим куб
    StandCub := MB.ItemById("CUBE").Edit As IStandardCube;
    Stub := StandCub As IVariableStub;
    // Зададим куб в качестве приёмника данных
    Block.Stub := Stub;
    // Настроим основной механизм агрегации для указанного измерения
    Dim := StandCub.Dimensions.FindById("DIMENSIONS");
    BasicAggr := Block.Aggregator(Dim.Dimension);
    // Получим уровни измерения
    Lvl := Dim.Dimension.Levels;
    // Зададим параметры для уровня по умолчанию
    LevAggr := BasicAggr.DefaultLevelAggregation;
    LevAggr.Operation := BasicAggregatorOperation.ArithmeticalMean;
    LevAggr.PreserveExistingData := True;
    LevAggr.PreserveMethod := ExistingDataPreserveMethod.OnNull;
    // Сохраним изменения в блоке агрегации
    Block.SaveObject;
End Sub UserProc;