MrTech/ctg-app-cap
5
0
Fork 0
Code Releases Activity
Files
dev
ctg-app-cap/cap/etc/common/MACRO_CAP_COMMON.XML
T
Alawn 356335e7a3 异步组件修改
2021-06-03 15:50:17 +08:00

1157 lines
46 KiB
XML
Raw Permalink Blame History

<?xml version='1.0' encoding='UTF-8'?>
<FrontTab>
<Macro name="Init_CAP01" desc="交易的初始化">
<Exec func="PUB:InitGWA" /> <!--交易初始化-->
<Set>NodNo=341</Set>
<Set>TXN_TM=GETDATETIME()</Set>
<Set>CRE_TM=SUBSTR($TXN_TM,9,6)</Set> <!--交易时间-->
<Set>CRE_DT=SUBSTR($TXN_TM,1,8)</Set> <!--交易日期-->
<Set>AC_DT=$CRE_DT</Set>
<Exec func="PUB:IsExistNode" error="IGNORE">
<Arg name="FieldName" value="ORD_DT_TM" />
</Exec>
<If condition="INTCMP(~RetCod,3,1)">
<Set>ORD_TM=SUBSTR($ORD_DT_TM,9,6)</Set> <!--订单交易时间-->
<Set>ORD_DT=SUBSTR($ORD_DT_TM,1,8)</Set> <!--订单交易日期-->
</If>
<If condition="ISNULL($TXN_CNL)">
<Set>TXN_CNL=HRO</Set>
</If>
</Macro>
<Macro name="COMM_UpdTXNJNL" desc="更新流水表">
<DynSentence name="UpdCMSTXNJNL"> <!--更新流水记录-->
<Sentence>
UPDATE CAPTXNJNL
SET AC_DT=?,TTXN_ST=?, TXN_STS=?,
TRSP_CD=?, TACC_DT=?,
TACC_TM=?,TSTL_DT=?,TRSP_MSG=?,
RSP_CD=?, RSP_MSG=?,QUERY_ID=?
WHERE MERC_ID=? AND ORD_DT=? AND MERC_ORD_NO=?
</Sentence>
<Fields>AC_DT|TTXN_ST|TXN_STS|TRSP_CD|TACC_DT|TACC_TM|TSTL_DT|TRSP_MSG|RSP_CD|RSP_MSG|QUERY_ID|MERC_ID|ORD_DT|MERC_ORD_NO|</Fields>
</DynSentence>
<DynSentence name="UpdPABTXNJNL"> <!--更新流水记录-->
<Sentence>
UPDATE CAPTXNJNL
SET TTXN_ST=?, TXN_STS=?,
TRSP_CD=?, TACC_DT=?,
TACC_TM=?,TSTL_DT=?,TRSP_MSG=?,
RSP_CD=?, RSP_MSG=?,QUERY_ID=?
WHERE MERC_ID=? AND ORD_DT=? AND JRN_NO=?
</Sentence>
<Fields>TTXN_ST|TXN_STS|TRSP_CD|TACC_DT|TACC_TM|TSTL_DT|TRSP_MSG|RSP_CD|RSP_MSG|QUERY_ID|MERC_ID|ORD_DT|JRN_NO|</Fields>
</DynSentence>
<DynSentence name="UpdTXNJNL"> <!--更新流水记录-->
<Sentence>
UPDATE CAPTXNJNL
SET TTXN_ST=?, TXN_STS=?,
TRSP_CD=?, TACC_DT=?,
TACC_TM=?,TSTL_DT=?,TRSP_MSG=?,
RSP_CD=?, RSP_MSG=?,QUERY_ID=?
WHERE MERC_ID=? AND ORD_DT=? AND MERC_ORD_NO=?
</Sentence>
<Fields>TTXN_ST|TXN_STS|TRSP_CD|TACC_DT|TACC_TM|TSTL_DT|TRSP_MSG|RSP_CD|RSP_MSG|QUERY_ID|MERC_ID|ORD_DT|MERC_ORD_NO|</Fields>
</DynSentence>
<DynSentence name="UpdOTxn_STS"> <!--更新原流水记录-->
<Sentence>
UPDATE CAPTXNJNL
SET TTXN_ST=?,TXN_STS=?,
TRSP_CD=?
WHERE MERC_ID=? AND ORD_DT=? AND MERC_ORD_NO=?
</Sentence>
<Fields>TTXN_ST|TXN_STS|ORN_TRSP_CD|MERC_ID|ORD_DT|MERC_ORD_NO|</Fields>
</DynSentence>
<DynSentence name="QryCAPCOMPTY"> <!--查询网银互联的总行联行号-->
<Sentence>
SELECT Pty_Id LBNK_NO,Pty_Nm LBNK_NAM FROM CAPCOMPTY
WHERE (Pty_Id=? OR ? IS NULL) AND Pty_Nm LIKE '%%s%'
</Sentence>
<Fields>LBnkNo|LBnkNo|LBnkNam|</Fields>
</DynSentence>
<DynSentence name="UpdChkMercResult"> <!--更新接口校验结果-->
<Sentence>
UPDATE CAPTXNJNL
SET TTXN_ST=?,TXN_STS=?,
RSP_CD=? , RSP_MSG=?
WHERE ORD_DT=? AND JRN_NO=?
</Sentence>
<Fields>TTXN_ST|TXN_STS|RSP_CD|RSP_MSG|ORD_DT|JRN_NO|</Fields>
</DynSentence>
</Macro>
<!--更新CMS流水记录状态-->
<Macro name="UpdCMSTXNJNL">
<!--更新流水记录-->
<Exec func="PUB:ExecSql" error="IGNORE">
<Arg name="SqlCmd" value="UpdCMSTXNJNL"/>
</Exec>
<If condition="~RetCod != 0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=更新流水表失败</Set>
<Return/>
</If>
</Macro>
<!--更新CMS流水记录状态-->
<Macro name="UpdPABTXNJNL">
<!--更新流水记录-->
<Exec func="PUB:ExecSql" error="IGNORE">
<Arg name="SqlCmd" value="UpdPABTXNJNL"/>
</Exec>
<If condition="~RetCod != 0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=更新流水表失败</Set>
<Return/>
</If>
</Macro>
<Macro name="GET_JRN_NO" desc="取交易流水号">
<!--Set>JRN_NO=SUBSTR($GWA.JRN_NO,3,16)</Set-->
<!-- 取交易流水号 BEGIN-->
<Exec func="PUB:GetUniqueNo">
<Arg name="Name" value="jrn_nextval" />
<Arg name="SeqNam" value="jrn_no_sequence" />
<Arg name="Len" value="10" />
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=平台取流水号失败</Set>
<Return />
</If>
<Set>JRN_NO=STRCAT(SUBSTR($AC_DT,3,6),$jrn_nextval)</Set>
<Delete>jrn_nextval</Delete>
</Macro>
<Macro name="GET_BOC_MSG_ID" desc="取中行MSG_ID">
<!-- 获取银联序列号 BEGIN-->
<Exec func="PUB:GetUniqueNo">
<Arg name="Name" value="nextval" />
<Arg name="SeqNam" value="boc_sequence" />
<Arg name="Len" value="12" />
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=内部错误</Set>
<Return />
</If>
<Set>BOC_MSG_ID=STRCAT(0,GETDATETIME(),000,$nextval)</Set>
<Delete>nextval</Delete>
</Macro>
<Macro name="SQL_RcvConfirm" desc="初始化及接入认证检查配套SQL语句">
<DynSentence name="QryMercInf"> <!--查询商户基本信息-->
<Sentence>
SELECT MERC_STS,MERC_TRD_CLS,MERC_TYP, MERC_CNM MERC_NAM,MERC_ABBR
FROM URMTMINF
WHERE MERC_ID = ? AND MERC_TYP = '1'
</Sentence>
<Fields>MERC_ID|</Fields>
</DynSentence>
<DynSentence name="QryBnkInf"> <!--查询合作机构信息-->
<Sentence>
SELECT ENB_FLG,CORG_NM CORG_NO_NM,OUT_MERC_ID CORG_MERC_ID,OUT_TERM_ID CORG_TRM_NO,WORK_KEY FROM CMMTORGN WHERE CORP_ORG=?
</Sentence>
<Fields>CORG_NO|</Fields>
</DynSentence>
<DynSentence name="QryCOP_BUS_TYP"> <!--查询合作机构接口信息-->
<Sentence>
SELECT BUS_OPN_FLG FROM CMMTBUSI WHERE CORP_ORG=? AND COP_BUS_TYP=?
</Sentence>
<Fields>CORG_NO|COP_BUS_TYP|</Fields>
</DynSentence>
<DynSentence name="TRspCdCSWRspCd"> <!--第三方返回码转换为本地错误码-->
<Sentence>
SELECT RSP_CD,SHOW_TEXT RSP_MSG FROM CAPERRCSW WHERE CORP_ORG=? AND TRSP_CD=?
</Sentence>
<Fields>CORG_NO|TRSP_CD|</Fields>
</DynSentence>
<DynSentence name="QryMercFee"> <!--查询商户费率信息-->
<Sentence>
SELECT COUNT(*) FeeCnt FROM URMTMFEE WHERE MERC_ID = ?
</Sentence>
<Fields>MERC_ID</Fields>
</DynSentence>
</Macro>
<Macro name="ChkRcvInf" desc="商户接入认证检查">
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QryMercInf"/>
</Exec>
<If condition="~RetCod=2">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=该商户不存在</Set>
<Return/>
</If>
<ElseIf condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=查询数据库失败</Set>
<Return/>
</ElseIf>
<If condition="INTCMP($MERC_STS,4,0)">
<Set>Rsp_Cd=31</Set>
<Set>Rsp_Msg=该商户状态不正常</Set>
<Return/>
</If>
<!--校验商户费率有无设置-->
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QryMercFee"/>
</Exec>
<If condition="~RetCod=2">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=商户费率未设置</Set>
<Return/>
</If>
<ElseIf condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=查询商户费率失败</Set>
<Return/>
</ElseIf>
<If condition="INTCMP($FeeCnt,2,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=商户费率未设置</Set>
<Return/>
</If>
</Macro>
<Macro name="TRspCdCSWRspCd" desc="第三方返回码转换为本地错误码">
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="TRspCdCSWRspCd"/>
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=内部错误</Set>
</If>
</Macro>
<Macro name="GET_CAP_ORD_NO" desc="取银联订单号">
<!-- 获取银联序列号 BEGIN-->
<Exec func="PUB:GetUniqueNo">
<Arg name="Name" value="nextval" />
<Arg name="SeqNam" value="upop_sequence" />
<Arg name="Len" value="8" />
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=内部错误</Set>
<Return />
</If>
<Set>CAP_ORD_NO=STRCAT(GETDATE(),$nextval)</Set>
<Delete>nextval</Delete>
</Macro>
<Macro name="GET_ROUT_CAP_ORD_NO" desc="取民生银行软路由订单号">
<!-- 获取银联序列号 BEGIN-->
<Exec func="PUB:GetUniqueNo">
<Arg name="Name" value="nextval" />
<Arg name="SeqNam" value="rout_sequence" />
<Arg name="Len" value="8" />
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=内部错误</Set>
<Return />
</If>
<Set>CAP_ORD_NO=STRCAT(SUBSTR($CORG_MERC_ID,4,4),SUBSTR($CORG_MERC_ID,12,4),$nextval)</Set>
<Delete>nextval</Delete>
</Macro>
<Macro name="GET_CMBC_CAP_ORD_NO" desc="民生银行订单号">
<Exec func="PUB:GetUniqueNo">
<Arg name="Name" value="nextval" />
<Arg name="SeqNam" value="cmbc_cap_sequence" />
<Arg name="Len" value="8" />
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=内部错误</Set>
<Return />
</If>
<Set>CAP_ORD_NO=$nextval</Set>
<Delete>nextval</Delete>
</Macro>
<Macro name="GET_ICBC_CAP_ORD_NO" desc="工行订单号">
<Exec func="PUB:GetUniqueNo">
<Arg name="Name" value="nextval" />
<Arg name="SeqNam" value="icbc_cap_sequence" />
<Arg name="Len" value="8" />
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=内部错误</Set>
<Return />
</If>
<Set>CAP_ORD_NO=STRCAT(GETDATE(),$nextval)</Set>
<Delete>nextval</Delete>
</Macro>
<Macro name="GET_SZFS_CAP_ORD_NO" desc="结算中心订单号">
<Exec func="PUB:GetUniqueNo">
<Arg name="Name" value="nextval" />
<Arg name="SeqNam" value="szfs_cap_sequence" />
<Arg name="Len" value="7" />
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=内部错误</Set>
<Return />
</If>
<Set>CAP_ORD_NO=STRCAT(0,$nextval)</Set>
<Delete>nextval</Delete>
</Macro>
<Macro name="GET_SZFS_VER_NO" desc="结算中心银行帐户验证标示号">
<Exec func="PUB:GetUniqueNo">
<Arg name="Name" value="nextval" />
<Arg name="SeqNam" value="szfs_ver_sequence" />
<Arg name="Len" value="8" />
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=内部错误</Set>
<Return />
</If>
<Set>ACC_VER_NO=$nextval</Set>
<Delete>nextval</Delete>
</Macro>
<Macro name="GET_BOC_CAP_ORD_NO" desc="中行订单号">
<Exec func="PUB:GetUniqueNo">
<Arg name="Name" value="nextval" />
<Arg name="SeqNam" value="boc_sequence" />
<Arg name="Len" value="12" />
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=内部错误</Set>
<Return />
</If>
<Set>CAP_ORD_NO=STRCAT(GETDATE(),$nextval)</Set>
<Delete>nextval</Delete>
</Macro>
<Macro name="GET_CUP_BAT_NO" desc="取银联批次号">
<!-- 取银联批次号 BEGIN-->
<Exec func="PUB:GetUniqueNo">
<Arg name="Name" value="nextbatno" />
<Arg name="SeqNam" value="upop_batno_sequence" />
<Arg name="Len" value="4" />
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=内部错误</Set>
<Return />
</If>
<Set>CORG_DSK_NO=$nextbatno</Set>
<Delete>nextbatno</Delete>
</Macro>
<Macro name="GET_CEB_BAT_NO" desc="取光大批次号">
<!-- 取银联批次号 BEGIN-->
<Exec func="PUB:GetUniqueNo">
<Arg name="Name" value="nextbatno" />
<Arg name="SeqNam" value="ceb_batno_sequence" />
<Arg name="Len" value="6" />
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=内部错误</Set>
<Return />
</If>
<Set>CEB_CORG_DSK_NO=$nextbatno</Set>
<Delete>nextbatno</Delete>
</Macro>
<Macro name="GetBnkInf" desc="查询合作机构信息及合作机构开通那些接口">
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QryBnkInf"/>
</Exec>
<If condition="~RetCod=2">
<Set>Rsp_Cd=31</Set>
<Set>Rsp_Msg=该合作机构不存在</Set>
<Return/>
</If>
<ElseIf condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=查询数据库失败</Set>
<Return/>
</ElseIf>
<If condition="INTCMP($ENB_FLG,4,1)">
<Set>Rsp_Cd=31</Set>
<Set>Rsp_Msg=该合作机构未启用</Set>
<Return/>
</If>
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QryCOP_BUS_TYP"/>
</Exec>
<If condition="~RetCod=2">
<Set>Rsp_Cd=31</Set>
<Set>Rsp_Msg=合作机构的接口信息未开通</Set>
<Return/>
</If>
<ElseIf condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=查询数据库失败</Set>
<Return/>
</ElseIf>
<If condition="INTCMP($BUS_OPN_FLG,4,0)">
<Set>Rsp_Cd=31</Set>
<Set>Rsp_Msg=合作机构的接口信息未开通</Set>
<Return/>
</If>
</Macro>
<!--更新流水记录状态-->
<Macro name="UptJournal">
<!--更新流水记录-->
<Exec func="PUB:ExecSql" error="IGNORE">
<Arg name="SqlCmd" value="UpdTXNJNL"/>
</Exec>
<If condition="~RetCod != 0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=更新流水表失败</Set>
<Return/>
</If>
</Macro>
<!-- 更新送盘批次处理状态 -->
<Macro name="UpdSendBatSts">
<!-- 更新批次状态 -->
<Exec func="PUB:ExecSql" error="IGNORE">
<Arg name="SqlCmd" value="UpdBatSts"/>
</Exec>
<If condition="~RetCod != 0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=更新批次状态失败</Set>
<Return/>
</If>
</Macro>
<!--更新系统清分控制表状态-->
<Macro name="UptDayCtl">
<Exec func="PUB:ExecSql" error="IGNORE">
<Arg name="SqlCmd" value="UpdDayCtl"/>
</Exec>
<If condition="~RetCod != 0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=更新系统清分控制表失败</Set>
<Return/>
</If>
</Macro>
<!--更新系统清分控制表状态-->
<Macro name="UptDayCtl_END">
<Exec func="PUB:ExecSql" error="IGNORE">
<Arg name="SqlCmd" value="UpdDayCtl_END"/>
</Exec>
<If condition="~RetCod != 0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=更新系统清分控制表失败</Set>
<Return/>
</If>
</Macro>
<!--删除关键域避免重复-->
<Macro name="DltFields">
<Delete>MERC_ID</Delete>
<Delete>ORG_MERC_ID</Delete>
<Delete>AGT_ORG</Delete>
<Delete>TXN_AMT</Delete>
</Macro>
<!--删除关键域避免重复-->
<Macro name="DltMercFields">
<Delete>MERC_ID</Delete>
<Delete>MERC_TYP</Delete>
<Delete>MERC_NAM</Delete>
</Macro>
<!--到银联查询代收订单状态的宏-->
<Macro name="QueryOrdSts_CUP_QRY">
<!--发送银行或者银联进行交易状态查询-->
<Exec func="PUB:CallThirdComm" error="IGNORE">
<Arg name="HTxnCd" value="$RTR_COD"/>
<Arg name="ObjSvr" value="$RTR_SVR"/>
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=00</Set>
<Set>ORsp_Cd=83</Set>
<Set>OSTATUS=503</Set>
<Set>Rsp_Msg=原交易状态未知</Set>
<Return/>
</If>
<Else>
<If condition="IS_EQUAL_STRING($TRSP_CD,000000)">
<If condition="OR(IS_EQUAL_STRING($OTXN_CD,204010),IS_EQUAL_STRING($OTXN_CD,204015))">
<Set>TTxn_St=S</Set>
<Set>Txn_Sts=S</Set>
<Set>Rsp_Cd=00</Set>
<Set>ORsp_Cd=00</Set>
<Set>OSTATUS=000</Set>
<Set>Rsp_Msg=交易成功</Set>
<Quote name="UptJournal"/><!--更新流水记录状态-->
<Set>TXN_MOD_FLG=99</Set>
<Set>TX_AMT=$TXN_AMT</Set>
<Set>TX_JRN_NO=$ORN_JRN_NO</Set>
<Set>BUS_CNL=BIS</Set>
<Call package="MERCACC" function="MERC_ACC_ALTER_CCRP10003">
<Input>MERC_ID|TXN_MOD_FLG|AC_DT|CAP_TYP|TX_AMT|TX_JRN_NO|CORG_NO|BUS_CNL|RMK|SYS_ID|TXN_CNL|</Input>
<Output>MSG_CD|</Output>
</Call>
<Return/>
</If>
<ElseIf condition="IS_EQUAL_STRING($OTXN_CD,2040311)">
<Set>TTxn_St=S</Set>
<Set>Txn_Sts=S</Set>
<Set>Rsp_Cd=00</Set>
<Set>ORsp_Cd=00</Set>
<Set>OSTATUS=103</Set>
<Set>Rsp_Msg=交易已冲正/撤销</Set>
<Quote name="UptJournal"/><!--更新流水记录状态-->
<Return/>
</ElseIf>
</If>
<Else>
<Set>Rsp_Cd=00</Set>
<Set>ORsp_Cd=00</Set>
<Set>OSTATUS=102</Set>
<Set>Rsp_Msg=原交易状态未知</Set>
<Return/>
</Else>
</Else>
</Macro>
<!--到银联查询代收订单状态的宏-->
<Macro name="QueryOrdSts_CUP">
<!--发送银行或者银联进行交易状态查询-->
<Exec func="PUB:CallThirdComm" error="IGNORE">
<Arg name="HTxnCd" value="$RTR_COD"/>
<Arg name="ObjSvr" value="$RTR_SVR"/>
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=83</Set>
<Set>ORsp_Cd=83</Set>
<Set>OSTATUS=503</Set>
<Set>Rsp_Msg=原交易状态未知</Set>
<Return/>
</If>
<Else>
<If condition="IS_EQUAL_STRING($TRSP_CD,000000)">
<If condition="OR(IS_EQUAL_STRING($OTXN_CD,204010),IS_EQUAL_STRING($OTXN_CD,204015))">
<Set>TTxn_St=S</Set>
<Set>Txn_Sts=S</Set>
<Set>Rsp_Cd=00</Set>
<Set>ORsp_Cd=00</Set>
<Set>OSTATUS=000</Set>
<Set>Rsp_Msg=交易成功</Set>
<Quote name="UptJournal"/><!--更新流水记录状态-->
<Set>TXN_MOD_FLG=99</Set>
<Set>TX_AMT=$TXN_AMT</Set>
<Set>TX_JRN_NO=$ORN_JRN_NO</Set>
<Set>BUS_CNL=BIS</Set>
<Call package="MERCACC" function="MERC_ACC_ALTER_CCRP10003">
<Input>MERC_ID|TXN_MOD_FLG|AC_DT|CAP_TYP|TX_AMT|TX_JRN_NO|CORG_NO|BUS_CNL|RMK|SYS_ID|TXN_CNL|</Input>
<Output>MSG_CD|</Output>
</Call>
<Return/>
</If>
<ElseIf condition="IS_EQUAL_STRING($OTXN_CD,2040311)">
<Set>TTxn_St=S</Set>
<Set>Txn_Sts=S</Set>
<Set>Rsp_Cd=00</Set>
<Set>ORsp_Cd=00</Set>
<Set>OSTATUS=103</Set>
<Set>Rsp_Msg=交易已冲正/撤销</Set>
<Quote name="UptJournal"/><!--更新流水记录状态-->
<Return/>
</ElseIf>
</If>
<Else>
<Set>Rsp_Cd=00</Set>
<Set>ORsp_Cd=00</Set>
<Set>OSTATUS=102</Set>
<Set>Rsp_Msg=原交易状态未知</Set>
<Return/>
</Else>
</Else>
</Macro>
<!--更新订单状态-->
<Macro name="UPD_CAP_ORD_NO">
<Exec func="PUB:ExecSql" error="IGNORE">
<Arg name="SqlCmd" value="UPD_CAP_ORD_NO"/>
</Exec>
<If condition="~RetCod != 0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=更新流水表失败</Set>
<Return/>
</If>
</Macro>
<Macro name="SwitchCyc" desc="转换交易币种">
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="CYC_CD"></Arg>
<Arg name="DestNam" value="CYC_CUPS"></Arg>
<Arg name="TblNam" value="SwitchCyc"></Arg>
</Exec>
</Macro>
<Macro name="Macro_InvokeService" desc="冲正交易成功后取消冲正">
<Exec func="PUB:InvokeService" error="IGNORE"> <!--冲正交易成功后取消冲正-->
<Arg name="ServiceName" value="TransactionReply"/>
<Arg name='Mode' value='NOTIFY'/>
</Exec>
</Macro>
<Macro name="Macro_TranBeginWork" desc="调启冲正重发服务">
<!--登记冲正-->
<Set>LOG_NO=$JRN_NO</Set>
<Exec func="PUB:TranBeginWork">
<Arg name="Code" value="204014"/> <!--自动冲正-->
<Arg name="ObjSvr" value="OFRTCAP1" />
<Arg name="TranTyp" value="crc"/> <!-- 事物类型 crc：冲正，rdo：重发 -->
<Arg name="LogNo" value="$JRN_NO" />
<Arg name="Interval" value="30"/>
<Arg name="TimeOut" value="60"/>
<Arg name="MaxTms" value="4"/>
<Arg name="Fields" value="AC_DT=GWA.AC_DT|SYS_TM=GWA.TX_TM|SUC_CLK=GWA.TX_TM|" />
</Exec>
<Exec func="PUB:TranRollbackWork"/>
</Macro>
<Macro name="CMBC_CrdRout" desc="根据卡号调用不同的民生接口">
<!--获取民生公共参数-->
<!--Quote name="CMBC_CFG"/-->
<!-- 组装民生数据 -->
<Set>RTR_SVR=STHDCMBC</Set>
<Set>CYC_CD=RMB</Set>
<Set>payeeAcctType=1</Set> <!--1卡 2 活折:收款账户类型-->
<!--根据卡号判断是不是民生卡；CMBC_FLG=0是民生卡，否则不是民生卡-->
<!--Set>SUB_CRD_NO=SUBSTR($CRD_NO,1,6)</Set>
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="SUB_CRD_NO"></Arg>
<Arg name="DestNam" value="CMBC_FLG"></Arg>
<Arg name="TblNam" value="CMBC_CRD_BIN"></Arg>
</Exec-->
<!--If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=转换失败</Set>
<Return/>
</If-->
<!--为CMBC_FLG赋值，0为本地-->
<Set>CMBC_FLG=$UNION_FLG</Set>
<If condition="INTCMP($CMBC_FLG,3,1)">
<Set>externBank=1</Set> <!--是否跨行,0:同行；1：跨行-->
<Set>localFlag=5</Set> <!--汇路：0:本地；1：异地；2:小额;3大额;4:上海同城; 5:网银互联-->
<Set>rcvCustType=2</Set> <!--收款人账户类型：1:对公；2:对私-->
<!--调转账接口-->
<Set>RTR_COD=Xfer</Set>
<Set>TTXN_CD=Xfer</Set>
<!--查询准确的总行联行号和联行号名称-->
<!-- <Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QryCAPCOMPTY"/>
</Exec>
<If condition="~RetCod=2">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=判断不出该银行卡的总行联行号</Set>
<Return/>
</If>
<ElseIf condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=内部错误</Set>
<Return/>
</ElseIf> -->
<!--If condition="ISNULL($RMK)"-->
<!--Set>RMK=平安支付代付款</Set-->
<!--/If-->
</If>
<ElseIf condition="INTCMP($CMBC_FLG,3,0)">
<!--If condition="ISNULL($RMK)"-->
<!--Set>RMK=346</Set--> <!--用途:346 保险理赔,保费退还-->
<Set>RMK=379</Set> <!--用途:379 其它合法收入-网上交易款-->
<!--/If-->
<!--调单笔报销接口-->
<Set>RTR_COD=CostReimb</Set>
<Set>TTXN_CD=CostReimb</Set>
</ElseIf>
<Else>
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=系统错误</Set>
<Return/>
</Else>
</Macro>
<Macro name="Macro_TranBeginWork_CMBC" desc="调民生的冲正重发服务">
<!--登记冲正-->
<Set>LOG_NO=$JRN_NO</Set>
<Exec func="PUB:TranBeginWork">
<Arg name="Code" value="ACC_CRC_CMBC"/> <!--自动冲正-->
<Arg name="ObjSvr" value="OFRTCAP1" />
<Arg name="TranTyp" value="crc"/> <!-- 事物类型 crc：冲正，rdo：重发 -->
<Arg name="LogNo" value="$JRN_NO" />
<Arg name="Interval" value="50"/>
<Arg name="TimeOut" value="60"/>
<Arg name="MaxTms" value="4"/>
<Arg name="Fields" value="AC_DT=GWA.AC_DT|SYS_TM=GWA.TX_TM|SUC_CLK=GWA.TX_TM|" />
</Exec>
<Exec func="PUB:TranRollbackWork"/>
</Macro>
<Macro name="Macro_DELETE_CMBC" desc="删除关键域">
<Delete>ORN_JRN_NO</Delete>
<Delete>RTR_SVR</Delete>
<Delete>CAP_ORD_NO</Delete>
<Delete>QUERY_ID</Delete>
<Delete>MERC_ID</Delete>
<Delete>ORD_DT</Delete>
<Delete>MERC_ORD_NO</Delete>
</Macro>
<Macro name="EBPPP_CSW_RSPCD" desc="银联错误码转换为本地错误码">
<!--银联错误码转换为本地错误码-->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="TRSP_CD"></Arg>
<Arg name="DestNam" value="RSP_CD"></Arg>
<Arg name="TblNam" value="EBPPP_CSW_RSP_CD"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=银行错误码转换为本地错误码失败</Set>
<Return/>
</If>
<!--本地错误码转换为相应的错误信息-->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="RSP_CD"></Arg>
<Arg name="DestNam" value="RSP_MSG"></Arg>
<Arg name="TblNam" value="RSP_CSW_RSP_MSG"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=本地错误码转换为相应的错误信息失败</Set>
<Return/>
</If>
</Macro>
<Macro name="ICBC_CSW_RSPCD" desc="银联错误码转换为本地错误码">
<!--银联错误码转换为本地错误码-->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="TRSP_CD"></Arg>
<Arg name="DestNam" value="RSP_CD"></Arg>
<Arg name="TblNam" value="ICBC_CSW_RSP_CD"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=银行错误码转换为本地错误码失败</Set>
<Return/>
</If>
<!--本地错误码转换为相应的错误信息-->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="RSP_CD"></Arg>
<Arg name="DestNam" value="RSP_MSG"></Arg>
<Arg name="TblNam" value="RSP_CSW_RSP_MSG"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=本地错误码转换为相应的错误信息失败</Set>
<Return/>
</If>
</Macro>
<Macro name="CCB_CSW_RSPCD" desc="建行错误码转换为本地错误码">
<!--民生错误码转换为本地错误码-->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="TRSP_CD"></Arg>
<Arg name="DestNam" value="RSP_CD"></Arg>
<Arg name="TblNam" value="CCB_CSW_RSP_CD"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=银行错误码转换为本地错误码失败</Set>
<Return/>
</If>
<!--本地错误码转换为相应的错误信息-->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="RSP_CD"></Arg>
<Arg name="DestNam" value="RSP_MSG"></Arg>
<Arg name="TblNam" value="RSP_CSW_RSP_MSG"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=本地错误码转换为相应的错误信息失败</Set>
<Return/>
</If>
</Macro>
<Macro name="CMBC_CSW_RSPCD" desc="民生错误码转换为本地错误码">
<!--民生错误码转换为本地错误码-->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="TRSP_CD"></Arg>
<Arg name="DestNam" value="RSP_CD"></Arg>
<Arg name="TblNam" value="CMBC_CSW_RSP_CD"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=银行错误码转换为本地错误码失败</Set>
<Return/>
</If>
<!--本地错误码转换为相应的错误信息-->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="RSP_CD"></Arg>
<Arg name="DestNam" value="RSP_MSG"></Arg>
<Arg name="TblNam" value="RSP_CSW_RSP_MSG"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=本地错误码转换为相应的错误信息失败</Set>
<Return/>
</If>
</Macro>
<Macro name="BOC_CSW_RSPCD" desc="中行错误码转换为本地错误码">
<!--中行错误码转换为本地错误码-->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="TRSP_CD"></Arg>
<Arg name="DestNam" value="RSP_CD"></Arg>
<Arg name="TblNam" value="BOC_CSW_RSP_CD"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=银行错误码转换为本地错误码失败</Set>
<Return/>
</If>
<!--本地错误码转换为相应的错误信息-->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="RSP_CD"></Arg>
<Arg name="DestNam" value="RSP_MSG"></Arg>
<Arg name="TblNam" value="RSP_CSW_RSP_MSG"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=本地错误码转换为相应的错误信息失败</Set>
<Return/>
</If>
</Macro>
<Macro name="CEB_CSW_RSPCD" desc="光大错误码转换为本地错误码-实时">
<!--光大错误码转换为本地错误码-->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="TRSP_CD"></Arg>
<Arg name="DestNam" value="RSP_CD"></Arg>
<Arg name="TblNam" value="CEB_CSW_RSP_CD"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=银行错误码转换为本地错误码失败</Set>
<Return/>
</If>
<!--本地错误码转换为相应的错误信息-->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="RSP_CD"></Arg>
<Arg name="DestNam" value="RSP_MSG"></Arg>
<Arg name="TblNam" value="RSP_CSW_RSP_MSG"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=本地错误码转换为相应的错误信息失败</Set>
<Return/>
</If>
</Macro>
<Macro name="BOC_CSW_IDTYP" desc="平安身份类型转换为中行身份类型">
<!-- 平安身份类型转换为中行身份类型 -->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"/>
<Arg name="SourNam" value="PID_TYP"/>
<Arg name="DestNam" value="BID_TYP"/>
<Arg name="TblNam" value="BOC_CSW_ID_TYP"/>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=平安身份类型转换为中行身份类型失败</Set>
<Return/>
</If>
</Macro>
<Macro name="HXB_CSW_IDTYP" desc="平安付身份类型转换为华夏身份类型">
<!-- 平安付身份类型转换为中行身份类型 -->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"/>
<Arg name="SourNam" value="PAB_ID_TYP"/>
<Arg name="DestNam" value="HXB_ID_TYP"/>
<Arg name="TblNam" value="HXB_CSW_ID_TYP"/>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=平安付身份类型转换为华夏身份类型失败</Set>
<Return/>
</If>
</Macro>
<Macro name="PAB_CSW_RSPCD" desc="平安错误码转换为本地错误码">
<!--平安错误码转换为本地错误码-->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="TRSP_CD"></Arg>
<Arg name="DestNam" value="RSP_CD"></Arg>
<Arg name="TblNam" value="PAB_CSW_RSP_CD"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=银行错误码转换为本地错误码失败</Set>
<Return/>
</If>
<!--本地错误码转换为相应的错误信息-->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="RSP_CD"></Arg>
<Arg name="DestNam" value="RSP_MSG"></Arg>
<Arg name="TblNam" value="RSP_CSW_RSP_MSG"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=本地错误码转换为相应的错误信息失败</Set>
<Return/>
</If>
</Macro>
<Macro name="HXB_CSW_RSPCD" desc="华夏错误码转换为本地错误码">
<!-- 华夏错误码转换为本地错误码 -->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="TRSP_CD"></Arg>
<Arg name="DestNam" value="RSP_CD"></Arg>
<Arg name="TblNam" value="HXB_CSW_RSP_CD"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=银行错误码转换为本地错误码失败</Set>
<Return/>
</If>
<!-- 本地错误码转换为相应的错误信息 -->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="RSP_CD"></Arg>
<Arg name="DestNam" value="RSP_MSG"></Arg>
<Arg name="TblNam" value="RSP_CSW_RSP_MSG"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=本地错误码转换为相应的错误信息失败</Set>
<Return/>
</If>
</Macro>
<Macro name="BCOM_CSW_RSPCD" desc="交行错误码转换为本地错误码">
<!-- 交行错误码转换为本地错误码 -->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="TRSP_CD"></Arg>
<Arg name="DestNam" value="RSP_CD"></Arg>
<Arg name="TblNam" value="BCOM_CSW_RSP_CD"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=银行错误码转换为本地错误码失败</Set>
<Return/>
</If>
<!-- 本地错误码转换为相应的错误信息 -->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="RSP_CD"></Arg>
<Arg name="DestNam" value="RSP_MSG"></Arg>
<Arg name="TblNam" value="RSP_CSW_RSP_MSG"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=本地错误码转换为相应的错误信息失败</Set>
<Return/>
</If>
</Macro>
<Macro name="SPDB_CSW_RSPCD" desc="浦发错误码转换为本地错误码">
<!-- 浦发错误码转换为本地错误码 -->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="TRSP_CD"></Arg>
<Arg name="DestNam" value="RSP_CD"></Arg>
<Arg name="TblNam" value="SPDB_CSW_RSP_CD"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=银行错误码转换为本地错误码失败</Set>
<Return/>
</If>
<!-- 本地错误码转换为相应的错误信息 -->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="RSP_CD"></Arg>
<Arg name="DestNam" value="RSP_MSG"></Arg>
<Arg name="TblNam" value="RSP_CSW_RSP_MSG"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=本地错误码转换为相应的错误信息失败</Set>
<Return/>
</If>
</Macro>
<Macro name="ABC_CSW_RSPCD" desc="农行错误码转换为本地错误码">
<!-- 农行错误码转换为本地错误码 -->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="TRSP_CD"></Arg>
<Arg name="DestNam" value="RSP_CD"></Arg>
<Arg name="TblNam" value="ABC_CSW_RSP_CD"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=银行错误码转换为本地错误码失败</Set>
<Return/>
</If>
<!-- 本地错误码转换为相应的错误信息 -->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="RSP_CD"></Arg>
<Arg name="DestNam" value="RSP_MSG"></Arg>
<Arg name="TblNam" value="RSP_CSW_RSP_MSG"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=本地错误码转换为相应的错误信息失败</Set>
<Return/>
</If>
</Macro>
<Macro name="SZFS_CSW_RSPCD" desc="结算中心错误码转换为本地错误码">
<!-- 结算中心错误码转换为本地错误码 -->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="TRSP_CD"></Arg>
<Arg name="DestNam" value="RSP_CD"></Arg>
<Arg name="TblNam" value="SZFS_CSW_RSP_CD"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=银行错误码转换为本地错误码失败</Set>
<Return/>
</If>
<!-- 本地错误码转换为相应的错误信息 -->
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="RSP_CD"></Arg>
<Arg name="DestNam" value="RSP_MSG"></Arg>
<Arg name="TblNam" value="RSP_CSW_RSP_MSG"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=本地错误码转换为相应的错误信息失败</Set>
<Return/>
</If>
</Macro>
<Macro name="SZFS_CSW_TTXNST" desc="结算中心状态码转换为交易状态">
<Exec func="PUB:CodeSwitching" error="IGNORE">
<Arg name="DatSrc" value="CAPCSW"></Arg>
<Arg name="SourNam" value="Sts"></Arg>
<Arg name="DestNam" value="TTXN_ST"></Arg>
<Arg name="TblNam" value="SZFS_CSW_TTXN_ST"></Arg>
</Exec>
<If condition="INTCMP(~RetCod,4,0)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=算中心状态码转换为交易状态失败</Set>
<Return/>
</If>
</Macro>
<Macro name="CSW_RSPCD" desc="错误码转换">
<If condition="AND(IS_EQUAL_STRING($CORG_NO,BCOM),IS_EQUAL_STRING($ORD_TYP,12))">
<Set>CSW_TYP=</Set><!-- 匹配类型 -->
</If>
<Else>
<Set>CSW_TYP=0</Set><!-- 匹配类型 -->
</Else>
<Call package="CAP_CSW" function="CAP_SIG_CSW">
<Input>CSW_TYP|CAP_TYP|CORG_NO|TRSP_CD|TRSP_MSG|</Input>
<Output>DST_RSP_CD|DST_RSP_MSG|DST_TXN_STS|</Output>
</Call>
<Set>RSP_CD=@O.DST_RSP_CD</Set>
<Set>RSP_MSG=@O.DST_RSP_MSG</Set>
<Set>DST_TXN_STS=@O.DST_TXN_STS</Set>
</Macro>
<Macro name="CHECK_MERC" desc="接口校验">
<Set>JRN_NO=$JRN_NO</Set>
<Call package="CHKMERC" function="CheckMercAndBankVerify">
</Call>
<If condition="IS_SUCC(@O.MSG_CD)=0">
<Set>RSP_CD=80</Set>
<Set>RSP_MSG=@O.MSG_INF</Set>
<Set>TXN_STS=F</Set>
<Set>TTXN_ST=F</Set>
<!--更新接口校验结果-->
<Exec func="PUB:ExecSql" error="IGNORE">
<Arg name="SqlCmd" value="UpdChkMercResult"/>
</Exec>
<If condition="~RetCod != 0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=更新流水表失败</Set>
<Return/>
</If>
<Return />
</If>
</Macro>
<Macro name="BAT_CHECK_MERC" desc="批量接口校验">
<Call package="CHKMERC" function="BatCheckMercFunc">
<Input>DSK_NAM|CORG_NO|TRSP_CD|TRSP_MSG|</Input>
<Output>BAT_CNT|BAT_SUM|</Output>
</Call>
<Set>BAT_CNT=@O.BAT_CNT</Set>
<Set>BAT_SUM=@O.BAT_SUM</Set>
</Macro>
</FrontTab>
View Git Blame Copy Permalink