IAlgorithmCalculationResult.Load

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Algo: ICalcObject;
    CalcAlgo: ICalcAlgorithm;
    CalcResult: IAlgorithmCalculationResult;
    Load, Save: IAlgorithmTimeResults;
    Result: IAlgorithmTimeResult;
    i: Integer;
    Sec: Double;
Begin
    MB := MetabaseClass.Active;
    // Получим алгоритм расчёта
    MObj := MB.ItemById("ALGORITHM");
    Algo := CalcObjectFactory.CreateCalcObject(MObj, True);
    CalcAlgo := Algo As ICalcAlgorithm;
    // Выполним расчёт алгоритма
    CalcResult := CalcAlgo.Calculate;
    // Выведем в консоль результат загрузки источников данных
    Load := CalcResult.Load;
    Debug.WriteLine("Результат загрузки источников данных:");
    For i:=0 To Load.Count-1 Do
        Result := Load.Item(i);
        Debug.WriteLine(" Наименование: " + Result.Name);
        Debug.WriteLine(" Идентификатор: " + Result.Id);
        Sec := Result.ExecuteMilisecods/1000;
        Debug.WriteLine(" Время загрузки: " +  Sec.ToString + " сек.");
        Debug.WriteLine("");
    End For;
    // Выведем в консоль результат сохранения данных в приёмниках
    Save := CalcResult.Save;
    Debug.WriteLine("Результат сохранения данных в приёмниках:");
    For i:=0 To Save.Count-1 Do
        Result := Save.Item(i);
        Debug.WriteLine(" Наименование: " + Result.Name);
        Debug.WriteLine(" Идентификатор: " + Result.Id);
        Sec := Result.ExecuteMilisecods/1000;
        Debug.WriteLine(" Время сохранения: " +  Sec.ToString + " сек.");
        Debug.WriteLine("");
    End For;    
End Sub UserProc;