How to call adobeform multiple times for multiple selection.

Question

Hello Experts,
Good morning.
I am new to ABAP,
I am working on one program which is used for printing a bank voucher for that i have to select multiple document number (BELNR), it is running fine with selecting a single document but for multiple selection i have to call adobeform multiple times.
Can anyone give me the solution how to do this.
Any suggestion will be appreciated.
Regards,
Dipen Pandya.

Answer 1

Yes i have done the same way.
Please have a look at my code.
REPORT zfi_print_bank_voucher.
TABLES: bkpf,
         bseg,
         skat.
TYPES : BEGIN OF  lv_main,
        belnr TYPE bkpf-belnr,
        xblnr TYPE bkpf-xblnr,
        ebeln TYPE bseg-ebeln,
        bankn TYPE lfbk-bankn,
        budat TYPE bkpf-budat,
        bldat TYPE bkpf-bldat,
        bedat TYPE ekko-bedat,
        bankl TYPE lfbk-bankl,
        lifnr TYPE lifnr,
        END OF lv_main.
TYPES: BEGIN OF st_bseg,
         ebeln TYPE bseg-ebeln,
         bukrs TYPE bseg-bukrs,
         buzei TYPE bseg-buzei,
         hkont TYPE bseg-hkont,
         bschl TYPE bseg-bschl,
         saknr TYPE skat-saknr,
         txt20 TYPE skat-txt20,
         kostl TYPE bseg-kostl,
         mwsts TYPE bseg-mwsts,
         dmbtr TYPE bseg-dmbtr,
         belnr TYPE bseg-belnr,
       END OF st_bseg.
TYPES: BEGIN OF i_desc,
         spras TYPE skat-spras,
         saknr TYPE skat-saknr,
         txt20 TYPE skat-txt20,
   END OF i_desc.
TYPES: BEGIN OF st_bkpf,
        belnr TYPE bkpf-belnr,
        xblnr TYPE bkpf-xblnr,
        budat TYPE bkpf-budat,
        bldat TYPE bkpf-bldat,
   END OF st_bkpf.
TYPES: BEGIN OF st_lfbk,
         bankn TYPE lfbk-bankn,
         bankl TYPE lfbk-bankl,
   END OF st_lfbk.
TYPES: BEGIN OF st_ekko,
         ebeln TYPE ekko-ebeln,
         bedat TYPE ekko-bedat,
   END OF st_ekko.
DATA: it_bseg TYPE STANDARD TABLE OF st_bseg,
       wa_bseg TYPE st_bseg.
DATA: it_bkpf TYPE STANDARD TABLE OF st_bkpf,
       wa_bkpf TYPE st_bkpf.
DATA: it_desc TYPE STANDARD TABLE OF i_desc,
       wa_desc TYPE i_desc.
DATA: it_lfbk TYPE STANDARD TABLE OF st_lfbk,
       wa_lfbk TYPE st_lfbk.
DATA: it_ekko TYPE STANDARD TABLE OF st_ekko,
       wa_ekko TYPE st_ekko.
DATA: fname TYPE funcname,
       ls_outputparams TYPE sfpoutputparams,
       logo_bin TYPE xstring.
DATA: ls_result TYPE sfpjoboutput.
DATA: it_main TYPE STANDARD TABLE OF lv_main,
       wa_main TYPE lv_main.
DATA: i_bseg TYPE ztt_bseg WITH HEADER LINE.
DATA: ok_code TYPE sy-ucomm.
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE t001.
SELECT-OPTIONS  bukrs FOR bkpf-bukrs OBLIGATORY DEFAULT '1000' NO-EXTENSION NO INTERVALS.
SELECT-OPTIONS  belnr FOR bkpf-belnr OBLIGATORY.
PARAMETERS: year LIKE bkpf-gjahr DEFAULT sy-datum+0(4) OBLIGATORY.
SELECTION-SCREEN END OF BLOCK blk1.
INITIALIZATION.
   t001 = 'Enter Specific Details'.
START-OF-SELECTION.
   PERFORM feeding_data.
   PERFORM print_form.
*&      Form  print_form
*       text
FORM print_form.
   CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
     EXPORTING
       i_name     = 'ZFI_BANK_VOUCHER_FORM'
     IMPORTING
       e_funcname = fname.
   ls_outputparams-bumode = 'M'.
   CALL FUNCTION 'FP_JOB_OPEN'
     CHANGING
       ie_outputparams = ls_outputparams
     EXCEPTIONS
       cancel          = 1
       usage_error     = 2
       system_error    = 3
       internal_error  = 4
       OTHERS          = 5.
   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_main INTO wa_main.
*at new belnr.
     PERFORM controll_internal.
     CALL FUNCTION fname "'/1BCDWB/SM00000237'
       EXPORTING
*   /1BCDWB/DOCPARAMS        =
         belnr_d                  = wa_main-belnr    "bkpf
         lifnr                    = wa_main-lifnr
         xblnr                    = wa_main-xblnr      "bkpf
         ebeln                    = wa_main-ebeln      "bseg
         bankn                    = wa_main-bankn      "lfbk
         budat                    = wa_main-budat      "bkpf
         bldat                    = wa_main-bldat      "bkpf
         podat                    = wa_main-bedat      "ekko
         bankl                    = wa_main-bankl      "lfbk
         itab_bseg                = i_bseg[]
* IMPORTING
*   /1BCDWB/FORMOUTPUT       =
      EXCEPTIONS
        usage_error              = 1
        system_error             = 2
        internal_error           = 3
        OTHERS                   = 4
     IF sy-subrc <> 0.
* Implement suitable error handling here
     ENDIF.
   ENDLOOP.
   CALL FUNCTION 'FP_JOB_CLOSE'
     IMPORTING
       e_result       = ls_result
     EXCEPTIONS
       usage_error    = 1
       system_error   = 2
       internal_error = 3
       OTHERS         = 4.
   IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
   ENDIF.
ENDFORM.                    " PRINT_FORM
*&      Form  FEEDING_DATA
*       text
*  -->  p1        text
*  <--  p2        text
FORM feeding_data .
   SELECT ebeln
           bukrs
           buzei
           hkont
           bschl
           kostl
           mwsts
           dmbtr
           belnr
      FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_bseg
                WHERE bukrs IN bukrs
                    AND belnr IN belnr.
   SELECT saknr txt20  FROM skat
     INTO CORRESPONDING FIELDS OF TABLE it_desc
       FOR ALL ENTRIES IN it_bseg
             WHERE saknr = it_bseg-hkont AND
                   spras = sy-langu.
   IF it_desc IS NOT INITIAL.
     LOOP AT it_bseg INTO wa_bseg.
       READ TABLE it_desc INTO wa_desc WITH KEY saknr = wa_bseg-hkont.
       IF sy-subrc = '0'.
         wa_bseg-txt20 = wa_desc-txt20.
         MODIFY it_bseg FROM wa_bseg.
       ENDIF.
     ENDLOOP.
   ENDIF.
   SELECT  * FROM bseg
           INTO CORRESPONDING FIELDS OF TABLE it_main
           WHERE belnr IN belnr AND
                 shkzg = 'S'.
   LOOP AT it_main INTO wa_main.
     SELECT SINGLE lifnr FROM bseg
       INTO wa_main-lifnr
       WHERE belnr = belnr-low.
     SELECT SINGLE bankl bankn FROM lfbk
            INTO (wa_main-bankl, wa_main-bankn)
            WHERE bankl = wa_main-lifnr.
    SELECT SINGLE budat bldat FROM bkpf
      INTO (wa_main-budat, wa_main-bldat)
      WHERE belnr = belnr-low.
     SELECT SINGLE bedat FROM ekko
            INTO wa_main-bedat
            WHERE ebeln = wa_main-ebeln.
     MODIFY it_main FROM wa_main.
     CLEAR wa_main.
   ENDLOOP.
ENDFORM.                    " FEEDING_DATA
*&      Form  CONTROLL_INTERNAL
*       text
*  -->  p1        text
*  <--  p2        text
FORM controll_internal .
   LOOP AT it_bseg INTO wa_bseg.
*  lw_bseg = wa_bseg.
     AT NEW belnr.
       i_bseg-buzei = wa_bseg-buzei.
       i_bseg-hkont = wa_bseg-hkont.
       i_bseg-bschl = wa_bseg-bschl.
       i_bseg-txt20 = wa_bseg-txt20.
       i_bseg-kostl = wa_bseg-kostl.
       i_bseg-mwsts = wa_bseg-mwsts.
       i_bseg-dmbtr = wa_bseg-dmbtr.
       APPEND i_bseg.
      ENDAT.
   ENDLOOP.
ENDFORM.                    " CONTROLL_INTERNAL