当前位置：首页 > news >正文

SAP ABAP 直接把内表转换成PDF格式（smartform的打印函数输出OTF格式数据）

news 2025/7/5 14:40:30

直接上代码：

REPORT zcycle055.DATA: lt_tab TYPE TABLE OF zpps001.
DATA: ls_tab TYPE zpps001.ls_tab-werks = '1001'.
ls_tab-gamng = '150.00'.
ls_tab-gstrp = '20201202'.
ls_tab-aufnr = '000010000246'.
ls_tab-auart = '标准生产'.
ls_tab-gltrp = '20201205'.
ls_tab-matnr = '04-r02a000-00005'.
ls_tab-maktx = 'Cycle is handsome!'.
ls_tab-ernam = 'lf002'.
ls_tab-erdat = '20201202'.
ls_tab-zcwb = 'MO20120003'.
ls_tab-zdddw = '盒'.
ls_tab-ftrmi = '20201210'.
ls_tab-zzczgsmc = 'Cycle有限责任公司'.APPEND ls_tab TO lt_tab.
CLEAR ls_tab.PERFORM export_pdf.FORM export_pdf.DATA:zsmart_name TYPE rs38l_fnam.CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'EXPORTINGformname           = 'ZPP001'IMPORTINGfm_name            = zsmart_nameEXCEPTIONSno_form            = 1no_function_module = 2OTHERS             = 3.DATA: w_ctrlop TYPE ssfctrlop, "Smart Forms: 控制结构 "W_CONTROLw_compop TYPE ssfcompop, "SAP Smart Forms: 智能写作器 (传输) 选项"W_OUTPUT.w_return TYPE ssfcrescl. "Smart Forms: 表格打印结束时返回值DATA: len           TYPE i,w_filesize    TYPE i,g_pdf_xstring TYPE xstring,l_lines       TYPE TABLE OF tline WITH HEADER LINE.DATA  doctab TYPE TABLE OF docs WITH HEADER LINE.DATA  itab LIKE tline OCCURS 0 WITH HEADER LINE.DATA: file_name TYPE string,fullpath  TYPE string,path      TYPE string,p_sefile  LIKE rlgrap-filename VALUE 'D:\'.           "'/usr/sap/tmp/'.w_ctrlop-getotf    = 'X'."OTF 表的返回w_ctrlop-no_dialog = 'X'."关闭打印对话框"w_ctrlop-no_open   = 'X'."no dialog box"w_ctrlop-no_close  = 'X'."no*&W_COMPOP-TDNOPRINT = 'X'.w_compop-tdnoprev  = 'X'."没有打印预览"W_COMPOP用来设置打印参数弹出对话框中的值，下面这几个参数不必要
*  W_COMPOP-TDNEWID  = 'X'.    "New Spoolw_compop-tdimmed  = 'X'.w_compop-tddelete = ''.    "Delete Spool After Printw_compop-tdfinal  = 'X'.w_compop-tdiexit  = 'X'.    "Exit after printing in print previeww_compop-tddest   = 'lp01'.  "设备名称w_compop-xdf2outdev = 'lp01'.w_compop-tdarmod  = '1'.w_compop-tdnoprev = 'X'.        "隐藏报表预览功能，默认为空*&smartforms打印 ,将打印的值输入到W_RETURN-OTFDATA[]中CALL FUNCTION zsmart_nameEXPORTINGcontrol_parameters = w_ctrlopoutput_options     = w_compop
*     totalpages         = totalpages
*     zbukrs             = p_bukrs
*     zcb                = cb"gth_header         = gth_alv_selIMPORTINGjob_output_info    = w_returnTABLESt_item             = lt_tab  "传所选行项目明细内表 传到sfEXCEPTIONSformatting_error   = 1internal_error     = 2send_error         = 3user_canceled      = 4OTHERS             = 5."CONVERT_OTF函数取不到lines的返回值
"但是可以直接获取到PDF数据的XSTRING数据，可以用于后台直接OPEN DATASET 生成文件CALL FUNCTION 'CONVERT_OTF'EXPORTINGformat                = 'PDF'IMPORTINGbin_filesize          = lenbin_file              = g_pdf_xstringTABLESotf                   = w_return-otfdata[]lines                 = itabEXCEPTIONSerr_max_linewidth     = 1err_format            = 2err_conv_not_possible = 3err_bad_otf           = 4OTHERS                = 5."后台OPEN DATASET 直接生成PDF文件CONCATENATE p_sefile sy-uname '-' sy-uzeit '.pdf' INTO file_name. "addrssOPEN DATASET file_name FOR OUTPUT IN BINARY MODE." MESSAGE L_MESSAGE_DB.IF sy-subrc EQ 0.TRANSFER g_pdf_xstring TO file_name.CLOSE DATASET file_name.ELSE.MESSAGE 'OPEN ERROR！！' TYPE 'E'.STOP.ENDIF."CONVERT_OTF_2_PDF 可以生成PDF格式的内表CALL FUNCTION 'CONVERT_OTF_2_PDF'   "转换otf数据为二进制PDF文件,可以用于前台直接下载PDF文件
*    EXPORTING
*      use_otf_mc_cmd         = 'X'
*      archive_index          = archive_indexIMPORTINGbin_filesize           = lenTABLESotf                    = w_return-otfdata[]doctab_archive         = doctablines                  = l_lines[]EXCEPTIONSerr_conv_not_possible  = 1err_otf_mc_noendmarker = 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."前台下载PDF文件CONCATENATE 'D:\' sy-uname '-' sy-uzeit ' FFF.pdf' INTO  file_name."定义文件名"这一段不屏蔽，  在打印的时候会有显示选择路径的对话框，屏蔽则直接保存在上面的文件名"file_name  指定的路径CALL METHOD cl_gui_frontend_services=>file_save_dialog    "保存文件窗口（选择路径）EXPORTINGdefault_extension    = 'PDF'file_filter          = '*.PDF'default_file_name    = file_nameCHANGINGfilename             = file_namepath                 = pathfullpath             = fullpath
*     user_action          = uaEXCEPTIONScntl_error           = 1error_no_gui         = 2not_supported_by_gui = 3OTHERS               = 4.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ELSE.CALL FUNCTION 'GUI_DOWNLOAD'   "保存文件在本地EXPORTINGbin_filesize            = lenfilename                = file_namefiletype                = 'BIN'IMPORTINGfilelength              = w_filesizeTABLESdata_tab                = l_lines[]EXCEPTIONSfile_write_error        = 1no_batch                = 2gui_refuse_filetransfer = 3invalid_type            = 4no_authority            = 5unknown_error           = 6header_not_allowed      = 7separator_not_allowed   = 8filesize_not_allowed    = 9header_too_long         = 10dp_error_create         = 11dp_error_send           = 12dp_error_write          = 13unknown_dp_error        = 14access_denied           = 15dp_out_of_memory        = 16disk_full               = 17dp_timeout              = 18file_not_found          = 19dataprovider_exception  = 20control_flush_error     = 21OTHERS                  = 22.IF sy-subrc <> 0.MESSAGE  'File not downloaded'  TYPE  'I' .ENDIF.ENDIF.ENDFORM.                    "export_pdf