ReportEvents.OnBeforeExportReport

Синтаксис Fore

Sub OnBeforeExportReport(Report: IPrxReport, Var Cancel: Boolean);

Begin

// набор операторов

End Sub OnBeforeExportReport;

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

Public Override Sub OnBeforeExportReport(Report: IPrxReport;  Var Cancel: Boolean);
Begin

// набор операторов
End Sub OnBeforeExportReport;

Параметры

Report. Регламентный отчет, сгенерировавший событие.

Cancel. Параметр, отвечающий за экспорт регламентного отчета. При значении данного параметра True регламентный отчет экспортирован не будет, при значении False - отчет будет экспортирован.

Описание

Метод OnBeforeExportReport реализует событие, происходящее перед экспортом регламентного отчета.

Комментарии

При вызове метода OnBeforeExportReport одновременно в ядре обрабатывается событие EventOnBeforeExportReport, которое при необходимости можно переопределить.

Пример Fore

Указанный класс является обработчиком событий регламентного отчёта.

Class EventsClass: ReportEvents

Public Sub OnBeforeExportReport(Report: IPrxReport; Var Cancel: Boolean);

Var
    RS: IPrxSheet;
Begin
    //Вызов системного события, переопределенного в классе Parent
    RS := Report.ActiveSheet;
    Report.ActiveSheet.Printable := False;
End Sub OnBeforeExportReport;
Public Sub OnAfterExportReport(Report: IPrxReport);

Var
    RS: IPrxSheet;
Begin
    //Вызов системного события, переопределенного в классе Parent
    RS := Report.ActiveSheet;
    Report.ActiveSheet.Printable := True;    
End Sub OnAfterExportReport;

End Class EventsClass;

При наступлении события OnBeforeExportReport активная на данный момент страница регламентного отчёта будет скрыта для печати (в том числе и для экспорта в PDF). После экспорта страница вновь будет открыта.

Пример Fore.NET

Указанный класс является обработчиком событий регламентного отчёта.

Public Class EventsClass: ReportEvents

Public Override Sub OnBeforeExportReport(Report: IPrxReport; Var Cancel: Boolean);

Var
    RS: IPrxSheet;
Begin
    //Вызов системного события, переопределенного в классе Parent
    RS := Report.ActiveSheet();
    Report.ActiveSheet.Printable := False;
End Sub OnBeforeExportReport;
Public Override Sub OnAfterExportReport(Report: IPrxReport);
Var
    RS: IPrxSheet;

Begin
    //Вызов системного события, переопределенного в классе Parent
    RS := Report.ActiveSheet();
    Report.ActiveSheet.Printable := True;
End Sub OnAfterExportReport;

End Class;

При наступлении события OnBeforeExportReport активная на данный момент страница регламентного отчёта будет скрыта для печати (в том числе и для экспорта в PDF). После экспорта страница вновь будет открыта.

См. также:

ReportEvents