IBasicMatrixLevelAggregator.Include

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    StdCube: IStandardCube;
    Man: IMatrixAggregatorManager;
    Dim: IStandardCubeDimension;
    Lvl: IDimLevels;
    BasicAggr: IBasicMatrixAggregator;
    LevAggr: IBasicMatrixLevelAggregator;
    Dest: IStandardCubeDestination;
Begin
    // Open cube for edit
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("CUBE").Edit;
    StdCube := MObj As IStandardCube;
    // Create a new aggregator
    Man := New MatrixAggregatorManager.Create As IMatrixAggregatorManager;
    // Specify basic aggregation mechanism
    BasicAggr := Man.CreateAggregator("BasicMatrixAggregator") As IBasicMatrixAggregator;
    // Determine settings for the D_TO dimension
    Dim := StdCube.Destinations.Item(0).Dimensions.FindById("D_TO");
    Lvl := Dim.Dimension.Levels;
    BasicAggr.Dimension := Dim.Dimension;
    // Determine settings for default level
    LevAggr := BasicAggr.DefaultLevelAggregation;
    LevAggr.Operation := BasicAggregatorOperation.ArithmeticalMean;
    LevAggr.PreserveExistingData := True;
    LevAggr.PreserveMethod := ExistingDataPreserveMethod.OnNull;
    // Determine settings for consumer level
    LevAggr := BasicAggr.LevelAggregation(Lvl.Item(Lvl.Count - 2));
    LevAggr.UseDefaultLevelAggregation := False;
    // Set the Actual Mean aggregation option
    LevAggr.Operation := BasicAggregatorOperation.ActualMean;
    // Determine settings for source level
    LevAggr.Include(Lvl.Item(Lvl.Count - 1)) := True;
    LevAggr.IncludeChildren := False;
    // Set aggregation by the first fact dimension element
    Dest := StdCube.Destinations.Item(0);
    Dim.Aggregator(1, Dest) := BasicAggr;
    // Save cube
    MObj.Save;
End Sub UserProc;