IAlgorithmCalculationDebug.Matrix

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Algo: ICalcObject;
    CalcList: ICalcObjectsList;
    CalcAlgo: ICalcAlgorithm;
    CalcDebug: IAlgorithmCalculationDebug;
    i: Integer;
    Report, Report1: IPrxReport;
    Result: IAlgorithmCalculationResult;
    Load: IAlgorithmTimeResults;
    TimeResult: IAlgorithmTimeResult;
    Sec: Double;
    Matrix, ValidationMatrix: IMatrixDataSource;
    DimSS: IDimSelectionSet;
    Matr, ValidationMatr: IMatrix;
    Coord: IMatrixCoord;
Begin
    MB := MetabaseClass.Active;
    // Get calculation algorithm
    MObj := MB.ItemById("ALGORITHM");
    // Regular report for subtotals
    Report := MB.ItemByID("REPORT").Edit As IPrxReport;
    Algo := CalcObjectFactory.CreateCalcObject(MObj, True);
    CalcAlgo := Algo As ICalcAlgorithm;
    // Create a list of algorithm objects
    CalcList := CalcAlgo.Items.Clone;
    // Start algorithm debugging
    CalcDebug := CalcAlgo.Debug(CalcList);
    // Go to the next
    CalcDebug.NextStep;
    // Calculation result of the first block is written to regular report
    Report1 := CalcDebug.PrxReport(CalcAlgo, CalcAlgo.Items.Item(0));
    Report.CopyFrom(Report1);
    (Report As IMetabaseObject).Save;
    // Go to the specified calculation algorithm object
    CalcDebug.StepToObject(CalcDebug.Objects.Item(0));
    // View intermediate data
    Matrix := CalcDebug.Matrix((CalcAlgo.Items.Item(1) As ICalcBlock).StubOut);
    DimSS := Matrix.CreateDimSelectionSet;
    Matr := Matrix.Execute(DimSS);
    Coord := Matr.CreateCoord;
    For i := 0 To Matr.DimensionCount - 1 Do
        Coord.Item(i) := 0;
    End For;
    Debug.WriteLine(Matr.Item(Coord));
    // Go to the next calculation object
    CalcDebug.NextStep;
    //View intermediate data
    ValidationMatrix := CalcDebug.ValidationMatrix((CalcAlgo.Items.Item(2) As ICalcValidationBlock).StubOut);
    DimSS := ValidationMatrix.CreateDimSelectionSet;
    For i := 0 To DimSS.Count - 1 Do
        DimSS.Item(i).SelectAll;
    End For;
    ValidationMatr := ValidationMatrix.Execute(DimSS);
    Coord := ValidationMatr.CreateCoord;
    For i := 0 To ValidationMatr.DimensionCount - 1 Do
        Coord.Item(i) := 0;
    End For;
    Debug.WriteLine(ValidationMatr.Item(Coord));
    // Go to saving data to database.
    CalcDebug.StepToSaveData;
    // Check if calculation is finished and display information about data loading
    If CalcDebug.IsFinished = True Then
        Debug.WriteLine("Calculation is finished:");
        // data about calculation results
        Result := CalcDebug.Result;
        Load := Result.Load;
        Debug.WriteLine("Result of loading data sources:");
        TimeResult := Load.Item(0);
        Debug.WriteLine(" Name: " + TimeResult.Name);
        Debug.WriteLine(" Identifier: " + TimeResult.Id);
        Sec := TimeResult.ExecuteMilisecods / 1000;
        Debug.WriteLine(" Loading time: " + Sec.ToString + " sec.");
        Debug.WriteLine("");
    End If;
End Sub UserProc;