Нашли ошибку? Выделите
текст с ошибкой и нажмите кнопку "Сообщить об ошибке"
или CTRL+ENTER.
Справочная
система на версию 10.1
от 27/06/2023,
© ООО «ФОРСАЙТ»,
RemoteCalc: MsProblemRemoteCalc;
Свойство RemoteCalc определяет, используется ли удалённый расчёт задачи моделирования на BI-сервере.
Если свойство имеет значение:
MsProblemRemoteCalc.Disable. Задача моделирования рассчитывается локально;
MsProblemRemoteCalc.Enable. Задача моделирования рассчитывается удалённо на BI-сервере, указанном в файле Settings.xml.
MsProblemRemoteCalc.EnableBySources. Задача моделирования рассчитывается удалённо на BI-сервере, указанном в свойстве IMsProblemCalculationProxy.Address. Если свойство не задано, то для расчёта используется BI-сервер, указанный в файле Settings.xml.
Для выполнения примера в репозитории предполагается наличие контейнера моделирования с идентификатором MS_REMOTECALC, содержащего задачу моделирования с идентификатором CALC_PROBLEM. Также по адресу http://10.9.172.46/fpBI_App_v10.x/axis2/services/PP.SOM.Som должен быть развёрнут BI-сервер.
Добавьте ссылки на системные сборки: Metabase, Ms.
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;
В результате выполнения примера расчёт задачи моделирования будет выполнен удалённо на указанном BI-сервере.
См. также: