75 lines
2.6 KiB
XML
75 lines
2.6 KiB
XML
<?xml version="1.0" encoding="UTF-8"?>
|
|
<Tran>
|
|
<!--支付地账户信息同步 -->
|
|
<Transaction code="TITLE_SYNC" log_switch='1' desc="支付地账户信息同步">
|
|
|
|
<DynSentence name="QRY_CAPACCOUNTINF_INF"><!--查询该支付地账户信息是否存在 -->
|
|
<Sentence>
|
|
SELECT 'Y' YN FROM CAPACCOUNTINF
|
|
WHERE TITLE_ID=? AND BANK_CODE=?
|
|
</Sentence>
|
|
<Fields>TITLE_ID|BANK_CODE|</Fields>
|
|
</DynSentence>
|
|
|
|
<DynSentence name="UPD_CAPACCOUNTINF_INF"> <!--更新支付地账户信息 -->
|
|
<Sentence>
|
|
UPDATE CAPACCOUNTINF
|
|
SET TITLE_NAME=?,
|
|
BR_NO=?,
|
|
ACCT_NO=?,
|
|
ACCT_TYPE=?,
|
|
ACCT_NAME=?,
|
|
ENABLED=?,
|
|
UPD_DT=?,
|
|
UPD_TM=?
|
|
WHERE TITLE_ID=? AND BANK_CODE=?
|
|
</Sentence>
|
|
<Fields>TITLE_NAME|BR_NO|ACCT_NO|ACCT_TYPE|ACCT_NAME|ENABLED|UPD_DT|UPD_TM|TITLE_ID|BANK_CODE|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<!--清理数据 -->
|
|
<Delete>RSP_CD</Delete>
|
|
<Delete>RSP_MSG</Delete>
|
|
<Set>UPD_DT=GETDATE()</Set>
|
|
<Set>UPD_TM=GETDATETIME(HHMISS)</Set>
|
|
<!--检查支付地信息是否存在-->
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_CAPACCOUNTINF_INF"/>
|
|
</Exec>
|
|
<If condition="~RetCod=2"><!-- 信息不存在则插入新增数据-->
|
|
<Set>CRE_DT=$UPD_DT</Set>
|
|
<Set>CRE_TM=$UPD_TM</Set>
|
|
<Exec func="PUB:InsertRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="CAPACCOUNTINF" />
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>Rsp_Cd=80</Set>
|
|
<Set>Rsp_Msg=数据库操作错误</Set>
|
|
<Return />
|
|
</If>
|
|
</If>
|
|
<ElseIf condition="~RetCod=0"><!--信息已存在则更新数据-->
|
|
|
|
<Exec func="PUB:ExecSql" error="IGNORE">
|
|
<Arg name="SqlCmd" value="UPD_CAPACCOUNTINF_INF"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>Rsp_Cd=80</Set>
|
|
<Set>Rsp_Msg=数据库操作错误</Set>
|
|
<Return />
|
|
</If>
|
|
</ElseIf>
|
|
<Else><!--数据库查询错误-->
|
|
<Set>Rsp_Cd=80</Set>
|
|
<Set>Rsp_Msg=查询数据库失败</Set>
|
|
<Return/>
|
|
</Else>
|
|
|
|
<!-- 交易成功 -->
|
|
<Set>RSP_CD=00</Set>
|
|
<Set>RSP_MSG=交易成功</Set>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
</Tran>
|