REPORT ztestscript .
TABLES : ekko,
ekpo,
kna1,
usr01,
mara,
makt.
DATA : BEGIN OF op.
INCLUDE STRUCTURE itcpo.
DATA : END OF op.
PARAMETERS: p_ebeln LIKE ekko-ebeln,"Purchasing document number
p_ebelp LIKE ekpo-ebelp."Purchasing Document Item
CLEAR ekpo.
SELECT SINGLE * FROM ekpo
WHERE ebeln = p_ebeln AND
ebelp = p_ebelp.
CLEAR kna1.
SELECT SINGLE name1 FROM kna1
INTO kna1-name1
WHERE kunnr = ekpo-kunnr.
CLEAR makt.
SELECT SINGLE maktx FROM makt
INTO makt-maktx
WHERE matnr = ekpo-matnr AND
spras = sy-langu.
CLEAR usr01.
SELECT SINGLE * FROM usr01 WHERE bname = sy-uname.
op-tddest= usr01-spld."Output device (printer)
op-tdimmed = 'X'.
"Print immediately
op-tddelete= 'X'.
"Delete after printing
op-tdprogram = 'SCRIPT'.
"Program Name
CALL FUNCTION 'OPEN_FORM'
EXPORTING
device = 'PRINTER'
dialog = ' '
form = 'ZTEST'
language = sy-langu
options= op
EXCEPTIONS
OTHERS = 1.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element= 'MAIN'
window = 'MAIN'
type = 'BODY'
function = 'SET'.
CALL FUNCTION 'CLOSE_FORM'
EXCEPTIONS
unopened = 1
OTHERS = 2.
|