陕西大型网站建设,创建自己的个人网站,电子商务网站建设与管理试卷6,国内自建站最近客户有一个需求是需要讲发票的smartform 发送到第三方系统。
原先的做法是#xff0c;SAP只是发送发票数据过去#xff0c;由第三方系统去自己创建PDF打印。
那么就遇到了一个问题#xff0c;SAP中的发票打印产生修改的时候。第三方系统也要同步修改#xff0c;
涉及…最近客户有一个需求是需要讲发票的smartform 发送到第三方系统。
原先的做法是SAP只是发送发票数据过去由第三方系统去自己创建PDF打印。
那么就遇到了一个问题SAP中的发票打印产生修改的时候。第三方系统也要同步修改
涉及到数据发送不完全的还需要修改发送数据的接口。
这样每次的变更对各系统来说就比较麻烦且工作量大效率也不高。
后来研究了下发现可以将smartform转换成PDF再转成xstring去发送,
对方收到之后再转回PDF。 DATA: lv_func_name TYPE rs38l_fnam. 数据元素DATA: lw_output_options TYPE ssfcompop .DATA: ls_document_output TYPE ssfcrespd,ls_job_output TYPE ssfcrescl,ls_job_options TYPE ssfcresop,ls_control_parameters TYPE ssfctrlop. Smart Forms: 控制结构.DATA: lv_message TYPE string.DATA: lv_bin_size TYPE i,lv_pdf_xstring TYPE xstring.DATA: lt_tline TYPE STANDARD TABLE OF tline.CALL FUNCTION SSF_FUNCTION_MODULE_NAMEEXPORTINGformname ZSD_SF_INVOICE_NEWIMPORTINGfm_name lv_func_nameEXCEPTIONSno_form 1no_function_module 2OTHERS 3.IF sy-subrc 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.
*设置不打开对话框ls_control_parameters-no_dialog X.ls_control_parameters-langu sy-langu.ls_control_parameters-getotf X.lw_output_options-tdnoprev X.CALL FUNCTION lv_func_nameEXPORTING
* ARCHIVE_INDEX
* ARCHIVE_INDEX_TAB
* ARCHIVE_PARAMETERS control_parameters ls_control_parameters
* MAIL_APPL_OBJ
* MAIL_RECIPIENT
* MAIL_SENDER output_options lw_output_options
* USER_SETTINGS Xls_head ls_headIMPORTINGdocument_output_info ls_document_outputjob_output_info ls_job_outputjob_output_options ls_job_optionsTABLESit_items lt_itemEXCEPTIONSformatting_error 1internal_error 2send_error 3user_canceled 4OTHERS 5.IF sy-subrc 0.CALL FUNCTION MESSAGE_TEXT_BUILDEXPORTINGmsgid sy-msgidmsgnr sy-msgnomsgv1 sy-msgv1msgv2 sy-msgv2msgv3 sy-msgv3msgv4 sy-msgv4IMPORTINGmessage_text_output lv_message.ENDIF.
*CALL FUNCTION CONVERT_OTFEXPORTINGformat PDFIMPORTINGbin_filesize lv_bin_sizebin_file lv_pdf_xstringTABLESotf ls_job_output-otfdatalines lt_tlineEXCEPTIONSerr_max_linewidth 1err_format 2err_conv_not_possible 3err_bad_otf 4OTHERS 5.IF sy-subrc 0.CALL FUNCTION MESSAGE_TEXT_BUILDEXPORTINGmsgid sy-msgidmsgnr sy-msgnomsgv1 sy-msgv1msgv2 sy-msgv2msgv3 sy-msgv3msgv4 sy-msgv4IMPORTINGmessage_text_output lv_message.RETURN.ENDIF.*lv_pdf_xstring 就是我们需要的smartform xtring
*可以放到下面这个结构中
TYPES:BEGIN OF ty_invoice,vbeln TYPE vbeln_vf,xstring TYPE xstring,END OF ty_invoice.
DATA: gs_invoice TYPE ty_invoice.