IPrxReportUserEvents.EventOnAfterAddDataIsland

Fore Syntax

Sub EventOnAfterAddDataIsland(Args: IUiPrxDataIslandEventArgs);
Begin
//set of operators;
End Sub EventOnAfterAddDataIsland;

Fore.NET Syntax

Sub EventOnAfterAddDataIsland(Args: Prognoz.Platform.Interop.Report.UiPrxDataIslandEventArgs);
Begin
//set of operators;
End Sub EventOnAfterAddDataIsland;

Parameters

Args. The parameter that enables the user to work with event parameters.

Description

The EventOnAfterAddDataIsland method implements the event that occurs after adding a data area.

Comments

To implement an event that occurs after deleting data area, use the IPrxReportUserEvents.EventOnAfterDeleteDataIsland method.

Fore Example

Executing the example requires a regular report. Connect a unit to the regular report, select the connected unit an the EventsClass class as an event handler. Add links to the Metabase, Report, Ui system assemblies in the unit.

Class EventsClass: ReportEvents
Public Sub OnAfterAddDataIsland(DataIsland : IPrxDataIsland);
Begin
WinApplication.InformationBox("Data area is added " + DataIsland.Id);
End Sub OnAfterAddDataIsland;
Public Sub OnAfterDeleteDataIsland(DataIsland : IPrxDataIsland);
Begin
WinApplication.InformationBox("Data area is deleted " + DataIsland.Id);
End Sub OnAfterDeleteDataIsland;
End Class EventsClass;

After adding and deleting the data area, an information message is displayed in the regular report.

Fore.NET Example

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.Ui;

Public Class EventsClass: PrxForeNetReportUserEventsClass
Public Override Sub OnAfterAddDataIsland(DataIsland : IPrxDataIsland);
Var
    WinAppCls: WinApplicationClass = New WinApplicationClassClass();
Begin
    WinAppCls.InformationBox("Data area is added " + DataIsland.Id, Null);
End Sub OnAfterAddDataIsland;
Public Override Sub OnAfterDeleteDataIsland(DataIsland : IPrxDataIsland);
Var
   WinAppCls: WinApplicationClass = New WinApplicationClassClass();
Begin
    WinAppCls.InformationBox("Data area is deleted " + DataIsland.Id, Null);
End Sub OnAfterDeleteDataIsland;
End Class EventsClass;