资金管理电子支付集成EPIC_PROC相关设置步骤。
1.电子支付集成
1.1定义银行通信类型
1.2RFC Destination设置（TCODE:SM59）
SM59-外部服务器HTTP连接
1.3定义银行通信详细信息
1.4XML格式转换（TCODE:STRANS）
1 <xsl:transform xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:sap="http://www.sap.com/sapxsl" xmlns:asx="http://www.sap.com/abapxml" exclude-result-prefixes="asx" version="1.0"> 2 3 <xsl:strip-space elements="*"/> 4 5 <xsl:template match="/asx:abap/asx:values/PARAMETERS"> 6 7 <fdlk> 8 9 <code> 10 <xsl:value-of select="CODE"/> 11 </code> 12 13 <batchNo> 14 <xsl:value-of select="BATCHNO"/> 15 </batchNo> 16 17 <nodeId> 18 <xsl:value-of select="NODEID"/> 19 </nodeId> 20 21 <channelId> 22 <xsl:value-of select="CHANNELID"/> 23 </channelId> 24 25 <ackCode> 26 <xsl:value-of select="ACKCODE"/> 27 </ackCode> 28 29 <clientId> 30 <xsl:value-of select="CLIENTID"/> 31 </clientId> 32 33 <clientName> 34 <xsl:value-of select="CLIENTNAME"/> 35 </clientName> 36 37 <txDateTime> 38 <xsl:value-of select="TXDATETIME"/> 39 </txDateTime> 40 41 <data> 42 43 <BillTx> 44 45 <sourceId> 46 <xsl:value-of select="BILLTX/SOURCEID"/> 47 </sourceId> 48 49 <txType> 50 <code> 51 <xsl:value-of select="BILLTX/TXTYPE/CODE"/> 52 </code> 53 <name> 54 <xsl:value-of select="BILLTX/TXTYPE/NAME"/> 55 </name> 56 </txType> 57 58 <paperBill> 59 <xsl:value-of select="BILLTX/PAPERBILL"/> 60 </paperBill> 61 62 <acceptBank> 63 <bankNo> 64 <xsl:value-of select="BILLTX/ACCEPTBANK/BANKNO"/> 65 </bankNo> 66 67 <frontNodeId> 68 <xsl:value-of select="BILLTX/FRONTNODEID"/> 69 </frontNodeId> 70 71 <txDate> 72 <xsl:value-of select="BILLTX/TXDATE"/> 73 </txDate> 74 75 <comment> 76 <xsl:value-of select="BILLTX/COMMENT"/> 77 </comment> 78 79 <list> 80 <xsl:for-each select="BILLTX/BILLINFO/ZSTR0720_BILLINFO"> 81 <BillInfo> 82 <billId> 83 <xsl:value-of select="BILLID"/> 84 </billId> 85 <billNo> 86 <xsl:value-of select="BILLNO"/> 87 </billNo> 88 </BillInfo> 89 </xsl:for-each> 90 91 </list> 92 93 <reserved1> 94 <xsl:value-of select="BILLTX/RESERVED1"/> 95 </reserved1> 96 97 <reserved2> 98 <xsl:value-of select="BILLTX/RESERVED2"/> 99 </reserved2> 100 101 <reserved3> 102 <xsl:value-of select="BILLTX/RESERVED3"/> 103 </reserved3> 104 105 <reserved4> 106 <xsl:value-of select="BILLTX/RESERVED4"/> 107 </reserved4> 108 109 <reserved5> 110 <xsl:value-of select="BILLTX/RESERVED5"/> 111 </reserved5> 112 113 </BillTx> 114 115 </data> 116 </fdlk> 117 118 </xsl:template> 119 </xsl:transform>View Code
1.5发送HTTP请求至目标系统
参考类CL_EPIC_QC_UIL方法SEND_QUERY_TO_BANK ，发送XML至目标系统
参考类CL_EPIC_BANK_COMM_SERV
创建类ZCTR0110并调用接口IF_EPIC_BANK_COMM_IMPL重写类方法
1.5.1方法IF_EPIC_BANK_COMM_IMPL~CREATE_REQUEST
校验数据表EPIC_C_BCD
将内表数据转化为XML：
<style></style> call transformation XML模板文件名
source parameters = 表结构
result xml String变量.
String转XString十六进制：
<style></style> CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
EXPORTING
text = cv_message
IMPORTING
buffer = cv_xstring
EXCEPTIONS
failed = 1
OTHERS = 2.
1.5.2方法IF_EPIC_BANK_COMM_IMPL~PROCESS_RESPONSE
XML格式处理:
<style></style> lo_conv = cl_abap_conv_out_ce=>create( encoding = 'UTF-8' ).
call method lo_conv->convert
exporting
data = lv_string
importing
buffer = lv_xstring.
call transformation (ls_boeintf-file_response)
source xml lv_xstring
result response = ls_result.
1.5.3方法IF_EPIC_BANK_COMM_IMPL~ADJUST_HTTP_REQUEST
<style></style> zctr0010=>conv_cdata_into_soap(
changing
co_request = cr_request
).
1 METHOD conv_cdata_into_soap. 2 3 TYPES : BEGIN OF ty_xml, 4 soap_tag TYPE ztap0070-soap_tag, 5 tag_content TYPE string, 6 END OF ty_xml. 7 8 DATA lt_xml TYPE TABLE OF ty_xml VALUE IS INITIAL. 9 10 SELECT 11 soap_tag 12 tag_content 13 FROM ztap0070 14 INTO CORRESPONDING FIELDS OF TABLE lt_xml. 15 16 "获取原来的CDATA数据 17 DATA lv_message TYPE string VALUE IS INITIAL. 18 19 co_request->get_cdata( 20 RECEIVING 21 data = lv_message ). 22 23 "将sopa前面的标准格式删除 24 zctr0010=>conv_and_delete_soap_for_str( CHANGING cv_message = lv_message ). 25 26 "将值赋值到CDATA标签内 27 READ TABLE lt_xml ASSIGNING FIELD-SYMBOL(<fs_xml>) WITH KEY soap_tag = '5'. 28 29 CHECK sy-subrc = 0. 30 31 <fs_xml>-tag_content = lv_message. 32 UNASSIGN <fs_xml>. 33 34 "重新组织XML 35 CLEAR lv_message. 36 37 SORT lt_xml BY soap_tag. 38 39 LOOP AT lt_xml ASSIGNING <fs_xml>. 40 lv_message = lv_message && <fs_xml>-tag_content. 41 ENDLOOP. 42 43 "重新赋值 44 "先转成XSTRING 45 DATA lv_buffer TYPE xstring VALUE IS INITIAL. 46 47 CALL FUNCTION 'SCMS_STRING_TO_XSTRING' 48 EXPORTING 49 text = lv_message 50 IMPORTING 51 buffer = lv_buffer 52 EXCEPTIONS 53 failed = 1 54 OTHERS = 2. 55 56 DATA lt_bin_table TYPE sdokcntbins VALUE IS INITIAL. 57 DATA lv_bin_len TYPE i VALUE IS INITIAL. 58 59 "再转成2进制 60 CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' 61 EXPORTING 62 buffer = lv_buffer 63 IMPORTING 64 output_length = lv_bin_len 65 TABLES 66 binary_tab = lt_bin_table. 67 68 "再将2进制转成标准字符串 69 DATA lv_out_len TYPE i VALUE IS INITIAL. 70 71 CLEAR lv_message. 72 73 CALL FUNCTION 'SCMS_BINARY_TO_STRING' 74 EXPORTING 75 input_length = lv_bin_len 76 encoding = '4110' 77 IMPORTING 78 text_buffer = lv_message 79 output_length = lv_out_len 80 TABLES 81 binary_tab = lt_bin_table 82 EXCEPTIONS 83 failed = 1 84 OTHERS = 2. 85 86 co_request->set_cdata( 87 EXPORTING 88 data = lv_message 89 ). 90 91 "计算报文长度 92 DATA lv_len_str TYPE ihttpnvp-value VALUE IS INITIAL. 93 94 lv_len_str = lv_bin_len. 95 CONDENSE lv_len_str. 96 97 co_request->set_header_field( 98 EXPORTING 99 name = 'Content-Type' 100 value = 'application/xml;charset=UTF-8' 101 ). 102 103 co_request->set_header_field( 104 EXPORTING 105 name = 'Content-Length' 106 value = lv_len_str 107 ). 108 109 ENDMETHOD.View Code
1.7接收目标系统HTTP请求
创建类并调用接口IF_HTTP_EXTENSION并重写
1 method if_http_extension~handle_request. 2 data:lr_dref type ref to data. 3 data:lt_return type table of zsap0010, 4 lt_0820 type table of zttr0820. 5 data:ls_boeintf type zttr0700 value is initial, 6 ls_initial type ty_init value is initial. 7 "调用函数模块，检查数据并保存，然后将返回数据转换成报文返回给九恒星 8 data ls_result type zsap0040 value is initial. 9 data:lv_request_method type string, 10 lv_msgv1 type syst_msgv, 11 lv_msgv2 type syst_msgv, 12 lv_error type c. 13 field-symbols: 14 <fs_any> type any. 15 16 try. 17 18 lv_request_method = server->request->get_header_field( name = '~request_method' ). 19 20 if lv_request_method <> 'POST'. 21 raise exception type zcx_tr0100 22 exporting 23 msgid = 'ZMCTR0040' 24 msgno = '084' 25 msgty = 'E' 26 msgv1 = space 27 msgv2 = space 28 msgv3 = space 29 msgv4 = space . 30 endif. 31 32 data lv_string type string value is initial. 33 data lv_xstring type xstring value is initial. 34 35 lv_string = server->request->get_cdata( ). 36 lv_xstring = server->request->get_data( ). 37 38 zctr0010=>conv_and_delete_soap_for_str( 39 changing 40 cv_message = lv_string 41 cv_xstring = lv_xstring ). 42 43 "将报文数据转换成结构数据 44 data ls_sign_result_request type ty_xyty value is initial. 45 data ls_result_initial type ty_init value is initial. 46 data lo_transformation_error type ref to cx_transformation_error value is initial. 47 48 try. 49 "获取初始CODE值 50 call transformation ztr_boe_initial_request 51 source xml lv_xstring 52 result response = ls_result_initial. 53 54 move-corresponding ls_result_initial to ls_initial. 55 56 catch cx_transformation_error into lo_transformation_error. 57 lv_msgv1 = gc_jhx. 58 lv_msgv2 = lo_transformation_error->get_text( ). 59 raise exception type zcx_tr0100 60 exporting 61 msgid = 'ZMCTR0040' 62 msgno = '000' 63 msgty = 'E' 64 msgv1 = lv_msgv1 65 msgv2 = lv_msgv2 66 msgv3 = space 67 msgv4 = space . 68 endtry. 69 70 "报文存储 71 resource_xml_save( 72 exporting 73 iv_code = ls_initial-code 74 iv_batchno = ls_initial-batchno 75 iv_boeintf = space 76 iv_xstring = lv_xstring 77 changing 78 it_0820 = lt_0820 79 ). 80 81 "根据CODE及接口类型获取参数 82 select single * 83 into ls_boeintf 84 from zttr0700 85 where zptype = gc_response 86 and code = ls_result_initial-code. 87 if sy-subrc <> 0. 88 lv_msgv1 = gc_response. 89 lv_msgv2 = ls_result_initial-code. 90 91 raise exception type zcx_tr0100 92 exporting 93 msgid = 'ZMCTR0040' 94 msgno = '066' 95 msgty = 'E' 96 msgv1 = lv_msgv1 97 msgv2 = lv_msgv2 98 msgv3 = space 99 msgv4 = space . 100 endif. 101 102 "获取动态结构 103 dynamic_stru_create( 104 exporting 105 iv_struname = ls_boeintf-stru_request 106 importing 107 et_data = lr_dref ). 108 109 assign lr_dref->* to <fs_any>. 110 111 try. 112 "根据动态结构解析数据 113 call transformation (ls_boeintf-file_request) 114 source xml lv_xstring 115 result response = <fs_any> . 116 117 catch cx_transformation_error into lo_transformation_error. 118 lv_msgv1 = gc_jhx. 119 lv_msgv2 = lo_transformation_error->get_text( ). 120 121 move-corresponding <fs_any> to ls_result. 122 ls_result-resultcode = text-101. 123 ls_result-resultmsg = text-103 && lv_msgv2. 124 125 raise exception type zcx_tr0100 126 exporting 127 msgid = 'ZMCTR0040' 128 msgno = '000' 129 msgty = 'E' 130 msgv1 = lv_msgv1 131 msgv2 = lv_msgv2 132 msgv3 = space 133 msgv4 = space . 134 endtry. 135 136 137 ls_result = me->call_function( 138 exporting 139 iv_xstring = lv_xstring 140 is_boeintf = ls_boeintf 141 is_initial = ls_initial 142 is_request = <fs_any> 143 importing 144 ev_error = lv_error 145 changing 146 it_0820 = lt_0820 147 ). 148 149 "将返回结果转成报文 150 data lv_response_string type string value is initial. 151 152 try. 153 154 call transformation (ls_boeintf-file_response) 155 source parameters = ls_result 156 options xml_header = 'no' 157 result xml lv_response_string 158 parameters encoding = 'UTF-8'. 159 160 catch cx_transformation_error into lo_transformation_error. 161 lv_msgv1 = gc_jhx. 162 lv_msgv2 = lo_transformation_error->get_text( ). 163 raise exception type zcx_tr0100 164 exporting 165 msgid = 'ZMCTR0040' 166 msgno = '000' 167 msgty = 'E' 168 msgv1 = lv_msgv1 169 msgv2 = lv_msgv2 170 msgv3 = space 171 msgv4 = space . 172 endtry. 173 174 server->response->set_cdata( lv_response_string ). 175 176 "反馈报文存储 177 response_string_save( 178 exporting 179 is_0040 = ls_result 180 it_0820 = lt_0820 181 it_return = lt_return 182 iv_string = lv_response_string 183 ). 184 185 save_message( ). 186 187 catch zcx_tr0100 into data(lr_tr0100). 188 get_message( 189 exporting 190 ir_tr0100 = lr_tr0100 191 importing 192 et_return = lt_return 193 ). 194 195 if ls_result is not initial. 196 call transformation (ls_boeintf-file_response) 197 source parameters = ls_result 198 options xml_header = 'no' 199 result xml lv_response_string 200 parameters encoding = 'UTF-8'. 201 endif. 202 203 "反馈报文存储 204 response_string_save( 205 exporting 206 is_0040 = ls_result 207 it_0820 = lt_0820 208 it_return = lt_return 209 iv_string = lv_response_string 210 ). 211 212 save_message( ). 213 endtry. 214 215 endmethod.View Code
2.付款F110
2.1设置所有公司代码及付款公司代码
2.2国家支付方式
DMEE格式设置
3.付款申请F111
<style></style> <style></style>