IBasicMatrixLevelAggregator.Include

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    StdCube: IStandardCube;
    Man: IMatrixAggregatorManager;
    Dim: IStandardCubeDimension;
    Lvl: IDimLevels;
    BasicAggr: IBasicMatrixAggregator;
    LevAggr: IBasicMatrixLevelAggregator;
    Dest: IStandardCubeDestination;
Begin
    // Открываем куб на редактирование
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("CUBE").Edit;
    StdCube := MObj As IStandardCube;
    // Создаём новый агрегатор
    Man := New MatrixAggregatorManager.Create As IMatrixAggregatorManager;
    // Указываем основной механизм агрегации
    BasicAggr := Man.CreateAggregator("BasicMatrixAggregator") As IBasicMatrixAggregator;
    // Устанавливаем настройки для измерения D_TO
    Dim := StdCube.Destinations.Item(0).Dimensions.FindById("D_TO");
    Lvl := Dim.Dimension.Levels;
    BasicAggr.Dimension := Dim.Dimension;
    // Устанавливаем настройки для уровня по умолчанию
    LevAggr := BasicAggr.DefaultLevelAggregation;
    LevAggr.Operation := BasicAggregatorOperation.ArithmeticalMean;
    LevAggr.PreserveExistingData := True;
    LevAggr.PreserveMethod := ExistingDataPreserveMethod.OnNull;
    // Устанавливаем настройки для уровня-приёмника
    LevAggr := BasicAggr.LevelAggregation(Lvl.Item(Lvl.Count - 2));
    LevAggr.UseDefaultLevelAggregation := False;
    // Устанавливаем агрегацию методом «Фактическое среднее»
    LevAggr.Operation := BasicAggregatorOperation.ActualMean;
    // Устанавливаем настройки для уровня-источника
    LevAggr.Include(Lvl.Item(Lvl.Count - 1)) := True;
    LevAggr.IncludeChildren := False;
    // Устанавливаем агрегацию по первому элементу измерения фактов
    Dest := StdCube.Destinations.Item(0);
    Dim.Aggregator(1, Dest) := BasicAggr;
    // Сохраняем куб
    MObj.Save;
End Sub UserProc;