IAlgorithmCalculationDebug.RecalcPrev

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Algo, Obj: ICalcObject;
    ObjList, CloneList: ICalcObjectsList;
    CalcAlgo: ICalcAlgorithm;
    CalcDebug: IAlgorithmCalculationDebug;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    // Get calculation algorithm
    MObj := MB.ItemById("ALGORITHM");
    Algo := CalcObjectFactory.CreateCalcObject(MObj, True);
    CalcAlgo := Algo As ICalcAlgorithm;
    // Get list of calculation algorithm objects
    ObjList := CalcAlgo.Items;
    // Copy list of calculation algorithm objects
    CloneList := ObjList.Clone;
    // Remove objects excluded calculation before debugging
    For i := CloneList.Count - 1 To 0 Step - 1 Do
        If Not CalcAlgo.Included(CloneList.Item(i)) Then
            CloneList.Remove(CloneList.Item(i));
        End If;
    End For;
    // Display the number of objects included in algorithm calculation and their names in the console
    Debug.WriteLine("Number of objects: " + CloneList.Count.ToString);
    For i := 0 To CloneList.Count - 1 Do
        Obj := CloneList.Item(i);
        Debug.WriteLine("- " + Obj.Name);
    End For;
    // Debug algorithm calculation
    CalcDebug := CalcAlgo.Debug(CloneList);
    i := 0;
    While CloneList.Count > 0 Do
        // Calculate next object
        CalcDebug.NextStep;
        // Recalculate the second object
        If i = 1 Then
            If CalcDebug.PrevObject <> Null Then
                // Display name of recalculated object in the console
                Debug.WriteLine("Recalculation: " + CalcDebug.PrevObject.Name);
                CalcDebug.RecalcPrev;
            End If;
        End If; 
        i:=i+1;
    End While;
    // Finish debugging of algorithm calculation
    CalcDebug.Stop;
End Sub UserProc;