IMatrixChangesInfo.ItemID

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, id: 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
        id := Changes.ItemID(0);
        Debug.Write("OriginalValueByItemID: " + Changes.OriginalValueByItemID(id));
        Debug.Write(". OriginalValueFlagByItemID: " + Changes.OriginalValueFlagByItemID(id).ToString);
        Debug.WriteLine(". StateByItemID: " + Changes.StateByItemID(id).ToString);
    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;