Hi pls respond my code

Question

Program Name: ZMM_MIRO                         Date       : 05/01/07        *
                                               Version    : Final           *
Author  : Rashmi Patil                         Last Update: 08/01/07        *
Description : Program to print invoice document.                            *
Includes          : None                                                    *
Logical Databases : None                                                    *
External Calls    :                                                         *
      Function Modules : POPUP_TO_INFORM                                    *
      Transactions     : ZMIRO                                              *
Scheduling Issues :  None, run manually                                     *
*Request      Owner  Date           Description                               *
DEVK906817   Rashmi 16/03/2007     Addition of Service tax, vat & tds details
*DEVK907005   Rashmi 10/04/2007     Addition of ecess,netpr in doc currency   *
*DEVK907017   Rashmi 12/04/2007     Correction in netpr                       *
DEVK907045   Rashmi 17/04/2007     Correction in o/p for multiple TDS entries
*DEVK907292   Rashmi 21/05/2007     Correction in object key and fiscal year  *
*DEVK907460   Dharani 06/06/2007    PIR-60118_Addition planned delivery cost  *
                                  in MIRO print                             *
REPORT  zmm_miro        LINE-SIZE       132
                        LINE-COUNT       60
                        MESSAGE-ID       00
                        NO STANDARD PAGE HEADING.
TABLES: ekbe.
DATA : ebeln LIKE ekbe-ebeln,
       ebeln1(90),
       ebeln_1(10),
       ebeln_2(10),
       ebeln_3(10),
       gjahr LIKE ekbe-gjahr,
       mjahr LIKE mkpf-mjahr,
       addrnr LIKE lfa1-adrnr,
       mblnr LIKE mseg-mblnr,
       belnr1 LIKE bkpf-belnr,
       belnr2 LIKE bkpf-belnr,
       objkey1(14),
       objkey2(14),
       total(10) TYPE p DECIMALS 2,
       v_lines TYPE i,
       count TYPE i,
       start_at_line TYPE i,
       end_at_line TYPE i,
       counter TYPE i,
       x TYPE f,
       tot_number_of_lines TYPE i,
       tot_number_of_pages TYPE i,
       page_number VALUE 1 TYPE i,
       ernam LIKE ekbe-ernam,
       total1(10) TYPE p DECIMALS 2.                        "DEVK907005
DATA : BEGIN OF it_ekbe OCCURS 0,
       ebeln LIKE ekbe-ebeln,
       END OF it_ekbe.
DATA : BEGIN OF it_mkpf OCCURS 0,
       ebeln LIKE ekbe-ebeln,
       mblnr LIKE mkpf-mblnr,
       budat LIKE mkpf-budat,
       belnr LIKE bkpf-belnr,                               "DEVK907031
       END OF it_mkpf.
DATA : BEGIN OF it_bseg OCCURS 0,
       belnr LIKE bseg-belnr,
       umskz LIKE bseg-umskz,
       hkont LIKE bseg-hkont,
       shkzg LIKE bseg-shkzg,
       dmbtr LIKE bseg-dmbtr,
       koart LIKE bseg-koart,
       mwskz LIKE bseg-mwskz,
       txt20 LIKE skat-txt20,
       ktosl LIKE bseg-ktosl,                               "DEVK906817
       fwbas LIKE bseg-fwbas,                               "DEVK906817
       wrbtr LIKE bseg-wrbtr,
       END OF it_bseg.
DATA : BEGIN OF it_final OCCURS 0,
       belnr LIKE ekbe-belnr,
       budat3 LIKE ekbe-budat,
       lifnr LIKE ekko-lifnr,
       name1 LIKE lfa1-name1,
       street LIKE adrc-street,
       str_suppl3 LIKE adrc-str_suppl3,
       location LIKE adrc-location,
       city1 LIKE adrc-city1,
       city2 LIKE adrc-city2,
       j_1ipanno LIKE j_1imovend-j_1ipanno,
       j_1isern LIKE j_1imovend-j_1isern,
       j_1ilstno LIKE j_1imovend-j_1ilstno,
       belnr1 LIKE bkpf-belnr,
       budat1 LIKE bkpf-budat,
       belnr2 LIKE bkpf-belnr,
       budat2 LIKE bkpf-budat,
       xblnr LIKE bkpf-xblnr,                               "DEVK906817
       mblnr LIKE mkpf-mblnr,
       budat4 LIKE mkpf-budat,
       hkont LIKE bseg-hkont,
       txt20 LIKE skat-txt20,
       mwskz LIKE bseg-mwskz,
       umskz LIKE bseg-umskz,
       aufnr LIKE rbco-aufnr,
       kostl LIKE rbco-kostl,
       amount1(20),
       amount2(20),
       ktosl LIKE bseg-ktosl,                               "DEVK906817
       fwbas LIKE bseg-fwbas,                               "DEVK906817
       dc LIKE bkpf-waers,
       lc LIKE bkpf-hwaer,
       END OF it_final.
***Begin of DEVK906817
DATA : BEGIN OF it_stax OCCURS 0,
       mwskz LIKE bseg-mwskz,
       text1 LIKE t007s-text1,
       hkont LIKE bseg-hkont,
       txt20 LIKE skat-txt20,
       fwbas LIKE bseg-fwbas,               "Base amount
      amount(20),                                         "DEVK907005
       amount(10) TYPE p DECIMALS 2,                        "DEVK907005
       dc_indicator(10),
       END OF it_stax.
DATA : BEGIN OF it_tds OCCURS 0,
       hkont LIKE bseg-hkont,
       txt20 LIKE skat-txt20,
       fwbas LIKE bseg-fwbas,               "Base amount
      amount(20),                                         "DEVK907005
       amount(10) TYPE p DECIMALS 2,                        "DEVK907005
       dc_indicator(10),
       END OF it_tds.
DATA : BEGIN OF it_vat OCCURS 0,
       mwskz LIKE bseg-mwskz,
       text1 LIKE t007s-text1,
       hkont LIKE bseg-hkont,
       txt20 LIKE skat-txt20,
       fwbas LIKE bseg-fwbas,               "Base amount
      amount(20),                                         "DEVK907005
       amount(10) TYPE p DECIMALS 2,                        "DEVK907005
       dc_indicator(10),
       END OF it_vat.
DATA : tds_base(20) VALUE 0.
***End of DEVK906817
***Begin of DEVK907005
DATA : BEGIN OF it_ecess OCCURS 0,
       mwskz LIKE bseg-mwskz,
       text1 LIKE t007s-text1,
       hkont LIKE bseg-hkont,
       txt20 LIKE skat-txt20,
       fwbas LIKE bseg-fwbas,               "Base amount
       amount(10) TYPE p DECIMALS 2,
       dc_indicator(10),
       END OF it_ecess.
***End of DEVK907005
***BEGIN OF DEVK907045
DATA : BEGIN OF it_tds1 OCCURS 0,
       hkont LIKE bseg-hkont,
       txt20 LIKE skat-txt20,
       fwbas LIKE bseg-fwbas,
       amount(10) TYPE p DECIMALS 2,
       dc_indicator(10),
       END OF it_tds1.
DATA : BEGIN OF it_tds2 OCCURS 0,
       hkont LIKE bseg-hkont,
       txt20 LIKE skat-txt20,
       fwbas LIKE bseg-fwbas,
       amount(10) TYPE p DECIMALS 2,
       dc_indicator(10),
       END OF it_tds2.
DATA : BEGIN OF it_tds3 OCCURS 0,
       hkont LIKE bseg-hkont,
       txt20 LIKE skat-txt20,
       fwbas LIKE bseg-fwbas,
       amount(10) TYPE p DECIMALS 2,
       dc_indicator(10),
       END OF it_tds3.
***END OF DEVK907045
data: year like bkpf-gjahr,        "DEVK907292
      bkpf_year like bkpf-gjahr .  "DEVK907292
SELECTION-SCREEN
SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
*PARAMETERS: p_belnr LIKE ekbe-belnr OBLIGATORY.
SELECT-OPTIONS: p_belnr FOR EKBE-BELNR .
SELECTION-SCREEN: END OF BLOCK b1.
START-OF-SELECTION.
  IF p_belnr NE ''.
    SELECT SINGLE ebeln gjahr budat ernam FROM ekbe INTO (ebeln,gjahr,it_final-budat3,ernam)
      WHERE belnr IN p_belnr.
Start of changes by 147547 on 06/06/2007     DEVK907460   PIR-60118_Addition planned delivery cost  in MIRO print
      if sy-subrc ne 0.
      select single ebeln gjahr from rseg into (ebeln,gjahr)
       where belnr IN p_belnr.
       if sy-subrc = 0.
       select single budat usnam lifnr from rbkp into (it_final-budat3,ernam,it_final-lifnr)
       where belnr IN  p_belnr.
       endif.
      endif.
End of changes by 147547 on 06/06/2007  DEVK907460   PIR-60118_Addition planned delivery cost in MIRO print
  ENDIF.
*---IF ENTERED RECORD IS INVALID
Start of changes by 147547 on 06/06/2007  DEVK907460   PIR-60118_Addition planned delivery cost in MIRO print
IF sy-subrc <> 0.
End of changes by 147547 on 06/06/2007  DEVK907460   PIR-60118_Addition planned delivery cost   in MIRO print
if p_belnr eq ''.
    CALL FUNCTION 'POPUP_TO_INFORM'
      EXPORTING
        titel = sy-repid
        txt1  = text-002
        txt2  = text-003.
    EXIT.
  ELSE.
*---TO FETCH VENDOR NUMBER
if it_final-lifnr = ''.
    SELECT SINGLE lifnr FROM ekko INTO it_final-lifnr
     WHERE ebeln = ebeln .
endif.
*---TO FETCH VENDOR ADDRESS
    SELECT SINGLE adrnr FROM lfa1 INTO addrnr WHERE lifnr = it_final-lifnr.
    SELECT SINGLE name1 street str_suppl3 location city1 city2 FROM adrc
      INTO CORRESPONDING FIELDS OF it_final
          WHERE addrnumber = addrnr.
    SELECT SINGLE j_1ipanno j_1isern j_1ilstno FROM j_1imovend INTO CORRESPONDING FIELDS OF it_final
     WHERE lifnr = it_final-lifnr.
*---TO FETCH MATERIAL DOCUMENT NUMBER
    SELECT SINGLE mblnr FROM mseg INTO mblnr WHERE ebeln = ebeln.
    SELECT SINGLE mblnr budat mjahr FROM mkpf INTO (it_final-mblnr, it_final-budat4, mjahr)
      WHERE mblnr = mblnr.
***BEGIN OF DEVK907292
   CONCATENATE: p_belnr gjahr INTO objkey1,
                it_final-mblnr mjahr INTO objkey2.
   select single gjahr from rbkp into year
     where belnr = p_belnr and budat = it_final-budat3.
     concatenate p_belnr year into objkey1.
***END OF DEVK907292
***Begin of DEVK906817
   SELECT SINGLE belnr budat FROM bkpf INTO (it_final-belnr1,it_final-budat1)
    WHERE awkey = objkey1.
   SELECT SINGLE belnr budat xblnr waers hwaer FROM bkpf INTO (it_final-belnr1,it_final-budat1,it_final-xblnr,it_final-dc,it_final-lc)
   WHERE awkey = objkey1.                                     "DEVK907292
    SELECT SINGLE belnr budat xblnr waers hwaer gjahr FROM bkpf INTO (it_final-belnr1,it_final-budat1,it_final-xblnr,it_final-dc,it_final-lc,bkpf_year)
    WHERE awkey = objkey1.                                      "DEVK907292
***End of DEVK906817
    SELECT SINGLE belnr budat FROM bkpf INTO (it_final-belnr2,it_final-budat2)
     WHERE awkey = objkey2.
*---TO FETCH DATA FROM TABLE BSEG
Begin of DEVK906817
   SELECT belnr umskz hkont dmbtr koart shkzg mwskz FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_bseg
     WHERE belnr = it_final-belnr1.
    SELECT belnr umskz hkont dmbtr wrbtr koart shkzg mwskz ktosl fwbas FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_bseg
      WHERE belnr = it_final-belnr1
      AND gjahr = bkpf_year.                           "DEVK907292
***End of DEVK906817
    LOOP AT it_bseg.
      SELECT SINGLE txt20 FROM skat INTO it_bseg-txt20
       WHERE saknr = it_bseg-hkont AND ktopl = 'TSKY'.
      IF it_bseg-koart = 'K'.
        MOVE it_final-name1 TO it_bseg-txt20.
        MOVE : it_bseg-dmbtr TO total,                      "DEVK907017
               it_bseg-wrbtr TO total1.                     "DEVK907017
      ENDIF.
      MODIFY it_bseg.
    ENDLOOP.
    SORT it_bseg BY shkzg.
   total = 0.                       "DEVK907017
   total1 = 0.                      "DEVK907017
    LOOP AT it_bseg.
      AT FIRST.
        SELECT SINGLE kostl aufnr FROM rbco INTO CORRESPONDING FIELDS OF it_final
          WHERE belnr = p_belnr.
        CONDENSE it_final-aufnr.
      ENDAT.
      MOVE : p_belnr TO it_final-belnr,
             it_bseg-hkont TO it_final-hkont,
             it_bseg-txt20 TO it_final-txt20,
             it_bseg-mwskz TO it_final-mwskz,
             it_bseg-umskz TO it_final-umskz,
             it_bseg-ktosl TO it_final-ktosl,               "DEVK906817
             it_bseg-fwbas TO it_final-fwbas.               "DEVK906817
      IF it_bseg-shkzg = 'H'.
        MOVE '' TO it_final-amount2.
        MOVE it_bseg-dmbtr TO it_final-amount1.
        tds_base = tds_base + it_final-amount1.             "DEVK906817
Begin of DEVK907017
       IF it_bseg-mwskz = ''.
         SUBTRACT it_bseg-dmbtr FROM total.
         SUBTRACT it_bseg-wrbtr FROM total1.               "DEVK907005
       ELSE.
         ADD it_bseg-dmbtr TO total.
         ADD it_bseg-wrbtr TO total1.                      "DEVK907005
       ENDIF.
End of DEVK907017
      ELSE.
        MOVE '' TO it_final-amount1.
        MOVE it_bseg-dmbtr TO it_final-amount2.
      ENDIF.
      APPEND it_final.
      it_final-kostl = ''.
      it_final-aufnr = ''.
    ENDLOOP.
Begin of DEVK906817
*--- To get service tax details .
   LOOP AT it_final WHERE ktosl = 'ESE'                                      "DEVK907005
    LOOP AT it_final WHERE ktosl = 'ESE' OR ktosl = 'YSE'.  "DEVK907005
      MOVE-CORRESPONDING it_final TO it_stax.
      SELECT SINGLE text1 FROM t007s INTO it_stax-text1
        WHERE mwskz = it_stax-mwskz
        AND spras = 'E'
        AND kalsm = 'ZTAXIN'.
      it_stax-amount = it_final-amount1 + it_final-amount2.
      IF it_final-amount1 = ''.
        MOVE 'DEBIT' TO it_stax-dc_indicator.
      ELSE .
        MOVE 'CREDIT' TO it_stax-dc_indicator.
      ENDIF.
    ENDLOOP.
Begin of DEVK907005
*--- To get ecess details .
    LOOP AT it_final WHERE ktosl = 'ZSE' OR ktosl = 'YEC'.  "DEVK907005
      MOVE-CORRESPONDING it_final TO it_ecess.
      SELECT SINGLE text1 FROM t007s INTO it_ecess-text1
        WHERE mwskz = it_ecess-mwskz
        AND spras = 'E'
        AND kalsm = 'ZTAXIN'.
      it_ecess-amount = it_final-amount1 + it_final-amount2.
      IF it_final-amount1 = ''.
        MOVE 'DEBIT' TO it_ecess-dc_indicator.
      ELSE .
        MOVE 'CREDIT' TO it_ecess-dc_indicator.
      ENDIF.
    ENDLOOP.
End of DEVK907005
*--- To get TDS details .
    LOOP AT it_final WHERE mwskz = ''.
      MOVE-CORRESPONDING it_final TO it_tds.
      it_tds-amount = it_final-amount1 + it_final-amount2.
      MOVE tds_base TO it_tds-fwbas.
      MOVE 'CREDIT' TO it_tds-dc_indicator.
***BEGIN OF DEVK907045
     ENDLOOP.
      APPEND it_tds.
    ENDLOOP.
    LOOP AT it_tds.
      IF sy-tabix = 1.
        MOVE it_tds TO it_tds1.
      ENDIF.
      IF sy-tabix = 2.
        MOVE it_tds TO it_tds2.
      ENDIF.
      IF sy-tabix = 3.
        MOVE it_tds TO it_tds3.
      ENDIF.
    ENDLOOP.
***END OF DEVK907045
*--- To get VAT/Sales tax details .
    LOOP AT it_final WHERE ktosl = 'JP5' OR ktosl = 'NVV'.
      MOVE-CORRESPONDING it_final TO it_vat.
      SELECT SINGLE text1 FROM t007s INTO it_vat-text1
        WHERE mwskz = it_vat-mwskz
        AND spras = 'E'
        AND kalsm = 'ZTAXIN'.
      it_vat-amount = it_final-amount1 + it_final-amount2.
      IF it_final-amount1 = ''.
        MOVE 'DEBIT' TO it_vat-dc_indicator.
      ELSE .
        MOVE 'CREDIT' TO it_vat-dc_indicator.
      ENDIF.
    ENDLOOP.
End of DEVK906817
*---TO FETCH PURCHASE OREDER AND MATERIAL DOCUMENT NUMBERS
    SELECT ebeln FROM ekbe INTO TABLE it_ekbe
      WHERE belnr IN p_belnr.
    LOOP AT it_ekbe.
      SELECT SINGLE mblnr FROM mseg INTO mblnr WHERE ebeln = it_ekbe-ebeln.
***BEGIN OF DEVK907031
     SELECT SINGLE mblnr budat FROM mkpf INTO CORRESPONDING FIELDS OF it_mkpf
        WHERE mblnr = mblnr.
      SELECT SINGLE mblnr budat mjahr FROM mkpf INTO CORRESPONDING FIELDS OF it_mkpf
      WHERE mblnr = mblnr.
      CONCATENATE: it_mkpf-mblnr mjahr INTO objkey2.
      SELECT SINGLE belnr FROM bkpf INTO it_mkpf-belnr
      WHERE awkey = objkey2.
***END OF DEVK907031
      MOVE it_ekbe-ebeln TO it_mkpf-ebeln.
      APPEND it_mkpf.
      CLEAR it_mkpf.
    ENDLOOP.
  ENDIF.
  CALL FUNCTION 'OPEN_FORM'
    EXPORTING
      form     = 'ZMIRO'
      language = 'E'.
  CLEAR it_final.
  DESCRIBE TABLE it_final LINES tot_number_of_lines.
  x = tot_number_of_lines / 20.
  tot_number_of_pages = CEIL( x ).
  WHILE page_number LE tot_number_of_pages.
*--- START OF PAGE
    CALL FUNCTION 'START_FORM'
      EXPORTING
        form        = 'ZMIRO'
        language    = 'E'
        startpage   = 'FIRST'
        program     = 'ZMM_MIRO'
      EXCEPTIONS
        form        = 1
        format      = 2
        unended     = 3
        unopened    = 4
        unused      = 5
        spool_error = 6
        codepage    = 7
        OTHERS      = 8.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    CALL FUNCTION 'WRITE_FORM'
      EXPORTING
        window                   = 'FIRST'
      EXCEPTIONS
        element                  = 1
        function                 = 2
        type                     = 3
        unopened                 = 4
        unstarted                = 5
        window                   = 6
        bad_pageformat_for_print = 7
        spool_error              = 8
        codepage                 = 9
        OTHERS                   = 10.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    CALL FUNCTION 'WRITE_FORM'
      EXPORTING
        element                  = 'HEADER'
        window                   = 'MAIN'
      EXCEPTIONS
        element                  = 1
        function                 = 2
        type                     = 3
        unopened                 = 4
        unstarted                = 5
        window                   = 6
        bad_pageformat_for_print = 7
        spool_error              = 8
        codepage                 = 9
        OTHERS                   = 10.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
*---CHOOSE APPROPRIATE SEGMENT OF IT_FINAL TO BE DISPLAYED IN THE PAGE
    start_at_line = ( 20 * ( page_number - 1 ) ) + 1.
    end_at_line = 20 * page_number.
    IF end_at_line GT tot_number_of_lines.
      end_at_line = tot_number_of_lines.
    ENDIF.
    DESCRIBE TABLE it_final LINES v_lines.
    LOOP AT it_final FROM start_at_line TO end_at_line.
      CALL FUNCTION 'WRITE_FORM'
        EXPORTING
          element                  = 'LINE_ITEMS'
          window                   = 'MAIN'
        EXCEPTIONS
          element                  = 1
          function                 = 2
          type                     = 3
          unopened                 = 4
          unstarted                = 5
          window                   = 6
          bad_pageformat_for_print = 7
          spool_error              = 8
          codepage                 = 9
          OTHERS                   = 10.
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
      CALL FUNCTION 'WRITE_FORM'
        EXPORTING
          window                   = 'WINDOW3'
        EXCEPTIONS
          element                  = 1
          function                 = 2
          type                     = 3
          unopened                 = 4
          unstarted                = 5
          window                   = 6
          bad_pageformat_for_print = 7
          spool_error              = 8
          codepage                 = 9
          OTHERS                   = 10.
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
hi ,
pls  help me, this is my print program . my requirement is print multiple invoice documents,.
earlier it was print single t invoice docment.so in selection screen   they used parameter for invoice.
now my requirement is make it parameter as select-option.
pls i have to submit today only pls help me.
check my print program below.
    ENDLOOP.
    CALL FUNCTION 'END_FORM'
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
*---TO DISPLAY NEXT PAGE.
    page_number = page_number + 1.
    start_at_line = ( 20 * ( page_number - 1 ) ) + 1.
    end_at_line = 20 * page_number.
    IF end_at_line GT tot_number_of_lines.
      end_at_line = tot_number_of_lines.
    ENDIF.
  ENDWHILE.
*--- START OF LAST PAGE
  CALL FUNCTION 'START_FORM'
    EXPORTING
      form        = 'ZMIRO'
      language    = 'E'
      startpage   = 'PAGE1'
      program     = 'ZMM_MIRO'
    EXCEPTIONS
      form        = 1
      format      = 2
      unended     = 3
      unopened    = 4
      unused      = 5
      spool_error = 6
      codepage    = 7
      OTHERS      = 8.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
CALL FUNCTION 'WRITE_FORM'
     EXPORTING
       window                   = 'WINDOW6'
     EXCEPTIONS
       element                  = 1
       function                 = 2
       type                     = 3
       unopened                 = 4
       unstarted                = 5
       window                   = 6
       bad_pageformat_for_print = 7
       spool_error              = 8
       codepage                 = 9
       OTHERS                   = 10.
   IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
   ENDIF.
  LOOP AT it_mkpf.
    CALL FUNCTION 'WRITE_FORM'
      EXPORTING
        window                   = 'WINDOW4'
      EXCEPTIONS
        element                  = 1
        function                 = 2
        type                     = 3
        unopened                 = 4
        unstarted                = 5
        window                   = 6
        bad_pageformat_for_print = 7
        spool_error              = 8
        codepage                 = 9
        OTHERS                   = 10.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
  ENDLOOP.
***Begin of DEVK906817
  CALL FUNCTION 'WRITE_FORM'
    EXPORTING
      window                   = 'WINDOW7'
    EXCEPTIONS
      element                  = 1
      function                 = 2
      type                     = 3
      unopened                 = 4
      unstarted                = 5
      window                   = 6
      bad_pageformat_for_print = 7
      spool_error              = 8
      codepage                 = 9
      OTHERS                   = 10.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
***End of DEVK906817
  CALL FUNCTION 'WRITE_FORM'
    EXPORTING
      window                   = 'WINDOW5'
    EXCEPTIONS
      element                  = 1
      function                 = 2
      type                     = 3
      unopened                 = 4
      unstarted                = 5
      window                   = 6
      bad_pageformat_for_print = 7
      spool_error              = 8
      codepage                 = 9
      OTHERS                   = 10.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  CALL FUNCTION 'END_FORM'
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  CALL FUNCTION 'CLOSE_FORM'.

Answer 1

hi ,
my requirement is print multiple  invoice documents.earlier it was printed only sinle invoice document.
now i made invoice as a select-option instead of parameter .
but remaining code  how &where should i write,
pls provide code for this program.
Program Name: ZMM_MIRO Date : 05/01/07 *
Version : Final *
Author : Rashmi Patil Last Update: 08/01/07 *
Description : Program to print invoice document. *
Includes : None *
Logical Databases : None *
External Calls : *
Function Modules : POPUP_TO_INFORM *
Transactions : ZMIRO *
Scheduling Issues : None, run manually *
*Request Owner Date Description *
DEVK906817 Rashmi 16/03/2007 Addition of Service tax, vat & tds details
*DEVK907005 Rashmi 10/04/2007 Addition of ecess,netpr in doc currency *
*DEVK907017 Rashmi 12/04/2007 Correction in netpr *
DEVK907045 Rashmi 17/04/2007 Correction in o/p for multiple TDS entries
*DEVK907292 Rashmi 21/05/2007 Correction in object key and fiscal year *
*DEVK907460 Dharani 06/06/2007 PIR-60118_Addition planned delivery cost *
in MIRO print *
REPORT zmm_miro LINE-SIZE 132
LINE-COUNT 60
MESSAGE-ID 00
NO STANDARD PAGE HEADING.
TABLES: ekbe.
DATA : ebeln LIKE ekbe-ebeln,
ebeln1(90),
ebeln_1(10),
ebeln_2(10),
ebeln_3(10),
gjahr LIKE ekbe-gjahr,
mjahr LIKE mkpf-mjahr,
addrnr LIKE lfa1-adrnr,
mblnr LIKE mseg-mblnr,
belnr1 LIKE bkpf-belnr,
belnr2 LIKE bkpf-belnr,
objkey1(14),
objkey2(14),
total(10) TYPE p DECIMALS 2,
v_lines TYPE i,
count TYPE i,
start_at_line TYPE i,
end_at_line TYPE i,
counter TYPE i,
x TYPE f,
tot_number_of_lines TYPE i,
tot_number_of_pages TYPE i,
page_number VALUE 1 TYPE i,
ernam LIKE ekbe-ernam,
total1(10) TYPE p DECIMALS 2. "DEVK907005
DATA : BEGIN OF it_ekbe OCCURS 0,
ebeln LIKE ekbe-ebeln,
END OF it_ekbe.
DATA : BEGIN OF it_mkpf OCCURS 0,
ebeln LIKE ekbe-ebeln,
mblnr LIKE mkpf-mblnr,
budat LIKE mkpf-budat,
belnr LIKE bkpf-belnr, "DEVK907031
END OF it_mkpf.
DATA : BEGIN OF it_bseg OCCURS 0,
belnr LIKE bseg-belnr,
umskz LIKE bseg-umskz,
hkont LIKE bseg-hkont,
shkzg LIKE bseg-shkzg,
dmbtr LIKE bseg-dmbtr,
koart LIKE bseg-koart,
mwskz LIKE bseg-mwskz,
txt20 LIKE skat-txt20,
ktosl LIKE bseg-ktosl, "DEVK906817
fwbas LIKE bseg-fwbas, "DEVK906817
wrbtr LIKE bseg-wrbtr,
END OF it_bseg.
DATA : BEGIN OF it_final OCCURS 0,
belnr LIKE ekbe-belnr,
budat3 LIKE ekbe-budat,
lifnr LIKE ekko-lifnr,
name1 LIKE lfa1-name1,
street LIKE adrc-street,
str_suppl3 LIKE adrc-str_suppl3,
location LIKE adrc-location,
city1 LIKE adrc-city1,
city2 LIKE adrc-city2,
j_1ipanno LIKE j_1imovend-j_1ipanno,
j_1isern LIKE j_1imovend-j_1isern,
j_1ilstno LIKE j_1imovend-j_1ilstno,
belnr1 LIKE bkpf-belnr,
budat1 LIKE bkpf-budat,
belnr2 LIKE bkpf-belnr,
budat2 LIKE bkpf-budat,
xblnr LIKE bkpf-xblnr, "DEVK906817
mblnr LIKE mkpf-mblnr,
budat4 LIKE mkpf-budat,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
mwskz LIKE bseg-mwskz,
umskz LIKE bseg-umskz,
aufnr LIKE rbco-aufnr,
kostl LIKE rbco-kostl,
amount1(20),
amount2(20),
ktosl LIKE bseg-ktosl, "DEVK906817
fwbas LIKE bseg-fwbas, "DEVK906817
dc LIKE bkpf-waers,
lc LIKE bkpf-hwaer,
END OF it_final.
***Begin of DEVK906817
DATA : BEGIN OF it_stax OCCURS 0,
mwskz LIKE bseg-mwskz,
text1 LIKE t007s-text1,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas, "Base amount
amount(20), "DEVK907005
amount(10) TYPE p DECIMALS 2, "DEVK907005
dc_indicator(10),
END OF it_stax.
DATA : BEGIN OF it_tds OCCURS 0,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas, "Base amount
amount(20), "DEVK907005
amount(10) TYPE p DECIMALS 2, "DEVK907005
dc_indicator(10),
END OF it_tds.
DATA : BEGIN OF it_vat OCCURS 0,
mwskz LIKE bseg-mwskz,
text1 LIKE t007s-text1,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas, "Base amount
amount(20), "DEVK907005
amount(10) TYPE p DECIMALS 2, "DEVK907005
dc_indicator(10),
END OF it_vat.
DATA : tds_base(20) VALUE 0.
***End of DEVK906817
***Begin of DEVK907005
DATA : BEGIN OF it_ecess OCCURS 0,
mwskz LIKE bseg-mwskz,
text1 LIKE t007s-text1,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas, "Base amount
amount(10) TYPE p DECIMALS 2,
dc_indicator(10),
END OF it_ecess.
***End of DEVK907005
***BEGIN OF DEVK907045
DATA : BEGIN OF it_tds1 OCCURS 0,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas,
amount(10) TYPE p DECIMALS 2,
dc_indicator(10),
END OF it_tds1.
DATA : BEGIN OF it_tds2 OCCURS 0,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas,
amount(10) TYPE p DECIMALS 2,
dc_indicator(10),
END OF it_tds2.
DATA : BEGIN OF it_tds3 OCCURS 0,
hkont LIKE bseg-hkont,
txt20 LIKE skat-txt20,
fwbas LIKE bseg-fwbas,
amount(10) TYPE p DECIMALS 2,
dc_indicator(10),
END OF it_tds3.
***END OF DEVK907045
data: year like bkpf-gjahr, "DEVK907292
bkpf_year like bkpf-gjahr . "DEVK907292
SELECTION-SCREEN
SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
*PARAMETERS: p_belnr LIKE ekbe-belnr OBLIGATORY.
SELECT-OPTIONS: p_belnr FOR EKBE-BELNR .
SELECTION-SCREEN: END OF BLOCK b1.
START-OF-SELECTION.
IF p_belnr NE ''.
SELECT SINGLE ebeln gjahr budat ernam FROM ekbe INTO (ebeln,gjahr,it_final-budat3,ernam)
WHERE belnr IN p_belnr.
Start of changes by 147547 on 06/06/2007 DEVK907460 PIR-60118_Addition planned delivery cost in MIRO print
if sy-subrc ne 0.
select single ebeln gjahr from rseg into (ebeln,gjahr)
where belnr IN p_belnr.
if sy-subrc = 0.
select single budat usnam lifnr from rbkp into (it_final-budat3,ernam,it_final-lifnr)
where belnr IN p_belnr.
endif.
endif.
End of changes by 147547 on 06/06/2007 DEVK907460 PIR-60118_Addition planned delivery cost in MIRO print
ENDIF.
*---IF ENTERED RECORD IS INVALID
Start of changes by 147547 on 06/06/2007 DEVK907460 PIR-60118_Addition planned delivery cost in MIRO print
IF sy-subrc 0.
End of changes by 147547 on 06/06/2007 DEVK907460 PIR-60118_Addition planned delivery cost in MIRO print
if p_belnr eq ''.
CALL FUNCTION 'POPUP_TO_INFORM'
EXPORTING
titel = sy-repid
txt1 = text-002
txt2 = text-003.
EXIT.
ELSE.
*---TO FETCH VENDOR NUMBER
if it_final-lifnr = ''.
SELECT SINGLE lifnr FROM ekko INTO it_final-lifnr
WHERE ebeln = ebeln .
endif.
*---TO FETCH VENDOR ADDRESS
SELECT SINGLE adrnr FROM lfa1 INTO addrnr WHERE lifnr = it_final-lifnr.
SELECT SINGLE name1 street str_suppl3 location city1 city2 FROM adrc
INTO CORRESPONDING FIELDS OF it_final
WHERE addrnumber = addrnr.
SELECT SINGLE j_1ipanno j_1isern j_1ilstno FROM j_1imovend INTO CORRESPONDING FIELDS OF it_final
WHERE lifnr = it_final-lifnr.
*---TO FETCH MATERIAL DOCUMENT NUMBER
SELECT SINGLE mblnr FROM mseg INTO mblnr WHERE ebeln = ebeln.
SELECT SINGLE mblnr budat mjahr FROM mkpf INTO (it_final-mblnr, it_final-budat4, mjahr)
WHERE mblnr = mblnr.
***BEGIN OF DEVK907292
CONCATENATE: p_belnr gjahr INTO objkey1,
it_final-mblnr mjahr INTO objkey2.
select single gjahr from rbkp into year
where belnr = p_belnr and budat = it_final-budat3.
concatenate p_belnr year into objkey1.
***END OF DEVK907292
***Begin of DEVK906817
SELECT SINGLE belnr budat FROM bkpf INTO (it_final-belnr1,it_final-budat1)
WHERE awkey = objkey1.
SELECT SINGLE belnr budat xblnr waers hwaer FROM bkpf INTO (it_final-belnr1,it_final-budat1,it_final-xblnr,it_final-dc,it_final-lc)
WHERE awkey = objkey1. "DEVK907292
SELECT SINGLE belnr budat xblnr waers hwaer gjahr FROM bkpf INTO (it_final-belnr1,it_final-budat1,it_final-xblnr,it_final-dc,it_final-lc,bkpf_year)
WHERE awkey = objkey1. "DEVK907292
***End of DEVK906817
SELECT SINGLE belnr budat FROM bkpf INTO (it_final-belnr2,it_final-budat2)
WHERE awkey = objkey2.
*---TO FETCH DATA FROM TABLE BSEG
Begin of DEVK906817
SELECT belnr umskz hkont dmbtr koart shkzg mwskz FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_bseg
WHERE belnr = it_final-belnr1.
SELECT belnr umskz hkont dmbtr wrbtr koart shkzg mwskz ktosl fwbas FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_bseg
WHERE belnr = it_final-belnr1
AND gjahr = bkpf_year. "DEVK907292
***End of DEVK906817
LOOP AT it_bseg.
SELECT SINGLE txt20 FROM skat INTO it_bseg-txt20
WHERE saknr = it_bseg-hkont AND ktopl = 'TSKY'.
IF it_bseg-koart = 'K'.
MOVE it_final-name1 TO it_bseg-txt20.
MOVE : it_bseg-dmbtr TO total, "DEVK907017
it_bseg-wrbtr TO total1. "DEVK907017
ENDIF.
MODIFY it_bseg.
ENDLOOP.
SORT it_bseg BY shkzg.
total = 0. "DEVK907017
total1 = 0. "DEVK907017
LOOP AT it_bseg.
AT FIRST.
SELECT SINGLE kostl aufnr FROM rbco INTO CORRESPONDING FIELDS OF it_final
WHERE belnr = p_belnr.
CONDENSE it_final-aufnr.
ENDAT.
MOVE : p_belnr TO it_final-belnr,
it_bseg-hkont TO it_final-hkont,
it_bseg-txt20 TO it_final-txt20,
it_bseg-mwskz TO it_final-mwskz,
it_bseg-umskz TO it_final-umskz,
it_bseg-ktosl TO it_final-ktosl, "DEVK906817
it_bseg-fwbas TO it_final-fwbas. "DEVK906817
IF it_bseg-shkzg = 'H'.
MOVE '' TO it_final-amount2.
MOVE it_bseg-dmbtr TO it_final-amount1.
tds_base = tds_base + it_final-amount1. "DEVK906817
Begin of DEVK907017
IF it_bseg-mwskz = ''.
SUBTRACT it_bseg-dmbtr FROM total.
SUBTRACT it_bseg-wrbtr FROM total1. "DEVK907005
ELSE.
ADD it_bseg-dmbtr TO total.
ADD it_bseg-wrbtr TO total1. "DEVK907005
ENDIF.
End of DEVK907017
ELSE.
MOVE '' TO it_final-amount1.
MOVE it_bseg-dmbtr TO it_final-amount2.
ENDIF.
APPEND it_final.
it_final-kostl = ''.
it_final-aufnr = ''.
ENDLOOP.
Begin of DEVK906817
To get service tax details .
LOOP AT it_final WHERE ktosl = 'ESE' "DEVK907005
LOOP AT it_final WHERE ktosl = 'ESE' OR ktosl = 'YSE'. "DEVK907005
MOVE-CORRESPONDING it_final TO it_stax.
SELECT SINGLE text1 FROM t007s INTO it_stax-text1
WHERE mwskz = it_stax-mwskz
AND spras = 'E'
AND kalsm = 'ZTAXIN'.
it_stax-amount = it_final-amount1 + it_final-amount2.
IF it_final-amount1 = ''.
MOVE 'DEBIT' TO it_stax-dc_indicator.
ELSE .
MOVE 'CREDIT' TO it_stax-dc_indicator.
ENDIF.
ENDLOOP.
Begin of DEVK907005
To get ecess details .
LOOP AT it_final WHERE ktosl = 'ZSE' OR ktosl = 'YEC'. "DEVK907005
MOVE-CORRESPONDING it_final TO it_ecess.
SELECT SINGLE text1 FROM t007s INTO it_ecess-text1
WHERE mwskz = it_ecess-mwskz
AND spras = 'E'
AND kalsm = 'ZTAXIN'.
it_ecess-amount = it_final-amount1 + it_final-amount2.
IF it_final-amount1 = ''.
MOVE 'DEBIT' TO it_ecess-dc_indicator.
ELSE .
MOVE 'CREDIT' TO it_ecess-dc_indicator.
ENDIF.
ENDLOOP.
End of DEVK907005
To get TDS details .
LOOP AT it_final WHERE mwskz = ''.
MOVE-CORRESPONDING it_final TO it_tds.
it_tds-amount = it_final-amount1 + it_final-amount2.
MOVE tds_base TO it_tds-fwbas.
MOVE 'CREDIT' TO it_tds-dc_indicator.
***BEGIN OF DEVK907045
ENDLOOP.
APPEND it_tds.
ENDLOOP.
LOOP AT it_tds.
IF sy-tabix = 1.
MOVE it_tds TO it_tds1.
ENDIF.
IF sy-tabix = 2.
MOVE it_tds TO it_tds2.
ENDIF.
IF sy-tabix = 3.
MOVE it_tds TO it_tds3.
ENDIF.
ENDLOOP.
***END OF DEVK907045
To get VAT/Sales tax details .
LOOP AT it_final WHERE ktosl = 'JP5' OR ktosl = 'NVV'.
MOVE-CORRESPONDING it_final TO it_vat.
SELECT SINGLE text1 FROM t007s INTO it_vat-text1
WHERE mwskz = it_vat-mwskz
AND spras = 'E'
AND kalsm = 'ZTAXIN'.
it_vat-amount = it_final-amount1 + it_final-amount2.
IF it_final-amount1 = ''.
MOVE 'DEBIT' TO it_vat-dc_indicator.
ELSE .
MOVE 'CREDIT' TO it_vat-dc_indicator.
ENDIF.
ENDLOOP.
End of DEVK906817
*---TO FETCH PURCHASE OREDER AND MATERIAL DOCUMENT NUMBERS
SELECT ebeln FROM ekbe INTO TABLE it_ekbe
WHERE belnr IN p_belnr.
LOOP AT it_ekbe.
SELECT SINGLE mblnr FROM mseg INTO mblnr WHERE ebeln = it_ekbe-ebeln.
***BEGIN OF DEVK907031
SELECT SINGLE mblnr budat FROM mkpf INTO CORRESPONDING FIELDS OF it_mkpf
WHERE mblnr = mblnr.
SELECT SINGLE mblnr budat mjahr FROM mkpf INTO CORRESPONDING FIELDS OF it_mkpf
WHERE mblnr = mblnr.
CONCATENATE: it_mkpf-mblnr mjahr INTO objkey2.
SELECT SINGLE belnr FROM bkpf INTO it_mkpf-belnr
WHERE awkey = objkey2.
***END OF DEVK907031
MOVE it_ekbe-ebeln TO it_mkpf-ebeln.
APPEND it_mkpf.
CLEAR it_mkpf.
ENDLOOP.
ENDIF.
CALL FUNCTION 'OPEN_FORM'
EXPORTING
form = 'ZMIRO'
language = 'E'.
CLEAR it_final.
DESCRIBE TABLE it_final LINES tot_number_of_lines.
x = tot_number_of_lines / 20.
tot_number_of_pages = CEIL( x ).
WHILE page_number LE tot_number_of_pages.
START OF PAGE
CALL FUNCTION 'START_FORM'
EXPORTING
form = 'ZMIRO'
language = 'E'
startpage = 'FIRST'
program = 'ZMM_MIRO'
EXCEPTIONS
form = 1
format = 2
unended = 3
unopened = 4
unused = 5
spool_error = 6
codepage = 7
OTHERS = 8.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'FIRST'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'HEADER'
window = 'MAIN'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*---CHOOSE APPROPRIATE SEGMENT OF IT_FINAL TO BE DISPLAYED IN THE PAGE
start_at_line = ( 20 * ( page_number - 1 ) ) + 1.
end_at_line = 20 * page_number.
IF end_at_line GT tot_number_of_lines.
end_at_line = tot_number_of_lines.
ENDIF.
DESCRIBE TABLE it_final LINES v_lines.
LOOP AT it_final FROM start_at_line TO end_at_line.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'LINE_ITEMS'
window = 'MAIN'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'WINDOW3'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
hi ,
pls help me, this is my print program . my requirement is print multiple invoice documents,.
earlier it was print single t invoice docment.so in selection screen they used parameter for invoice.
now my requirement is make it parameter as select-option.
pls i have to submit today only pls help me.
check my print program below.
ENDLOOP.
CALL FUNCTION 'END_FORM'
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*---TO DISPLAY NEXT PAGE.
page_number = page_number + 1.
start_at_line = ( 20 * ( page_number - 1 ) ) + 1.
end_at_line = 20 * page_number.
IF end_at_line GT tot_number_of_lines.
end_at_line = tot_number_of_lines.
ENDIF.
ENDWHILE.
START OF LAST PAGE
CALL FUNCTION 'START_FORM'
EXPORTING
form = 'ZMIRO'
language = 'E'
startpage = 'PAGE1'
program = 'ZMM_MIRO'
EXCEPTIONS
form = 1
format = 2
unended = 3
unopened = 4
unused = 5
spool_error = 6
codepage = 7
OTHERS = 8.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'WINDOW6'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
LOOP AT it_mkpf.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'WINDOW4'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDLOOP.
***Begin of DEVK906817
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'WINDOW7'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
***End of DEVK906817
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'WINDOW5'
EXCEPTIONS
element = 1
function = 2
type = 3
unopened = 4
unstarted = 5
window = 6
bad_pageformat_for_print = 7
spool_error = 8
codepage = 9
OTHERS = 10.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'END_FORM'
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'CLOSE_FORM'.