IAlgorithmCalculationDebug.Matrix

Копировать пример

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;
    // Получим алгоритм расчёта
    MObj := MB.ItemById("ALGORITHM");
    // РО для промежуточных результатов
    Report := MB.ItemByID("REPORT").Edit As IPrxReport;
    Algo := CalcObjectFactory.CreateCalcObject(MObj, True);
    CalcAlgo := Algo As ICalcAlgorithm;
    // Формирование списка объектов алгоритма
    CalcList := CalcAlgo.Items.Clone;
    // Запуск алгоритма в режиме отладки
    CalcDebug := CalcAlgo.Debug(CalcList);
    // Перейти к следующему
    CalcDebug.NextStep;
    // Результат расчёта первого блока записываем в регламентный отчет
    Report1 := CalcDebug.PrxReport(CalcAlgo, CalcAlgo.Items.Item(0));
    Report.CopyFrom(Report1);
    (Report As IMetabaseObject).Save;
    // Переход к указанному объекту алгоритма расчета
    CalcDebug.StepToObject(CalcDebug.Objects.Item(0));
    // Просмотр промежуточных данных
    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));
    // Переход к след объекту расчёта
    CalcDebug.NextStep;
    //Просмотр промежуточных данных
    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));
    // Переход к сохранению данных в БД.
    CalcDebug.StepToSaveData;
    // Проверка на завершение расчёта и вывод информации по загрузке данных
    If CalcDebug.IsFinished = True Then
        Debug.WriteLine("Расчет завершен.");
        // данные по результатам расчета
        Result := CalcDebug.Result;
        Load := Result.Load;
        Debug.WriteLine("Результат загрузки источников данных:");
        TimeResult := Load.Item(0);
        Debug.WriteLine(" Наименование: " + TimeResult.Name);
        Debug.WriteLine(" Идентификатор: " + TimeResult.Id);
        Sec := TimeResult.ExecuteMilisecods / 1000;
        Debug.WriteLine(" Время загрузки: " + Sec.ToString + " сек.");
        Debug.WriteLine("");
    End If;
End Sub UserProc;