Spool PDF Download
DATA: lv_spool LIKE tsp01-rqident.
* Submit Report
SUBMIT zreport
WITH p_matnr = i_matnr
TO SAP-SPOOL
WITHOUT SPOOL DYNPRO
DESTINATION space
NEW LIST IDENTIFICATION 'X'
IMMEDIATELY space
WITH p_pdf = 'X'
AND RETURN.
IMPORT lv_spool FROM MEMORY ID 'ZMEMORY'.
FREE MEMORY ID 'ZMEMORY'.
* Spool to PDF conversions
DATA: gd_spool_nr LIKE tsp01-rqident,
gd_destination LIKE rlgrap-filename,
gd_bytecount LIKE tst01-dsize,
gd_buffer TYPE string.
DATA: gd_subject LIKE sodocchgi1-obj_descr,
it_mess_bod LIKE solisti1 OCCURS 0 WITH HEADER LINE,
it_mess_att LIKE solisti1 OCCURS 0 WITH HEADER LINE,
gd_sender_type LIKE soextreci1-adr_typ,
gd_attachment_desc TYPE so_obj_nam,
gd_attachment_name TYPE so_obj_des.
* Binary store for PDF
DATA: BEGIN OF it_pdf_output OCCURS 0.
INCLUDE STRUCTURE tline.
DATA: END OF it_pdf_output.
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
EXPORTING
src_spoolid = lv_spool
no_dialog = ''
dst_device = ''
IMPORTING
pdf_bytecount = gd_bytecount
TABLES
pdf = it_pdf_output
EXCEPTIONS
err_no_abap_spooljob = 1
err_no_spooljob = 2
err_no_permission = 3
err_conv_not_possible = 4
err_bad_destdevice = 5
user_cancelled = 6
err_spoolerror = 7
err_temseerror = 8
err_btcjob_open_failed = 9
err_btcjob_submit_failed = 10
err_btcjob_close_failed = 11
OTHERS = 12.
CHECK sy-subrc = 0.
data: filename like RLGRAP-FILENAME .
CONCATENATE 'C:\Users\Kaan Ozdogan\Desktop\'
i_matnr '.pdf' INTO filename .
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
bin_filesize = gd_bytecount
filename = filename
filetype = 'BIN'
TABLES
data_tab = it_pdf_output.
Kaydol:
Kayıt Yorumları (Atom)
Hiç yorum yok:
Yorum Gönder