做ppt的图片素材网站有哪些,互联网网站怎么做,随州网站建设哪家好,前端开发培训机构济南七里河事务代码#xff1a;STRANS 启动转换器
步骤
1. 将参数填入模板#xff0c;并另存为word 2003 xml文档 2.使用网页打开xml文档#xff0c;并将xml拷贝到转换器tt:template中#xff0c;添加参数 3.替换参数#xff0c;部分xml可能存在错误或者跑偏根据实际情况检查修改 …事务代码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_XSTRINGEXPORTINGtext xml_str
* MIMETYPE IMPORTINGbuffer l_bindataEXCEPTIONSfailed 1OTHERS 2.CLEAR w_len.CALL FUNCTION SCMS_XSTRING_TO_BINARYEXPORTINGbuffer l_bindataIMPORTINGoutput_length w_lenTABLESbinary_tab l_cntbin.CALL METHOD cl_gui_frontend_servicesfile_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_XSTRINGEXPORTINGtext xml_str
* MIMETYPE IMPORTINGbuffer l_bindataEXCEPTIONSfailed 1OTHERS 2.CLEAR w_len.CALL FUNCTION SCMS_XSTRING_TO_BINARYEXPORTINGbuffer l_bindataIMPORTINGoutput_length w_lenTABLESbinary_tab l_cntbin.展示PDF文件CALL METHOD go_html_control-load_data(EXPORTINGtype applicationsubtype PDFIMPORTINGassigned_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.问题 notes1146711
