IPrxReportUserEvents.EventOnAfterAddDataIsland

Синтаксис Fore

Sub EventOnAfterAddDataIsland(Args: IUiPrxDataIslandEventArgs);
Begin
   //набор операторов;
End Sub EventOnAfterAddDataIsland;

Синтаксис Fore.NET

Sub EventOnAfterAddDataIsland(Args: Prognoz.Platform.Interop.Report.UiPrxDataIslandEventArgs);
Begin
   //набор операторов;
End Sub EventOnAfterAddDataIsland;

Параметры

Args. Параметр, позволяющий работать с параметрами события.

Описание

Метод EventOnAfterAddDataIsland реализует событие, которое наступает после добавления области данных.

Комментарии

Для реализации события, которое наступит после удаления области данных, используйте метод IPrxReportUserEvents.EventOnAfterDeleteDataIsland.

Пример Fore

Для выполнения примера предполагается наличие регламентного отчета. Подключите модуль в регламентный отчет, в качестве обработчика событий выберите подключенный модуль и класс «EventsClass». В модуле подключите системные сборки: Metabase, Report, Ui.

Class EventsClass: ReportEvents
Public Sub OnAfterAddDataIsland(DataIsland : IPrxDataIsland);
Begin
    WinApplication.InformationBox("Была добавлена область данных " + DataIsland.Id);
End Sub OnAfterAddDataIsland;
Public Sub OnAfterDeleteDataIsland(DataIsland : IPrxDataIsland);
Begin
    WinApplication.InformationBox("Была удалена область данных " + DataIsland.Id);
End Sub OnAfterDeleteDataIsland;
End Class EventsClass;

После добавления/удаления области данных в регламентном отчете будет выдано информационное сообщение.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Ui;

Public Class EventsClass: PrxForeNetReportUserEventsClass
Public Override Sub OnAfterAddDataIsland(DataIsland : IPrxDataIsland);
Var
    WinAppCls: WinApplicationClass = New WinApplicationClassClass();
Begin
    WinAppCls.InformationBox("Была добавлена область данных " + DataIsland.Id, Null);
End Sub OnAfterAddDataIsland;
Public Override Sub OnAfterDeleteDataIsland(DataIsland : IPrxDataIsland);
Var
   WinAppCls: WinApplicationClass = New WinApplicationClassClass();
Begin
    WinAppCls.InformationBox("Была удалена область данных " + DataIsland.Id, Null);
End Sub OnAfterDeleteDataIsland;
End Class EventsClass;

См. также:

IPrxReportUserEvents

Связанные записи

Требование