ITsCalculationContext.UserData

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

Public Function CalcFunction(Paramarray arr: array Of Variant): Variant;
Const BREAK_ITERATION = 10; // Возможное условие прерывания выполнения
Var
    pContext: ITsCalculationContext;
    pUserData: ITsUserData;
    CurrentIteration: Integer;
    MaxIteration: Integer = -1;
Begin
    // Контекст метода расёчта и пользовательские данные
    pContext := TsCalculation.Current;
    pUserData := pContext.UserData;
    // Проверяем условия выполнения
    If pUserData.Contains("CURRENT_ITERATION") Then
        CurrentIteration := pUserData.Data("CURRENT_ITERATION") As Integer;
        Debug.Write("Циклический расчет. ");
        Debug.Write("Итерация: " + CurrentIteration.ToString);
        If pUserData.Contains("MAX_ITERATION") Then
            MaxIteration := pUserData.Data("MAX_ITERATION") As Integer;
            Debug.WriteLine(" из " + MaxIteration.ToString);
        End If;
        If CurrentIteration = 1 Then
            Debug.WriteLine("Интервал между итерациями: " + (pUserData.Data("ITERATION_INTERVAL") As Integer).ToString + " секунд");
        End If;
        If CurrentIteration = BREAK_ITERATION Then
            pUserData.Data("BREAK_CYCLE") := True;
            Debug.WriteLine("Сработало условие выхода из цикла.");
        Elseif CurrentIteration = MaxIteration Then
            pUserData.Data("BREAK_CYCLE") := True;
            Debug.WriteLine("Достигнута максимальная итерация.");
        Else
            pUserData.Data("BREAK_CYCLE") := False;
        End If;
    End If;
    Return Null;
End Function CalcFunction;