Add(Value: IEaxObject): Boolean;
Add(Value: Prognoz.Platform.Interop.Express.IEaxObject): boolean;
Value. Объект для работы с представлением аналитической области данных.
Метод Add добавляет в коллекцию существующий объект для работы с представлением аналитической области данных.
Если представление было создано, то метод вернет значение True.
Для удаления объекта для работы с представлением аналитической области данных по его индексу используйте IEaxDataAreaViews.Remove.
Для выполнения примера в репозитории необходимо наличие регламентного отчета с идентификатором «REG_REPORT», содержащего аналитическую область данных.
Добавьте ссылки на системные сборки: Express, Metabase, Report.
Sub UserProc;
Var
MB: IMetabase;
Report: IPrxReport;
Grid: IEaxObject;
Views: IEaxDataAreaViews;
Begin
// Получим репозиторий
MB := MetabaseClass.Active;
// Получим регламентный отчет
Report := MB.ItemById("REG_REPORT").Edit As IPrxReport;
// Получим представление таблицы
Views := Report.DataArea.Views;
Grid := Views.Item(0);
// Добавим представление в коллекцию
Views.Add(Grid);
// Выведем в окно консоли идентификатор объекта-родителя представления
Debug.WriteLine("Идентификатор объекта-родителя представлений - " + Views.Slice.Id);
// Сохраним изменения
(Report As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера в регламентном отчете:
в коллекцию будет добавлено представление аналитической области данных;
в окно консоли выведется идентификатор объекта-родителя представления.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Report;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Report: IPrxReport;
Grid: IEaxObject;
Views: IEaxDataAreaViews;
Begin
// Получим репозиторий
MB := Params.Metabase;
// Получим регламентный отчет
Report := MB.ItemById["REG_REPORT"].Edit() As IPrxReport;
// Получим представление таблицы
Views := Report.DataArea.Views;
Grid := Views.Item[0];
// Добавим представление в коллекцию
Views.Add(Grid);
// Выведем в окно консоли идентификатор объекта-родителя представления
System.Diagnostics.Debug.WriteLine
("Идентификатор объекта-родителя представлений - " + Views.Slice.Id);
// Сохраним изменения
(Report As IMetabaseObject).Save();
End Sub;
См. также: