IAutoCubeDimension.AggregatorHierarchies

AggregatorHierarchies(Destination: IAutoCubeDestination): IMatrixAggregatorModelHierarchies

AggregatorHierarchies[Destination: Prognoz.Platform.Interop.Cubes.IAutoCubeDestination]: Prognoz.Platform.Interop.Matrix.IMatrixAggregatorModelHierarchies

Sub UserProc;
Var
    MB: IMetabase;
    Cub: IAutoCube;
    Hiers: IMatrixAggregatorModelHierarchies;
    AggHier: IBasicMatrixAggregator;
    Dim: IAutoCubeDimension;
    Dest: IAutoCubeDestination;
    HierKey: Integer;
Begin
    MB := MetabaseClass.Active;
    // Get cube for edit
    Cub := MB.ItemById("CUBE").Edit As IAutoCube;
    // Get the first cube dimensions
    Dim := Cub.Dimensions.Item(0);
    // Get parameters of cube display version
    Dest := Cub.Destinations.Item(0);
    // Get the list of alternative hierarchies
    Hiers := Dim.AggregatorHierarchies(Dest);
    // Get settings of alternative hierarchy of the first dictionary in the list
    HierKey := Dim.Dimension.Hierarchies.Item(0).Key;
    AggHier := Hiers.Add(HierKey) As IBasicMatrixAggregator;
    // Change aggregation parameters
    AggHier.UseSelection := True;
    AggHier.DefaultLevelAggregation.Operation := BasicAggregatorOperation.Sum;
    // Save changes to cube
    (Cub As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Matrix;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Cub: IAutoCube;
    Hiers: IMatrixAggregatorModelHierarchies;
    AggHier: IBasicMatrixAggregator;
    Dim: IAutoCubeDimension;
    Dest: IAutoCubeDestination;
    HierKey: UInteger;
Begin
    MB := Params.Metabase;
    // Get cube for edit
    Cub := MB.ItemById["CUBE"].Edit() As IAutoCube;
    // Get the first cube dimensions
    Dim := Cub.Dimensions.Item[0];
    // Get parameters of cube display version
    Dest := Cub.Destinations.Item[0];
    // Get the list of alternative hierarchies
    Hiers := Dim.AggregatorHierarchies[Dest];
    // Get settings of alternative hierarchy of the first dictionary in the list
    HierKey := Dim.Dimension.Hierarchies.Item[0].Key As UInteger;
    AggHier := Hiers.Add(HierKey) As IBasicMatrixAggregator;
    // Change aggregation parameters
    AggHier.UseSelection := True;
    AggHier.DefaultLevelAggregation.Operation := BasicAggregatorOperation.baoSum;
    // Save changes to cube
    (Cub As IMetabaseObject).Save();
End Sub;