IMatrixEx.ChangesInfo

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    CubeInst: ICubeInstance;
    Dest: ICubeInstanceDestination;
    Sels: IDimSelectionSet;
    Sel: IDimSelection;
    Exec: ICubeInstanceDestinationExecutor;
    Matr: IMatrix;
    MatrEx: IMatrixEx;
    Coord: IMatrixCoord;
    Changes: IMatrixChangesInfo;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    CubeInst := MB.ItemById("CUBE_1").Open(Null) As ICubeInstance;
    Dest := CubeInst.Destinations.DefaultDestination;
    // Create selection
    Sels := Dest.CreateDimSelectionSet;
    For Each Sel In Sels Do
        Sel.SelectAll;
    End For;
    // Calculation settings
    Exec := Dest.CreateExecutor;
    Exec.PrepareExecute(Sels);
    // Cube calculation
    Exec.PerformExecute;
    Matr := Exec.Matrix;
    // Mode of separate storage of source and changed data
    MatrEx := Matr As IMatrixEx;
    MatrEx.PreserveOriginalValues := True;
    Matr.ValueFlag := Matr.ValueFlag + 1;
    // Create a coordinate and change coordinate value in matrix
    Coord := Matr.CreateCoord;
    For i := 0 To Coord.Count - 1 Do
        Coord.Item(i) := 0;
    End For;
    Matr.Item(Coord) := 300;
    // View changes
    Changes := MatrEx.ChangesInfo;
    If Changes <> Null Then
        ShowChanges(Changes);
    Else
        Return;
    End If;
    // If new value is greater than old one, apply changes, otherwise cancel changes
    If Matr.Item(Coord) > Changes.OriginalValue(0) Then
        MatrEx.ApplyChanges(False);
    Else
        MatrEx.RevertChanges(1, 1);
    End If;
    //...
    //Further work with matrix
    //...
End Sub UserProc;

Sub ShowChanges(Changes: IMatrixChangesInfo);
Var
    i, c: Integer;
Begin
    c := Changes.Count;
    For i := 0 To c - 1 Do
        Debug.Write("ItemID: " + Changes.ItemID(i).ToString);
        Debug.Write(". OriginalValue: " + Changes.OriginalValue(i));
        Debug.Write(". OriginalValueFlag: " + Changes.OriginalValueFlag(i).ToString);
        Debug.WriteLine(". State: " + Changes.State(i).ToString);
    End For;
End Sub ShowChanges;