ABAP：Smart生成PDF.docx

注意：生成PDF时，Smartform中的参数 control_parameters-getotf = X. 必须*&-*& REPORT ZHARPO_010*&*&-*&*& Smartform生成PDF，可设置不显示Smartform打印窗口*&-*REPORT zharpo_010 NO STANDARD PAGE HEADING.TABLES rlgrap.DATA fm_name TYPE rs38l_fnam.DATA control_parameters TYPE ssfctrlop.DATA job_output_info TYPE ssfcrescl.DATA job_output_options TYPE ssfcresop.DATA itab TYPE TABLE OF bkpf.DATA BEGIN OF pdf OCCURS 10. INCLUDE STRUCTURE tline.DATA END OF pdf.DATA len TYPE i. PDF文件大小PARAMETERS filename TYPE rlgrap-filename.AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename. PERFORM f4_file_save CHANGING filename.START-OF-SELECTION. SELECT bukrs belnr bldat UP TO 300 ROWS INTO CORRESPONDING FIELDS OF TABLE itab FROM bkpf. control_parameters-getotf = X. 此参数必须，否则不会导出PDF而直接显示smartform control_parameters-no_close = . control_parameters-no_dialog = X. 不显示打印对话框 CALL FUNCTION SSF_FUNCTION_MODULE_NAME EXPORTING formname = ZHARPO_001 IMPORTING fm_name = fm_name EXCEPTIONS no_form = 1 no_function_module = 2 OTHERS = 3. CHECK: sy-subrc = 0. CALL FUNCTION fm_name EXPORTING control_parameters = control_parameters IMPORTING job_output_info = job_output_info job_output_options = job_output_options TABLES itab2 = itab EXCEPTIONS formatting_error = 1 internal_error = 2 send_error = 3 user_canceled = 4 OTHERS = 5. CHECK: sy-subrc = 0.* convert smartforms to PDF CALL FUNCTION CONVERT_OTF EXPORTING format = PDF IMPORTING bin_filesize = len TABLES otf = job_output_info-otfdata lines = pdf EXCEPTIONS err_max_linewidth = 1 err_format = 2 err_conv_not_possible = 3 OTHERS = 4. CHECK: sy-subrc = 0. CALL FUNCTION WS_DOWNLOAD EXPORTING filename = filename filetype = BIN bin_filesize = len TABLES data_tab = pdf EXCEPTIONS file_open_error = 1 file_write_error = 2 invalid_filesize = 3 invalid_table_width = 4 invalid_type = 5 no_batch = 6 unknown_error = 7 OTHERS = 8. IF sy-subrc 0. MESSAGE ERROR! TYPE E. ENDIF.*&-*& Form F4_FILE_SAVE*&-* text*-* file_save_dialog EXPORTING default_file_name = l_file initial_directory = l_path CHANGING filename = l_file path = l_path fullpath = l_fullpath EXCEPTIONS cntl_error = 1 error_no_gui =