事务代码：STRANS 启动转换器
步骤
1. 将参数填入模板，并另存为word 2003 xml文档
2.使用网页打开xml文档，并将xml拷贝到转换器tt:template中，添加参数
3.替换参数，部分xml可能存在错误或者跑偏根据实际情况检查修改
4.程序调用
FORM frm_export_proof .DATA:xml_str TYPE string,l_bindata TYPE xstring,l_cntbin TYPE sdokcntbins,w_len TYPE i,l_filename TYPE string,l_file_path TYPE string,l_full_path TYPE string,l_doc_name TYPE localfile.DATA: lo_xml_doc TYPE REF TO cl_xml_document.*调用STRANSCONCATENATE gs_alv-personid_ext gs_alv-ename gs_alv-zcomname '收入证明' INTO l_filename SEPARATED BY '-'.IF p_zmlx = TEXT-002 AND p_langu = TEXT-017.CALL TRANSFORMATION zword_proof_income_zhSOURCEgs_alv = gs_alvRESULT XML xml_str.ENDIF.IF p_zmlx = TEXT-002 AND p_langu = TEXT-018.DO 21 TIMES.CONCATENATE ' ' gs_alv-zdat02 INTO gs_alv-zdat02 SEPARATED BY '' .ENDDO.DO 4 TIMES.CONCATENATE ' ' gs_alv-zcomnature INTO gs_alv-zcomnature SEPARATED BY '' .ENDDO.DO 2 TIMES.CONCATENATE ' ' gs_alv-zcomname INTO gs_alv-zcomname SEPARATED BY ' ' .ENDDO.DO 11 TIMES.CONCATENATE ' ' gs_alv-zcontact INTO gs_alv-zcontact SEPARATED BY '' .CONCATENATE ' ' gs_alv-ztel INTO gs_alv-ztel SEPARATED BY '' .ENDDO.CALL TRANSFORMATION zword_proof_income_enSOURCEgs_alv = gs_alvRESULT XML xml_str.ENDIF.IF p_zmlx = TEXT-003.CALL TRANSFORMATION zword_proof_cpf_incomeSOURCEgs_alv = gs_alvRESULT XML xml_str.ENDIF.CALL FUNCTION 'SCMS_STRING_TO_XSTRING'EXPORTINGtext = xml_str
* MIMETYPE = ' 'IMPORTINGbuffer = l_bindataEXCEPTIONSfailed = 1OTHERS = 2.CLEAR w_len.CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'EXPORTINGbuffer = l_bindataIMPORTINGoutput_length = w_lenTABLESbinary_tab = l_cntbin.CALL METHOD cl_gui_frontend_services=>file_save_dialog "调用保存对话框EXPORTINGdefault_extension = 'DOC' "把文件保存成.doc格式 （doc文档）default_file_name = l_filenameCHANGINGfilename = l_filenamepath = l_file_pathfullpath = l_full_pathEXCEPTIONScntl_error = 1error_no_gui = 2not_supported_by_gui = 3OTHERS = 4.IF sy-subrc NE 0.ELSE.l_doc_name = l_full_path.CREATE OBJECT lo_xml_doc.lo_xml_doc->parse_string( xml_str ).lo_xml_doc->export_to_file( l_doc_name ).ENDIF.ENDFORM.
预览
CALL SCREEN 0100.
PBO：
MODULE initial_0100 OUTPUT.IF go_html_control IS NOT BOUND."创建容器与组件对象PERFORM create_container_assembly."设置组件展示用的内容PERFORM set_assembly_data.ENDIF.ENDMODULE.*&---------------------------------------------------------------------*
*& Form CREATE_CONTAINER_ASSEMBLY
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM create_container_assembly .IF go_html_container IS INITIAL .CREATE OBJECT go_html_containerEXPORTINGcontainer_name = 'PDF'.CREATE OBJECT go_html_controlEXPORTINGparent = go_html_container.ENDIF.ENDFORM.
*&---------------------------------------------------------------------*
*& Form SET_ASSEMBLY_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM set_assembly_data .DATA:xml_str TYPE string,l_bindata TYPE xstring,l_cntbin TYPE sdokcntbins,w_len TYPE i,l_filename TYPE string,l_file_path TYPE string,l_full_path TYPE string,l_doc_name TYPE localfile.*调用STRANSIF p_zmlx = TEXT-002 AND p_langu = TEXT-017.CALL TRANSFORMATION zword_proof_income_zhSOURCEgs_alv = gs_alvRESULT XML xml_str.ENDIF.IF p_zmlx = TEXT-002 AND p_langu = TEXT-018.CALL TRANSFORMATION zword_proof_income_enSOURCEgs_alv = gs_alvRESULT XML xml_str.ENDIF.IF p_zmlx = TEXT-003.CALL TRANSFORMATION zword_proof_cpf_incomeSOURCEgs_alv = gs_alvRESULT XML xml_str.ENDIF.CALL FUNCTION 'SCMS_STRING_TO_XSTRING'EXPORTINGtext = xml_str
* MIMETYPE = ' 'IMPORTINGbuffer = l_bindataEXCEPTIONSfailed = 1OTHERS = 2.CLEAR w_len.CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'EXPORTINGbuffer = l_bindataIMPORTINGoutput_length = w_lenTABLESbinary_tab = l_cntbin."展示PDF文件CALL METHOD go_html_control->load_data(EXPORTINGtype = 'application'subtype = 'PDF'IMPORTINGassigned_url = lv_urlCHANGINGdata_table = l_cntbinEXCEPTIONSdp_invalid_parameter = 1dp_error_general = 2cntl_error = 3OTHERS = 4 )."展示组件内容CALL METHOD go_html_control->show_url(url = lv_urlin_place = 'X' ).
ENDFORM.
PAI：
MODULE exit INPUT.LEAVE TO SCREEN 0.
ENDMODULE.
问题
notes：1146711
