UpdateSettings: IViewerUpdateSettings;
UpdateSettings: Prognoz.Platform.Interop.ForeSystem.ViewerUpdateSettings;
Свойство UpdateSettings возвращает настройки параметров автообновления отчета.
Для выполнения примера предполагается наличие в репозитории экспресс-отчета с идентификатором «REPORT».
Добавьте ссылки на системные сборки: Metabase и Report.
Sub UserProc;
Var
Metabase: IMetabase;
Report: IPrxReport;
ReportOption: IPrxReportOptions;
UpdateOption: IViewerUpdateSettings;
Begin
Metabase := MetabaseClass.Active;
Report := Metabase.ItemById("REPORT").Edit As IPrxReport;
ReportOption := Report.Options;
UpdateOption := ReportOption.UpdateSettings;
// Настроим параметры автоматического обновления
UpdateOption.AutoUpdateByData := False;
UpdateOption.AutoUpdateIntervalUnits := TimeUnits.Minutes;
UpdateOption.AutoUpdateInterval := 10;
UpdateOption.UpdateByIntervalEnabled := True;
Debug.WriteLine("Параметры автоматического обновления отчета: " + UpdateOption.AsString);
(Report As IMetabaseObject).Save;
End Sub UserProc;
В результате выполнения примера будет отключено обновление отчета при смене отметки. Отчет будет обновляться автоматически с интервалом 10 минут. В окно консоли будут выведены параметры автоматического обновления отчета.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params: StartParams);
Var
Metabase: IMetabase;
Report: IPrxReport;
ReportOption: IPrxReportOptions;
UpdateOption: IViewerUpdateSettings;
Begin
Metabase := Params.Metabase;
Report := Metabase.ItemById["REPORT"].Edit() As IPrxReport;
ReportOption := Report.Options;
UpdateOption := ReportOption.UpdateSettings;
// Настроим параметры автоматического обновления
UpdateOption.AutoUpdateByData := False;
UpdateOption.AutoUpdateIntervalUnits := TimeUnits.tuMinutes;
UpdateOption.AutoUpdateInterval := 10;
UpdateOption.UpdateByIntervalEnabled := True;
System.Diagnostics.Debug.WriteLine("Параметры автоматического обновления отчета: " + UpdateOption.AsString);
(Report As IMetabaseObject).Save();
End Sub;
См. также: