52 lines
1.9 KiB
XML
52 lines
1.9 KiB
XML
<?xml version="1.0" encoding='UTF-8'?>
|
|
<Root>
|
|
<Transaction code="4900007" log_switch="1" desc="商户校验信息设置修改">
|
|
<DynSentence name="UPD_CAPMERCCHK">
|
|
<Sentence>
|
|
TXN_CNL = ? AND CAP_TYP = ? AND CAP_MERC_NM = ?
|
|
</Sentence>
|
|
<Fields>TXN_CNL|CAP_TYP|CAP_MERC_NM|</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF"/>
|
|
<Set>TXN_CNL=$TXN_CNL</Set>
|
|
<Set>CAP_TYP=$CAP_TYP</Set>
|
|
<Set>CAP_MERC_NM=$CAP_MERC_NM</Set>
|
|
<Set>IS_USED=$IS_USED</Set>
|
|
<Set>CHK_CUS_NM=$CHK_CUS_NM</Set>
|
|
<Set>CHK_CRD_NO=$CHK_CRD_NO</Set>
|
|
<Set>CHK_ID_TYP=$CHK_ID_TYP</Set>
|
|
<Set>CHK_ID_NO=$CHK_ID_NO</Set>
|
|
<Set>CHK_MOBLE=$CHK_MOBLE</Set>
|
|
<Set>CHK_PURPOSE=$CHK_PURPOSE</Set>
|
|
|
|
<Exec func="PUB:UpdateRecord">
|
|
<Arg name="TblNam" value="CAPMERCCHK"/>
|
|
<Arg name="CndSts" value="UPD_CAPMERCCHK"/>
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="CMM00000" />
|
|
<Arg name="MsgDat" value="修改成功"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="CMM20100"/>
|
|
<Arg name="MsgDat" value="该记录不存在"/>
|
|
</Exec>
|
|
</ElseIf>
|
|
<Else>
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="CMM39022"/>
|
|
<Arg name="Msgdat" value="更新数据库操作失败"/>
|
|
</Exec>
|
|
</Else>
|
|
|
|
<Exec func="PUB:DumpETF"/>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Root>
|