IMsProblemCalculationSettings.RemoteCalc

RemoteCalc: MsProblemRemoteCalc;

RemoteCalc: Prognoz.Platform.Interop.Ms.MsProblemRemoteCalc;

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_v9.2x64/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;

Imports Prognoz.Platform.Interop.Ms;
…
Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    Problem: IMsProblem;
    Calculation: IMsProblemCalculationProxy;
    CalcSettings: IMsProblemCalculationSettings;
Begin
    // Получаем текущий репозиторий
    Mb := Params.Metabase;
    // Получаем задачу моделирования
    Problem := Mb.ItemByIdNamespace["CALC_PROBLEM", Mb.GetObjectKeyById("MS_REMOTECALC")].Bind() As IMsProblem;
    // Задаем параметры расчёта задачи
    CalcSettings := Problem.CreateCalculationSettings();
    // Указываем, что расчёт выполняется на указанном BI-сервере
    CalcSettings.RemoteCalc := MsProblemRemoteCalc.mprcEnable;
    // Задаем параметры подключения к BI-серверу
    Calculation := Problem.Calculate(CalcSettings) As IMsProblemCalculationProxy;
    Calculation.Address := "http://10.9.172.46/FPBI_App_v9.2x64/axis2/services/PP.SOM.Som";
    // Если настройки удаленного расчёта задачи заданы успешно, то выполняем расчёт задачи
    If Calculation.IsRemoteCalc Then
        Calculation.Run();
        System.Diagnostics.Debug.WriteLine("Выполнен удаленный расчёт задачи '" + Problem.Name + "'");
    Else
        System.Diagnostics.Debug.WriteLine("Удаленный расчёт задачи '" + Problem.Name + "' не выполнен");
    End If;
End Sub;