IMsProblemCalculationSettings.RemoteCalc

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

Sub UserProc;
Var
    Mb: IMetabase;
    Problem: IMsProblem;
    Calculation: IMsProblemCalculationProxy;
    CalcSettings: IMsProblemCalculationSettings;
Begin
    // Получаем текущий репозиторий
    Mb := MetabaseClass.Active;
    // Получаем задачу моделирования
    Problem := Mb.ItemByIdNamespace("CALC_PROBLEM", Mb.GetObjectKeyById("MS_REMOTECALC")).Bind As IMsProblem;
    // Задаем параметры расчёта задачи
    CalcSettings := Problem.CreateCalculationSettings;
    // Указываем, что расчёт выполняется на указанном BI-сервере
    CalcSettings.RemoteCalc := MsProblemRemoteCalc.Enable;
    // Задаем параметры подключения к BI-серверу
    Calculation := Problem.Calculate(CalcSettings) As IMsProblemCalculationProxy;
    Calculation.Address := "http://10.9.172.46/FPBI_App_v10.x/axis2/services/PP.SOM.Som";
    // Если настройки удаленного расчёта задачи заданы успешно, то выполняем расчёт задачи
    If Calculation.IsRemoteCalc Then
        Calculation.Run;
        Debug.WriteLine("Выполнен удаленный расчёт задачи '" + Problem.Name + "'");
    Else
        Debug.WriteLine("Удаленный расчёт задачи '" + Problem.Name + "' не выполнен");
    End If;
End Sub UserProc;