IAlgorithmCalculationResult.ChangedPoints

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Algo: ICalcObject;
    CalcAlgo: ICalcAlgorithm;
    CalcResult: IAlgorithmCalculationResult;
    PointResults: IAlgorithmChangedPointResults;
    PointResult: IAlgorithmChangedPointResult;
    i: Integer;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим алгоритм расчёта
    MObj := MB.ItemById("ALGORITHM");
    Algo := CalcObjectFactory.CreateCalcObject(MObj, True);
    CalcAlgo := Algo As ICalcAlgorithm;
    // Выполним расчёт алгоритма
    CalcResult := CalcAlgo.Calculate;
    // Получим информацию о количестве изменённых ячеек данных
    PointResults := CalcResult.ChangedPoints;
    // Выведем в консоль количество блоков расчёта
    Debug.WriteLine("Количество блоков расчёта: " + PointResults.Count.ToString);
    // Выведем в консоль информацию о каждом объекте алгоритма расчёта
    For i := 0 To PointResults.Count - 1 Do
        // Выберем объект алгоритма расчёта
        PointResult := PointResults.Item(i);
        // Выведем наименование блока расчёта
        Debug.WriteLine("Наименование блока расчёта: " + PointResult.Name);
        // Выведем идентификатор блока расчёта
        Debug.WriteLine("Идентификатор блока расчёта: " + PointResult.Id);
        // Выведем ключ блока расчёта
        Debug.WriteLine("Ключ блока расчёта: " + PointResult.Key.ToString);
        // Выведем количество ячеек данных, изменённых при выполнении блока расчёта
        Debug.WriteLine("Количество изменённых ячеек данных: " + PointResult.ChangedPointsCount.ToString);  
    End For;
End Sub UserProc;