ABAP：Smartform生成PDF.docxVIP

注意：生成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 TABLEOF bkpf.DATABEGINOF pdf OCCURS 10.INCLUDESTRUCTURE tline.DATAENDOF pdf.DATA len TYPE i. PDF文件大小?PARAMETERS filename TYPE rlgrap-filename.?AT SELECTION-SCREEN ONVALUE-REQUEST FOR filename. PERFORM f4_file_save CHANGING filename.??START-OF-SELECTION.SELECT bukrs belnr bldat UP TO 300 ROWSINTOCORRESPONDING FIELDS OFTABLE itabFROM bkpf.? control_parameters-getotf = X. 此参数必须，否则不会导出PDF而直接显示smartform control_parameters-no_close = . control_parameters-no_dialog = X. 不显示打印对话框?CALLFUNCTIONSSF_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.?CALLFUNCTION 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 PDFCALLFUNCTIONCONVERT_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.?CALLFUNCTIONWS_DOWNLOAD EXPORTING filename = filename filetype = BIN bin