Smartform for purchase order
Hi All,
I have a Smartform to print all the POs created and changed via ME21n. The print program is RSNAST00.
For each of the Purchase orders, a separate spool is created. Meaning, if 2 POs are changed, then there are 2 spools that are created; one for each.
However, When I create one PO and change another PO, only one spool is getting created (but we want 2 separate spools). We want one spool for the New PO and another spool for the changed PO.
Here is the code i have right now. Please let me know how i can go about achieving this.
ITCPO-TDCOVER = NAST-TDOCOVER.
ITCPO-TDCOPIES = NAST-ANZAL.
ITCPO-TDDATASET = NAST-DSNAM.
ITCPO-TDSUFFIX1 = NAST-DSUF1.
ITCPO-TDSUFFIX2 = NAST-DSUF2.
ITCPO-TDIMMED = NAST-DIMME.
ITCPO-TDDELETE = NAST-DELET.
ITCPO-TDSENDDATE = NAST-VSDAT.
ITCPO-TDSENDTIME = NAST-VSURA.
ITCPO-TDPROGRAM = SY-REPID.
ITCPO-TDDEST = NAST-LDEST.
ITCPO-TDNEWID = 'X'.
ITCPO-TDNOPRINT = 'X'.
ITCPO-TDPREVIEW = 'X'.
IF L_DOC-XEKKO-FRGKE NE 'C'.
ITCPO-TDNOPRINT = 'X'.
OUTPUT-TDNOPRINT = 'X'.
OUTPUT-TDNEWID = 'X'.
OUTPUT-TDDEST = ITCPO-TDDEST.
ENDIF.
JOB_OUTPUT_OPTIONS-TDDEST = ITCPO-TDDEST.
JOB_OUTPUT_OPTIONS-TDNEWID = 'X'.
L_FORMNAME = TNAPR-FONAM.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = TNAPR-SFORM
FORMNAME = L_FORMNAME
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
CONTROL_PARAMETERS = CONTROL
OUTPUT_OPTIONS = OUTPUT
USER_SETTINGS = ' '
EKKO = L_DOC-XEKKO
PEKKO = L_DOC-XPEKKO
DRUVO = L_DRUVO
IMPORTING
JOB_OUTPUT_OPTIONS = JOB_OUTPUT_OPTIONS
JOB_OUTPUT_INFO = JOB_OUTPUT_INFO
TABLES
EKPO = L_DOC-XEKPO
PEKPO = L_DOC-XPEKPO
XAEND = IT_XAEND
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5.
IF SY-SUBRC <> 0.
Thanks!
Sandeep