95 lines
3.3 KiB
XML
95 lines
3.3 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Application name="lps" trace="yes">
|
|
|
|
<!--营业厅换卡申请-->
|
|
<Transaction code="2132020" log_switch="1">
|
|
<!-- 验证卡片合法性 -->
|
|
<DynSentence name="QRY_LPSTCRD_CRDSTS">
|
|
<Sentence>
|
|
SELECT CRD_STS,SUB_AC,CRD_STSW FROM LPSTCRD WHERE MBL_NO=? AND CRD_STS!='2'
|
|
</Sentence>
|
|
<Fields>MBL_NO|</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
<!-- 初始化BOSS返回值 -->
|
|
<Set>RSP_TYP=0</Set>
|
|
<Set>RSP_COD=0000</Set>
|
|
<If condition="IS_EQUAL_STRING($RTE_TYP,00)">
|
|
<Set>RTE_VAL=999</Set>
|
|
</If>
|
|
<Set>LAND_AP_DOM=MPAY</Set>
|
|
<Set>ORG_AP_DOM=BOSS</Set>
|
|
<Set>BR_NO=999999</Set>
|
|
<Exec func="PUB:GetUniqueNo">
|
|
<Arg name="Name" value="SEL_VAL"/>
|
|
<Arg name="Len" value="10"/>
|
|
</Exec>
|
|
<Set>SEL_VAL=ADDCHAR($SEL_VAL,16,0,1)</Set>
|
|
<Set>PRO_TIM=GETDATETIME()</Set>
|
|
<Set>LAND_JRN=STRCAT($PRO_TIM,$SEL_VAL)</Set>
|
|
<Set>PRO_RSL=00</Set>
|
|
<Set>RSP_MSG=交易成功</Set>
|
|
|
|
|
|
<!--用户-用户状态检查-->
|
|
<Set>INP_DAT.MBLNO_OR_LOGID=$MBL_NO</Set>
|
|
<Set>INP_DAT.TX_CD=$GWA.TX_CD</Set>
|
|
<Call package="URM_PUB" function="CHK_USER_STS">
|
|
<Input>INP_DAT|</Input>
|
|
<Output>OUT_DAT|MSG_CD|</Output>
|
|
</Call>
|
|
<If condition="NOT(IS_SUCC(@O.MSG_CD))">
|
|
<If condition="IS_EQUAL_STRING(@O.MSG_CD,URM20019,URM20020)">
|
|
<Set>PRO_RSL=01</Set> <!-- 用户未开通主账户 -->
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00000"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<Else>
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD"/>
|
|
</Exec>
|
|
<Set>RSP_TYP=2</Set>
|
|
<Set>RSP_COD=2998</Set>
|
|
<Set>RSP_MSG=用户状态异常</Set>
|
|
<Set>PRO_RSL=99</Set>
|
|
<Return/>
|
|
</Else>
|
|
</If>
|
|
|
|
<!--检查钱包状态-->
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_LPSTCRD_CRDSTS"/>
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Set>OFF_PAY=1</Set> <!-- 未开通手机钱包 -->
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00000"/>
|
|
<Arg name="MsgDat" value="用户未开通手机钱包"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<ElseIf condition="~RetCod!=0">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00001"/>
|
|
<Arg name="MsgDat" value="数据库操作出错"/>
|
|
</Exec>
|
|
<Set>RSP_TYP=2</Set>
|
|
<Set>RSP_COD=2998</Set>
|
|
<Set>RSP_MSG=系统异常</Set>
|
|
<Set>PRO_RSL=99</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
|
|
<Set>OFF_PAY=0</Set> <!-- 开通手机钱包 -->
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00000"/>
|
|
</Exec>
|
|
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
</Application>
|