UpdateSettings: IViewerUpdateSettings;
UpdateSettings: Prognoz.Platform.Interop.ForeSystem.ViewerUpdateSettings;
The UpdateSettings property returns settings of report autoupdate parameters.
Executing the example requires that the repository contains an express report with the REPORT identifier.
Add links to the Metabase and Report system assemblies.
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;
// Set up autoupdate parameters
UpdateOption.AutoUpdateByData := False;
UpdateOption.AutoUpdateIntervalUnits := TimeUnits.Minutes;
UpdateOption.AutoUpdateInterval := 10;
UpdateOption.UpdateByIntervalEnabled := True;
Debug.WriteLine("Report autoupdate parameters: " + UpdateOption.AsString);
(Report As IMetabaseObject).Save;
End Sub UserProc;
After executing the example report autoupdate on selection change is disabled. The report is autoupdated each 10 minutes. The console window displays report autoupdate parameters.
The requirements and result of the Fore.NET example execution match with those in the Fore example.
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;
// Set up autoupdate parameters
UpdateOption.AutoUpdateByData := False;
UpdateOption.AutoUpdateIntervalUnits := TimeUnits.tuMinutes;
UpdateOption.AutoUpdateInterval := 10;
UpdateOption.UpdateByIntervalEnabled := True;
System.Diagnostics.Debug.WriteLine("Report autoupdate parameters: " + UpdateOption.AsString);
(Report As IMetabaseObject).Save();
End Sub;
See also: