ICubeExecuteDataTypes.AddCoord

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

Sub UserProc;
Var
    MB: IMetabase;
    CubeInst: ICubeInstance;
    Dest: ICubeInstanceDestination;
    Sels: IDimSelectionSet;
    Sel: IDimSelection;
    Exec: ICubeInstanceDestinationExecutor;
    Matr: IMatrix;
    CubeExecRes: ICubeExecuteResult;
    CubeDataTyp: ICubeExecuteDataTypes;
    Coord: IMatrixCoord;
Begin
    // Открываем куб
    MB := MetabaseClass.Active;
    CubeInst := MB.ItemById("STD_CUBE").Open(Null) As ICubeInstance;
    Dest := CubeInst.Destinations.DefaultDestination;
    // Устанавливаем отметку
    Sels := Dest.CreateDimSelectionSet;
    For Each Sel In Sels Do
        Sel.SelectAll;
    End For;
    // Устанавливаем поддержку работы с информацией о том, как формируются данные в ячейках
    (Sels As ICubeExecuteSetup).UseDataTypes := True;
    Exec := Dest.CreateExecutor;
    // Вычисляем куб
    Exec.PrepareExecute(Sels);
    Exec.PerformExecuteO(CubeInstanceDestinationExecutorOptions.None);
    Matr := Exec.Matrix;
    ShowMatrix("Матрица куба", Matr);
    // Задание способа формирования данных для ячейки
    CubeExecRes := Matr As ICubeExecuteResult;
    CubeDataTyp := CubeExecRes.DataTypes;
    Coord := Matr.CreateCoord;
    Coord.Item(0) := 0;
    Coord.Item(1) := 0;
    Coord.Item(2) := 0;
    CubeDataTyp.AddCoord(Coord, CubeDataType.Calculated);
    ShowMatrix("Матрица после задания способа формирования данных для ячейки", Matr);
End Sub UserProc;

Sub ShowMatrix(Title: String; Matr: IMatrix);
Var
    Iter: IMatrixIterator;
    CubeExecRes: ICubeExecuteResult;
    CubeDataTyp: ICubeExecuteDataTypes;
    S: String;
    Coord: IMatrixCoord;
Begin
    CubeExecRes := Matr As ICubeExecuteResult;
    CubeDataTyp := CubeExecRes.DataTypes;
    Iter := Matr.CreateIterator;
    Iter.Move(IteratorDirection.First);
    Debug.WriteLine(Title);
    Coord := Matr.CreateCoord;
    While Iter.Valid Do
        S := (Iter.Value As String) + "   (" + Iter.CoordsAsString + ")";
        Iter.PutCurrentPos(Coord);
        If CubeDataTyp.DataType(Coord) <> CubeDataType.Default_ Then
            S := S + "*";
        End If;
        Debug.WriteLine(s);
        Iter.Value := (Iter.Value As Integer) + 1;
        Iter.Move(IteratorDirection.Next);
    End While;
End Sub ShowMatrix;