IVirtualCubeSourceMatrices.Matrix

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    Desc: IMetabaseObjectDescriptor;
    Cube: ICubeInstance;
    Dest: ICubeInstanceDestination;
    Sels: IDimSelectionSet;
    Sel: IDimSelection;
    Exec: ICubeInstanceDestinationExecutor;
    Matrs: IVirtualCubeSourceMatrices;
    Matr: IMatrix;
    Coord: IMatrixCoord;
Begin
    // Open cube
    MB := MetabaseClass.Active;
    Desc := MB.ItemById("VIRT_CUBE");
    Cube := Desc.Open(Null) As ICubeInstance;
    Dest := Cube.Destinations.DefaultDestination;
    // Set selection
    Sels := Dest.CreateDimSelectionSet;
    For Each Sel In Sels Do
        Sel.SelectAll;
    End For;
    // Calculate virtual cube with access to source matrices
    Exec := Dest.CreateExecutorO(CubeInstanceDestinationExecutorOptions.KeepSourceMatrices);
    Exec.PrepareExecute(Sels);
    Exec.PerformExecute;
    // Access source matrices
    Matrs := Exec.Matrix As IVirtualCubeSourceMatrices;
    Debug.WriteLine("Number of source matrices: " + Matrs.Count.ToString);
    // Replace data of one of the sources, after which data of the output matrix also changes
    Matr := Matrs.Matrix(0);
    Coord := Matr.CreateCoord;
    Coord.Item(0) := 0;
    Coord.Item(1) := 0;
    Matr.Item(Coord) := 100;
    // Replace data of the output matrix, after which data of the corresponding source changes
    Matr := Exec.Matrix;
    Coord := Matr.CreateCoord;
    Coord.Item(0) := 0;
    Coord.Item(1) := 0;
    Coord.Item(2) := 0;
    Matr.Item(Coord) := 200;
End Sub UserProc;