52 lines
1.6 KiB
XML
52 lines
1.6 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Application name="lps" code="010" trace="yes">
|
|
|
|
<!--网络侧圈存检查-->
|
|
<Transaction code="2142011" log_switch="1">
|
|
<DynSentence name='QRY_LPSTSFIF_RECEXT'>
|
|
<Sentence>
|
|
SELECT * FROM LPSTSFIF WHERE SUB_AC IN (SELECT SUB_AC FROM LPSTSFIF MBL_NO=?)
|
|
</Sentence>
|
|
<Fields>MBL_NO|</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
<Set>MSG_CD=LPS00000</Set>
|
|
<!--查询存储转发表 判断记录是否存在-->
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_LPSTSFIF_RECEXT"/>
|
|
</Exec>
|
|
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS40002"/>
|
|
<Arg name="MsgDat" value="请不要连续提交"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00001"/>
|
|
<Arg name="MsgDat" value="转发状态判断失败"/>
|
|
</Exec>
|
|
<Return/>
|
|
</ElseIf>
|
|
|
|
<!--风控检查
|
|
<Call package=" " function="风控 实时风险检查">
|
|
<Input> |</Input>
|
|
<Output> |</Output>
|
|
</Call>
|
|
<If condition= >
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS40003"/>
|
|
<Arg name="MsgDat" value="余额不足，交易失败"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If-->
|
|
|
|
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Application>
|