147 lines
5.3 KiB
XML
147 lines
5.3 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Application name="lps" trace="yes">
|
|
|
|
<!--贴片卡丢卡销户-->
|
|
<Transaction code="2135060" log_switch="1">
|
|
<!-- 检查手机钱包状态 -->
|
|
<DynSentence name="QRY_LPSTCRD_CRDSTS">
|
|
<Sentence>
|
|
SELECT MAIN_AC,CRD_STSW,SUB_AC,USR_NO,CRD_TYP
|
|
FROM LPSTCRD
|
|
WHERE MBL_NO=? AND CRD_STS!=2 for update
|
|
</Sentence>
|
|
<Fields>MBL_NO|</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
|
|
<!-- 检查商户是否为营业厅 -->
|
|
<Call package="LPS_PUB" function="CheckMercTyp">
|
|
<Input>MERC_ID|</Input>
|
|
<Output>MSG_CD|</Output>
|
|
</Call>
|
|
<If condition="NOT(IS_SUCC(@O.MSG_CD))">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<!-- 主账户状态检查 -->
|
|
<Set>INP_DAT.MBLNO_OR_LOGID=$MBL_NO</Set>
|
|
<Set>INP_DAT.TX_CD=$GWA.TX_CD</Set>
|
|
<Call package="URM" function="CHK_USER_STS">
|
|
<Input>INP_DAT</Input>
|
|
<Output>OUT_DAT|MSG_CD</Output>
|
|
</Call>
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Set>~MSG_DAT=支付账户没有开通或账户状态异常</Set>
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<!-- 支付密码检查 -->
|
|
<Set>INP_DAT.MBL_NO=$MBL_NO</Set>
|
|
<Set>INP_DAT.PAY_PSWD_IN=$PIN</Set>
|
|
<Call package="URM" function="CHK_PAY_PSWD">
|
|
<Input>GWA|INP_DAT</Input>
|
|
<Output>OUT_DAT|MSG_CD</Output>
|
|
</Call>
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Exec func="PUB:GWAAddMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD"/>
|
|
<Arg name="MsgDat" value="支付密码检查失败"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<!--贴片卡销户合法性检查 -->
|
|
<!-- 检查是否开通手机钱包 -->
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="QRY_LPSTCRD_CRDSTS"/>
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS20055"/>
|
|
<Arg name="MsgDat" value="尚未开通手机钱包"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<If condition="~RetCod=-1">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00001"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<If condition="IS_NOEQUAL_STRING(E,$CRD_TYP)">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS20203"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<!-- 贴片卡销户处理 -->
|
|
<Set>CRD_STSW=STRCAT(1,SUBSTR($CRD_STSW,2,31))</Set> <!-- 坏卡换卡 -->
|
|
<Call package="LPS_PUB" function="CancelOldSubAccount">
|
|
<Input>GWA|SUB_AC|CRD_STSW|</Input>
|
|
<Output>MSG_CD|</Output>
|
|
</Call>
|
|
<If condition="NOT(IS_SUCC(@O.MSG_CD))">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD"/>
|
|
<Arg name="MsgDat" value="销户失败"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<!-- 登记卡片余额信息表 -->
|
|
<Set>TX_TYP=L</Set> <!-- 丢卡换卡 -->
|
|
<Set>PROC_MOD=0</Set>
|
|
<Set>PROC_RSL=U</Set> <!-- 未处理 -->
|
|
<Set>HLD_NO=XXXX</Set> <!-- 无冻结编号 -->
|
|
<Set>CRD_BAL=0.00</Set> <!-- 卡片余额设置为0 -->
|
|
<Set>REG_DT=$GWA.TX_DT</Set>
|
|
<Set>REG_TM=$GWA.TX_TM</Set>
|
|
<Exec func="PUB:InsertRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="LPSTBAL"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS20071"/>
|
|
<Arg name="MsgDat" value="记录卡片余额信息表失败"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<!-- 调用BOSS贴片卡订购关系同步 -->
|
|
<Set>PRO_TIM=GETDATETIME()</Set>
|
|
<Exec func="PUB:GetUniqueNo">
|
|
<Arg name="Name" value="BOSS_LPS_SEQ"/>
|
|
<Arg name="Len" value="6"/>
|
|
</Exec>
|
|
<Set>OPR_LOG=STRCAT(0034BIP2B295,$PRO_TIM,$SEL_VAL)</Set>
|
|
<Set>OPR_FLG=07</Set>
|
|
<Set>SUB_TYP=1</Set>
|
|
<Set>CRD_NO=$SUB_AC</Set>
|
|
<Set>TRAN_IDO=$GWA.JRN_NO</Set> <!-- 发起方流水号 -->
|
|
<Set>TLOG_NO=$GWA.JRN_NO</Set> <!-- 业务流水号 -->
|
|
<Exec func="PUB:CallThirdComm" error="IGNORE">
|
|
<Arg name="ObjSvr" value="SBSGPUB1"/>
|
|
<Arg name="HTxnCd" value="T2001095"/>
|
|
</Exec>
|
|
|
|
<!-- 下发文本短信通知用户 销户结果-->
|
|
<Set>SMS_CD=LPS002</Set>
|
|
<Call package="LPS_PUB" function="SendShortMessage"/>
|
|
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00000"/>
|
|
</Exec>
|
|
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
</Application>
|