ICubeCombinedExecutor.AddCubeDest

AddCubeDest(CubeDest: ICubeInstanceDestination; Selection: IDimSelectionSet);

AddCubeDest(CubeDest: Prognoz.Platform.Interop.Cubes.ICubeInstanceDestination; Selection: Prognoz.Platform.Interop.Dimensions.IDimSelectionSet);

Sub UserProc;
Var
    MB: IMetabase;
    CubeInst: ICubeInstance;
    Dests: ICubeInstanceDestinations;
    Dest: ICubeInstanceDestination;
    Sels: IDimSelectionSet;
    CCE: ICubeCombinedExecutor;
    Item: ICubeCombinedExecutorItem;
    M: IMatrix;
    Iter: IMatrixIterator;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    CCE := New CubeCombinedExecutor.Create;
    //Открываем куб, получаем первый вариант отображения, задаём отметку и добавляем для параллельного вычисления
    CubeInst := MB.ItemById("STD_CUBE").Open(Null) As ICubeInstance;
    Dests := CubeInst.Destinations;
    Dest := Dests.Item(0);
    Sels := Dest.CreateDimSelectionSet;
    Sels.Item(0).SelectAll;
    Sels.Item(1).SelectAll;
    Sels.Item(2).SelectAll;
    CCE.AddCubeDest(Dest, Sels);
    //Получаем второй вариант отображения, задаём отметку и добавляем для параллельного вычисления
    Dest := Dests.Item(1);
    Sels := Dest.CreateDimSelectionSet;
    Sels.Item(0).SelectAll;
    Sels.Item(1).SelectAll;
    Sels.Item(2).SelectAll;
    CCE.AddCubeDest(Dest, Sels);
    //Вычисляем добавленные варианты отображения куба
    CCE.Execute;
    //Выводим результат для каждого варианта отображения куба
    For i := 0 To CCE.Count - 1 Do
        Item := CCE.Item(i);
        Debug.WriteLine("Вариант отображения: " + Item.Destination.Name + ". MultiExecuted: " + Item.MultiExecuted.ToString);
        //Матрица с данными
        M := Item.Matrix;
        //Выводим элементы матрицы
        Iter := M.CreateIterator;
        Iter.Move(IteratorDirection.First);
        While Iter.Valid Do
            Debug.Write(Iter.Value + " ");
            Iter.Move(IteratorDirection.Next);
        End While;
        Debug.WriteLine("");
    End For;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.ForeSystem;
Imports Prognoz.Platform.Interop.Matrix;
Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    CubeInst: ICubeInstance;
    Dests: ICubeInstanceDestinations;
    Dest: ICubeInstanceDestination;
    Sels: IDimSelectionSet;
    CCE: ICubeCombinedExecutor = New CubeCombinedExecutorClass();
    Item: ICubeCombinedExecutorItem;
    M: IMatrix;
    Iter: IMatrixIterator;
    i: Integer;
Begin
    MB := Params.Metabase;
    //Открываем куб, получаем первый вариант отображения, задаём отметку и добавляем для параллельного вычисления
    CubeInst := MB.ItemById["STD_CUBE"].Open(Null) As ICubeInstance;
    Dests := CubeInst.Destinations;
    Dest := Dests.Item[0];
    Sels := Dest.CreateDimSelectionSet();
    Sels.Item[0].SelectAll();
    Sels.Item[1].SelectAll();
    Sels.Item[2].SelectAll();
    CCE.AddCubeDest(Dest, Sels);
    //Получаем второй вариант отображения, задаём отметку и добавляем для параллельного вычисления
    Dest := Dests.Item[1];
    Sels := Dest.CreateDimSelectionSet();
    Sels.Item[0].SelectAll();
    Sels.Item[1].SelectAll();
    Sels.Item[2].SelectAll();
    CCE.AddCubeDest(Dest, Sels);
    //Вычисляем добавленные варианты отображения куба
    CCE.Execute();
    //Выводим результат для каждого варианта отображения куба
    For i := 0 To CCE.Count - 1 Do
        Item := CCE.Item[i];
        System.Diagnostics.Debug.WriteLine("Вариант отображения: " + Item.Destination.Name + ". MultiExecuted: " + Item.MultiExecuted.ToString());
        //Матрица с данными
        M := Item.Matrix;
        //Выводим элементы матрицы
        Iter := M.CreateIterator();
        Iter.Move(IteratorDirection.itdFirst);
        While Iter.Valid Do
            System.Diagnostics.Debug.Write(Iter.Value + " ");
            Iter.Move(IteratorDirection.itdNext);
        End While;
        System.Diagnostics.Debug.WriteLine("");
    End For;
End Sub;