*&---------------------------------------------------------------------*
*& Report?ZQS50008.?將程式中write出來的語句down成pdf格式的一般用于排job
*&? 如果是程式中是用write語句寫的輸出的數(shù)據(jù)，一般可以直接在界面上選擇sap自帶的下載成pdf的恤浪，
*&? 但是如果要后臺排job自動下載可以用如下方法來轉(zhuǎn)換
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT? ZQS50008.
TABLES ZT507.
DATA LS_PRI_PARAMS TYPE PRI_PARAMS.
DATA LT_SPOOL_REQUESTS TYPE STANDARD TABLE OF RSPORQ.
DATA LS_SPOOL_REQUESTS TYPE RSPORQ.
DATA LV_PARAM TYPE CHAR40.
DATA LV_SPOOL_ID TYPE RSPOID.
DATA LT_PDF TYPE STANDARD TABLE OF TLINE.
DATA LV_PDF_BYTECOUNT TYPE I.
DATA LV_FILETYPE TYPE CHAR10.
DATA LV_CODEPAGE TYPE ABAP_ENCODING.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
SELECT-OPTIONS: S_RETNO FOR ZT507-RETNO NO INTERVALS.
PARAMETERS: P_6 RADIOBUTTON GROUP GRP1,
? ? ? ? ? ? P_4 RADIOBUTTON GROUP GRP1.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME.
PARAMETERS: C_1 AS CHECKBOX DEFAULT 'X'. "是否附加Invoice信息
PARAMETERS: C_2 AS CHECKBOX DEFAULT 'X'. "是否附加頁碼
SELECTION-SCREEN END OF BLOCK B2.
PARAMETERS P_PATH TYPE STRING.
START-OF-SELECTION.
* Import the current print parameters
? CALL FUNCTION 'GET_PRINT_PARAMETERS'
? ? EXPORTING
? ? ? EXPIRATION? ? ? ? ? ? = 1
? ? ? IMMEDIATELY? ? ? ? ? ? = SPACE
? ? ? NO_DIALOG? ? ? ? ? ? ? = 'X'
? ? IMPORTING
? ? ? OUT_PARAMETERS? ? ? ? = LS_PRI_PARAMS
? ? EXCEPTIONS
? ? ? ARCHIVE_INFO_NOT_FOUND = 1
? ? ? INVALID_PRINT_PARAMS? = 2
? ? ? INVALID_ARCHIVE_PARAMS = 3
? ? ? OTHERS? ? ? ? ? ? ? ? = 4.
? IF SY-SUBRC <> 0.
? ? MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
? ? ? ? ? ? WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
? ENDIF.
* Submit the report program into the spool
? SUBMIT ZQB00095 TO SAP-SPOOL
? ? SPOOL PARAMETERS LS_PRI_PARAMS
? ? WITHOUT SPOOL DYNPRO
? ? WITH S_RETNO IN S_RETNO
? ? WITH P_6 = P_6
? ? WITH P_4 = P_4
? ? WITH C_1 = C_1
? ? WITH C_2 = C_2
? ? AND RETURN.
* Get a list of the current user's spool requests
? CALL FUNCTION 'RSPO_FIND_SPOOL_REQUESTS'
? ? EXPORTING
? ? ? RQOWNER? ? ? = SY-UNAME
? ? TABLES
? ? ? SPOOLREQUESTS = LT_SPOOL_REQUESTS
? ? EXCEPTIONS
? ? ? NO_PERMISSION = 1
? ? ? OTHERS? ? ? ? = 2.
? IF SY-SUBRC <> 0.
? ? MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
? ? ? ? ? ? WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
? ENDIF.
* Sort and read the first (newest) spool request
? SORT LT_SPOOL_REQUESTS BY RQCRETIME DESCENDING.
? READ TABLE LT_SPOOL_REQUESTS INTO LS_SPOOL_REQUESTS INDEX 1.
? LV_SPOOL_ID = LS_SPOOL_REQUESTS-RQIDENT.
* Use that request to create a PDF
? CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
? ? EXPORTING
? ? ? SRC_SPOOLID? = LV_SPOOL_ID
? ? IMPORTING
? ? ? PDF_BYTECOUNT = LV_PDF_BYTECOUNT
? ? TABLES
? ? ? PDF? ? ? ? ? = LT_PDF
? ? EXCEPTIONS
? ? ? OTHERS? ? ? ? = 12.
? IF SY-SUBRC <> 0.
? ? MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
? ? ? ? ? ? WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
? ENDIF.
? CONCATENATE P_PATH SY-DATUM SY-UZEIT'.pdf' INTO P_PATH.
? LV_FILETYPE = 'BIN'.
? LV_CODEPAGE = '8400'.
? CALL FUNCTION 'GUI_DOWNLOAD'
? ? EXPORTING
? ? ? BIN_FILESIZE? ? ? ? ? ? ? ? ? = LV_PDF_BYTECOUNT
? ? ? FILENAME? ? ? ? ? ? ? ? ? ? ? = P_PATH
? ? ? FILETYPE? ? ? ? ? ? ? ? ? ? ? = LV_FILETYPE
*? APPEND? ? ? ? ? ? ? ? ? ? ? ? ? = ' '
*? WRITE_FIELD_SEPARATOR? ? ? ? ? = ' '
*? HEADER? ? ? ? ? ? ? ? ? ? ? ? ? = '00'
*? TRUNC_TRAILING_BLANKS? ? ? ? ? = ' '
*? WRITE_LF? ? ? ? ? ? ? ? ? ? ? ? = 'X'
*? COL_SELECT? ? ? ? ? ? ? ? ? ? ? = ' '
*? COL_SELECT_MASK? ? ? ? ? ? ? ? = ' '
*? DAT_MODE? ? ? ? ? ? ? ? ? ? ? ? = ' '
*? CONFIRM_OVERWRITE? ? ? ? ? ? ? = ' '
*? NO_AUTH_CHECK? ? ? ? ? ? ? ? ? = ' '
? CODEPAGE? ? ? ? ? ? ? ? ? ? ? ? = LV_CODEPAGE
*? IGNORE_CERR? ? ? ? ? ? ? ? ? ? = ABAP_TRUE
*? REPLACEMENT? ? ? ? ? ? ? ? ? ? = '#'
*? WRITE_BOM? ? ? ? ? ? ? ? ? ? ? = ' '
*? TRUNC_TRAILING_BLANKS_EOL? ? ? = 'X'
*? WK1_N_FORMAT? ? ? ? ? ? ? ? ? ? = ' '
*? WK1_N_SIZE? ? ? ? ? ? ? ? ? ? ? = ' '
*? WK1_T_FORMAT? ? ? ? ? ? ? ? ? ? = ' '
*? WK1_T_SIZE? ? ? ? ? ? ? ? ? ? ? = ' '
*? WRITE_LF_AFTER_LAST_LINE? ? ? ? = ABAP_TRUE
*? SHOW_TRANSFER_STATUS? ? ? ? ? ? = ABAP_TRUE
* IMPORTING
*? FILELENGTH? ? ? ? ? ? ? ? ? ? ? =
? TABLES
? ? ? DATA_TAB? ? ? ? ? ? ? ? ? ? ? ? = LT_PDF
*? FIELDNAMES? ? ? ? ? ? ? ? ? ? ? =
? EXCEPTIONS
? ? FILE_WRITE_ERROR? ? ? ? ? ? ? ? = 1
? ? NO_BATCH? ? ? ? ? ? ? ? ? ? ? ? = 2
? ? GUI_REFUSE_FILETRANSFER? ? ? ? = 3
? ? INVALID_TYPE? ? ? ? ? ? ? ? ? ? = 4
? ? NO_AUTHORITY? ? ? ? ? ? ? ? ? ? = 5
? ? UNKNOWN_ERROR? ? ? ? ? ? ? ? ? = 6
? ? HEADER_NOT_ALLOWED? ? ? ? ? ? ? = 7
? ? SEPARATOR_NOT_ALLOWED? ? ? ? ? = 8
? ? FILESIZE_NOT_ALLOWED? ? ? ? ? ? = 9
? ? HEADER_TOO_LONG? ? ? ? ? ? ? ? = 10
? ? DP_ERROR_CREATE? ? ? ? ? ? ? ? = 11
? ? DP_ERROR_SEND? ? ? ? ? ? ? ? ? = 12
? ? DP_ERROR_WRITE? ? ? ? ? ? ? ? ? = 13
? ? UNKNOWN_DP_ERROR? ? ? ? ? ? ? ? = 14
? ? ACCESS_DENIED? ? ? ? ? ? ? ? ? = 15
? ? DP_OUT_OF_MEMORY? ? ? ? ? ? ? ? = 16
? ? DISK_FULL? ? ? ? ? ? ? ? ? ? ? = 17
? ? DP_TIMEOUT? ? ? ? ? ? ? ? ? ? ? = 18
? ? FILE_NOT_FOUND? ? ? ? ? ? ? ? ? = 19
? ? DATAPROVIDER_EXCEPTION? ? ? ? ? = 20
? ? CONTROL_FLUSH_ERROR? ? ? ? ? ? = 21
? ? OTHERS? ? ? ? ? ? ? ? ? ? ? ? ? = 22
? ? ? ? ? ? .
? IF SY-SUBRC <> 0.
* Implement suitable error handling here
? ENDIF.
* Now the PDF binary data is in the variable lt_pdf
* and the length in variable lv_pdf_bytecount.
* Go ahead and attach that to an e-mail!
