85 lines
2.8 KiB
XML
85 lines
2.8 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Application name="lps" trace="yes">
|
|
|
|
<!--钱包解锁posp-->
|
|
<Transaction code="2131040" log_switch="1">
|
|
|
|
<DynSentence name="QRY_LPSTCRD_STSW"> <!--通过应用序列号查询状态字-->
|
|
<Sentence>
|
|
SELECT CRD_STSW
|
|
FROM LPSTCRD
|
|
WHERE SUB_AC=?
|
|
</Sentence>
|
|
<Fields>SUB_AC|</Fields>
|
|
</DynSentence>
|
|
|
|
<DynSentence name='UPD_LPSTCRD_STS'>
|
|
<Sentence>
|
|
UPDATE LPSTCRD SET CRD_STSW = ? ,TM_SMP = ?
|
|
WHERE SUB_AC= ?
|
|
</Sentence>
|
|
<Fields>CRD_STSW|SYS_TM_SMP|SUB_AC</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
|
|
<!--查询状态字-->
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="QRY_LPSTCRD_STSW"/>
|
|
</Exec>
|
|
<If condition="~RetCod=-1" >
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS19999"/>
|
|
<Arg name="MsgDat" value="系统错误"/>
|
|
</Exec>
|
|
<Set>RSP_CD=99</Set>
|
|
<Return/>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2" >
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS20055"/>
|
|
<Arg name="MsgDat" value="用户未开通手机钱包"/>
|
|
</Exec>
|
|
<Set>RSP_CD=99</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
|
|
<Set>CRD_STSW=STRCAT(SUBSTR($CRD_STSW,1,4),0,SUBSTR($CRD_STSW,6,SUB(STRLEN($CRD_STSW),5)))</Set> <!--更新状态字的第五位（锁定标志）为0-->
|
|
|
|
<!--更改钱包状态为解锁-->
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="UPD_LPSTCRD_STS"/>
|
|
</Exec>
|
|
<If condition="~RetCod=-1">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS19999"/>
|
|
<Arg name="MsgDat" value="系统错误"/>
|
|
</Exec>
|
|
<Set>RSP_CD=99</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS20055"/>
|
|
<Arg name="MsgDat" value="用户未开通手机钱包"/>
|
|
</Exec>
|
|
<Set>RSP_CD=99</Set>
|
|
</ElseIf>
|
|
<Else> <!--钱包解锁成功-->
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00000"/>
|
|
</Exec>
|
|
<Set>RSP_CD=00</Set>
|
|
</Else>
|
|
|
|
<!--如果手机钱包解锁成功，则短信通知用户-->
|
|
<If condition="$RSP_CD=00">
|
|
<Set>SMS_CD=LPS003</Set> <!--添加解锁的短信模板编号-->
|
|
<Call package="LPS_PUB" function="SendShortMessage"/>
|
|
</If>
|
|
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
</Application>
|
|
|