ICubeCombinedExecutor.AddCubeDest

Синтаксис

AddCubeDest(CubeDest: ICubeInstanceDestination; Selection: IDimSelectionSet);

Параметры

CubeDest. Вариант отображения куба, который необходимо добавить для расчёта.

Selection. Отметка измерений в соответствии с которой осуществляется расчёт.

Описание

Метод AddCubeDest добавляет вариант отображения куба в список для параллельного расчёта.

Комментарии

Куб, для которого получен вариант отображения, должен соответствовать требованиям, представленным в описании интерфейса ICubeCombinedExecutor.

Пример

Для выполнения примера предполагается наличие в репозитории стандартного куба с идентификатором «STD_CUBE». Куб включает в себя три измерения, также в кубе созданы и настроены два варианта отображения. Настройки куба удовлетворяют заданным требованиям.

Добавьте ссылки на системные сборки: Cubes, Dimensions, ForeSystem, Matrix, Metabase.

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(NullAs 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;

При выполнении примера осуществляется параллельный расчёт двух вариантов отображения куба. Результаты расчётов будут выведены в консоль среды разработки.

См. также:

ICubeCombinedExecutor