Problem in Passing the select-options data in smartforms

Question

Dear ABAPers,
I have developed new layout for Delivery Chellan using smartforms.
using parameters i am getting document no, corresponding all details getting print.
but the client wants to use multiple document no.
in function module also i am passing only one import parameter (i.e. doc.no).
my requirement is how to pass multiple data in smartfroms.
Thanks & Regards,
Ashok

Answer 1

Dear ABAPers,
Here i give my code Please check it out and tell me where i am going wrong.
*& Report  ZMM_DC_FORM                                                 *
REPORT  ZMM_DC_FORM                            .
       Data Declaration
tables : mseg,
         mkpf,
         ekpo,
         ekko,
         objk,
         mbew,
         ser03,
         twlad,
         makt,
         adrc.
data : begin of struct_mblnr,
       mblnr type mblnr,
       end of struct_mblnr.
data : it_mblnr like table of struct_mblnr with header line.
data : begin of i_struct,
       mblnr like mseg-mblnr,
       mjahr like mseg-mjahr,
       matnr like mseg-matnr,
       erfmg like mseg-erfmg,
       werks like mseg-werks,
       lgort like mseg-lgort,
       ebeln like mseg-ebeln,
       ebelp like mseg-ebelp,
       umwrk like mseg-umwrk,
       end of i_struct.
data : begin of bednr_struct,
       matnr type ekpo-matnr,
       bednr type ekpo-bednr,
       end of bednr_struct.
data : begin of price_struct,
       matnr type mseg-matnr,
       verpr type mbew-verpr,
       stprs type mbew-stprs,
       end of price_struct.
data : begin of serial_struct,
       matnr like objk-matnr,
       sernr like objk-sernr,
       end of serial_struct.
data : begin of fi_struct,
       matnr type mseg-matnr,
       maktx type makt-maktx,
       bednr type ekpo-bednr,
       erfmg type mseg-erfmg,
       verpr type mbew-verpr,
       val_p type mbew-verpr,
       end of fi_struct.
data : it_tab like table of i_struct with header line.
data : it_add1 type table of adrc with header line,
       it_add2 type table of adrc with header line.
data : it_bednr like table of bednr_struct with header line.
data : it_price like table of price_struct with header line.
data : it_ser type table of ZMM_DC_SERIAL with header line.
data : it_final like table of fi_struct with header line.
data : s_date like mkpf-budat.
data : s_ebeln like ekpo-ebeln.
DATA : FM_NAME TYPE RS38L_FNAM.
        Selection Screen Variables
selection-screen : begin of block b1 with frame title text-001.
select-options : s_mblnr for mseg-mblnr.
parameters : s_mjahr type mseg-mjahr.
selection-screen : end of block b1.
          Start of Selection
start-of-selection.
select mblnr from mseg into table it_mblnr where mblnr ge s_mblnr-low
                                 and   mblnr le s_mblnr-high.
delete adjacent Duplicates  from it_mblnr.
*loop at it_mblnr.
*write : it_mblnr-mblnr.
*endloop.
loop at it_mblnr.
select mblnr
       mjahr
       matnr
       erfmg
       werks
       lgort
       ebeln
       ebelp
       umwrk from mseg into table it_tab where mblnr = it_mblnr-mblnr
                                       and   mjahr = s_mjahr
                                       and   xauto <> 'X'.
read table it_tab index 1.
*code for PO Number
s_ebeln = it_tab-ebeln.
*code for Supplying plant address
select single adrnr from twlad into twlad-adrnr where werks = it_tab-werks
                                                and   lgort = it_tab-lgort.
select single * from adrc into it_add1 where addrnumber = twlad-adrnr.
clear twlad-adrnr.
*code for receiving plant address
select single lgort from ekpo into ekpo-lgort where ebeln = it_tab-ebeln
                                              and   ebelp = it_tab-ebelp.
select single adrnr from twlad into twlad-adrnr where werks = it_tab-umwrk
                                                and   lgort = ekpo-lgort.
select single * from adrc into it_add2 where addrnumber = twlad-adrnr.
clear : twlad-adrnr,
        ekpo-lgort.
*code for the Material Document Date
select single budat from mkpf into s_date where mblnr = it_mblnr-mblnr
                                              and   mjahr = s_mjahr.
loop at it_tab.
it_final-matnr = it_tab-matnr.
it_final-erfmg = it_tab-erfmg.
*Code for Material Description
select single maktx from makt into makt-maktx where matnr = it_tab-matnr.
it_final-maktx = makt-maktx.
clear makt-maktx.
*Code for Service order Number
select single matnr
              bednr from ekpo into it_bednr where ebeln = it_tab-ebeln
                                     and   ebelp = it_tab-ebelp
                                     and   matnr = it_tab-matnr.
it_final-bednr = it_bednr-bednr.
*Code for Price for the Material
select single matnr
              verpr
              stprs from mbew into it_price where matnr = it_tab-matnr
                                            and   bwkey = it_tab-werks.
if it_price-verpr <> 0.
it_final-verpr = it_price-verpr.
else.
it_final-verpr = it_price-stprs.
endif.
it_final-val_p = it_final-erfmg * it_price-stprs.
append it_final.
clear it_final.
endloop.
*Code for Serial Number
select single obknr from ser03 into ser03-obknr where mblnr = it_mblnr-mblnr
                                                and   vorgang = 'MMSL'.
select matnr
       sernr from objk into table it_ser where obknr = ser03-obknr.
clear ser03-obknr.
*Calling Function Module for Smartform
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
  EXPORTING
    FORMNAME                 = 'ZMM_DC_FORM'
  VARIANT                  = ' '
  DIRECT_CALL              = ' '
IMPORTING
   FM_NAME                  = FM_NAME
EXCEPTIONS
  NO_FORM                  = 1
  NO_FUNCTION_MODULE       = 2
  OTHERS                   = 3
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 FM_NAME
EXPORTING
L_MBLNR = it_mblnr-mblnr
L_DATE = S_DATE
L_EBELN = S_EBELN
IT_ADD1 = IT_ADD1
IT_ADD2 = IT_ADD2
TABLES
IT_FINAL = IT_FINAL
IT_SER = IT_SER.
endloop.
Please help me to solve this problem.It is very urgent.
Thanks & Regards,
Ashok.