Seitenumbruch in Abhängigkeit

Code: Alles auswählen.

*   RVADIN01
*---------------------------------------------------------------------*
*       FORM FORM_CLOSE                                               *
*---------------------------------------------------------------------*
*       End of printing the form                                      *
*---------------------------------------------------------------------*

FORM form_close.

  DATA: i_itcpp LIKE itcpp.

***< hier ganz am Ende de Drucks erscheint mir gut geeignet.

  CALL FUNCTION 'CONTROL_FORM'
    EXPORTING
      command = 'NEW-PAGE'.

IF ls_fkerw-print_ft = 'X'. " ****
* ****
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'FOOTER_TEXT'
EXCEPTIONS
element = 1
window = 2.

***< hier ganz am Ende de Drucks erscheint mir gut geeignet. ENDE


* insert note 508569 {
* OTF-Output, wenn Browser-Druck
*
* Define Internal table for OTF-Data
  DATA: otf_data LIKE itcoo OCCURS 0 WITH HEADER LINE.
  IF nast-sort1 = 'EBPP'.
    CALL FUNCTION 'CLOSE_FORM'
      IMPORTING
        RESULT  = i_itcpp
      TABLES
        otfdata = otf_data
      EXCEPTIONS
        OTHERS  = 1.

  ELSE.
* } end note 508569
    CALL FUNCTION 'CLOSE_FORM'
      IMPORTING
        RESULT = i_itcpp
      EXCEPTIONS
        OTHERS = 1.
* insert note 508569 {
  ENDIF.
* } end note 508569

   :
   :