UndoRedo: IUndoRedo;
UndoRedo: Prognoz.Platform.Interop.ForeSystem.IUndoRedo;
Свойство UndoRedo определяет параметры стека изменений (отмены/повтора) аналитической панели.
Для выполнения примера предполагается наличие аналитической панели с идентификатором «OBJ_ADHOC».
Добавьте ссылки на системные сборки «Metabase», «Adhoc».
Sub UserProc;
Var
mb: IMetabase;
repObj: IMetabaseObject;
report: IAdhocReport;
UnRed: IUndoRedo;
Begin
mb := MetabaseClass.Active;
repObj := mb.ItemById("OBJ_ADHOC").Edit;
report := repObj As IAdhocReport;
// Задаем стек изменений
UnRed := report.UndoRedo;
// Задаем параметры стека изменений: доступность и количество изменений.
UnRed.Enabled := True;
UnRed.Limit := 20;
// Сохраняем изменения.
repObj.Save;
End Sub UserProc;
После выполнения примера для стека изменений отчета будет установлено ограничение по количеству операций отмены/повтора = 20 действий.
Необходимые требования и результат выполнения примера 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
mb: IMetabase;
repObj: IMetabaseObject;
report: IAdhocReport;
UnRed: IUndoRedo;
Begin
mb := Params.Metabase;
repObj := mb.ItemById["OBJ_ADHOC"].Edit();
report := repObj As IAdhocReport;
// Задаем стек изменений
UnRed := report.UndoRedo;
// Задаем параметры стека изменений: доступность и количество изменений.
UnRed.Enabled := True;
UnRed.Limit := 20;
// Сохраняем изменения.
repObj.Save();
End Sub;
См. также: