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