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.

Hiç yorum yok:

Yorum Gönder