269 lines
11 KiB
XML
269 lines
11 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Package>
|
|
<Function name="CANCEL_USER">
|
|
<Input>GWA|INP_DAT</Input>
|
|
<Output>OUT_DAT|MSG_CD</Output>
|
|
|
|
<DynSentence name="QRY_URMTOPER_BY_MBLNO">
|
|
<Sentence>
|
|
SELECT USR_NO,USR_OPR_NO,USR_OPR_LOG_ID,USR_OPR_LOG_SHOW
|
|
FROM URMTOPER
|
|
WHERE USR_OPR_ID=?
|
|
</Sentence>
|
|
<Fields>INP_DAT.MBL_NO|</Fields>
|
|
</DynSentence>
|
|
|
|
<DynSentence name="QRY_URMTPINF_BY_USRNO">
|
|
<Sentence>
|
|
SELECT USR_STS,MAIN_AC
|
|
FROM URMTPINF
|
|
WHERE USR_NO=?
|
|
</Sentence>
|
|
<Fields>USR_NO|</Fields>
|
|
</DynSentence>
|
|
|
|
<DynSentence name="UPD_URMTPINF_STS">
|
|
<Sentence>
|
|
UPDATE URMTPINF
|
|
SET USR_STS=?,MBL_NO=?,CLO_DT=?,UPD_JRN=?
|
|
WHERE USR_NO=?
|
|
</Sentence>
|
|
<Fields>CMA_OUT.AC_STS|GDM_OUT.MBL_NO|GWA.CUR_AC_DT|GWA.JRN_NO|USR_NO</Fields>
|
|
</DynSentence>
|
|
|
|
<DynSentence name="UPD_URMTOPER_STS">
|
|
<Sentence>
|
|
UPDATE URMTOPER
|
|
SET USR_OPR_STS=?,UPD_JRN=?,OLD_OPR_LOG_ID=?,USR_OPR_LOG_ID=?,USR_OPR_ID=?
|
|
WHERE USR_NO=?
|
|
</Sentence>
|
|
<Fields>CMA_OUT.AC_STS|GWA.JRN_NO|USR_OPR_LOG_ID|IN_OPR_LOG_ID|GDM_OUT.MBL_NO|USR_NO|</Fields>
|
|
</DynSentence>
|
|
|
|
<DynSentence name="UPD_URMTCOMI_STS">
|
|
<Sentence>
|
|
UPDATE URMTCOMI
|
|
SET USR_STS=?
|
|
WHERE USR_NO=?
|
|
</Sentence>
|
|
<Fields>CMA_OUT.AC_STS|USR_NO|</Fields>
|
|
</DynSentence>
|
|
|
|
<!-- 更新开销户历史表 -->
|
|
<DynSentence name="UPD_URMTPOCH">
|
|
<Sentence>
|
|
UPDATE URMTPOCH SET CLO_DT=?, CLO_TM=?,CLO_BUS_CNL=?
|
|
WHERE SUB_AC=? AND SEQ_NO='1'
|
|
</Sentence>
|
|
<Fields>|GWA.TX_DT|GWA.TX_TM|GWA.BUS_CNL|MAIN_AC</Fields>
|
|
</DynSentence>
|
|
|
|
<Process>
|
|
<Exec func="PUB:DumpETF"/> <!-- test -->
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM00000"/>
|
|
</Exec>
|
|
|
|
<!-- 根据手机号查询用户操作员信息表 -->
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="QRY_URMTOPER_BY_MBLNO"/>
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:CMPSetMsg">
|
|
<Arg name="MsgCd" value="URM20019"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<!-- 根据内部用户号查询手机用户信息表 -->
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="QRY_URMTPINF_BY_USRNO"/>
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20012"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<If condition="$USR_STS=1">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20009"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<If condition="$USR_STS=3">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20069"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<!-- 调用现场-钱包卡信息查询 -->
|
|
<Call package="LPS_PUB" function="QuerySubAcIsExist">
|
|
<Input>INP_DAT.MBL_NO</Input>
|
|
<Output>MBL_NO|SUB_AC|MAIN_AC|CRD_STS|CRD_VER|CRD_TYP|IMSI|MSG_CD</Output>
|
|
</Call>
|
|
<Set>SUB_AC=@O.SUB_AC</Set>
|
|
<If condition="IS_SUCC(@O.MSG_CD)"> <!-- 手机钱包存在 -->
|
|
<!--调用现场钱包销户-->
|
|
<Call package="LPS_PUB" function="CancelSubAccount">
|
|
<Input>GWA|SUB_AC|</Input>
|
|
<Output>MSG_CD|</Output>
|
|
</Call>
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0"> <!-- 钱包账户销户失败 -->
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
</If>
|
|
|
|
|
|
<!-- 销户时收回正在转让的红包 20110531 P04908-->
|
|
<Set>MBL_NO=$INP_DAT.MBL_NO</Set>
|
|
<Call package="MKM" function="TransBonDispose">
|
|
<Input>MBL_NO|USR_NO</Input>
|
|
<Output>MSG_CD|MSG_DAT</Output>
|
|
</Call>
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Exec func="PUB:CMPSetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD"/> <!-- 红包收回失败 -->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<!-- 调用帐户-主帐户销户 -->
|
|
<Set>CMA_INP.AC_NO=$MAIN_AC</Set> <!-- 手机号 -->
|
|
<Set>CMA_INP.CLS_FUN=Y</Set> <!-- 销户标志 -->
|
|
<Exec func="ACMPUB:CloseMainAccount">
|
|
<Arg name="_I_GWA" value="GWA" />
|
|
<Arg name="_I_INP_DAT" value="CMA_INP"/>
|
|
<Arg name="_O_OUT_DAT" value="CMA_OUT"/>
|
|
</Exec>
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<Set>CMA_OUT=VAL("@O.CMA_OUT")</Set>
|
|
|
|
<!-- 调用公共-生成虚拟手机号 -->
|
|
<Exec func="CMM:GenerateDummyMobilNo">
|
|
<Arg name="_I_INP_DAT" value="11"/> <!-- test -->
|
|
<Arg name="_O_OUT_DAT" value="GDM_OUT"/>
|
|
</Exec>
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Exec func="PUB:CMPSetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<Set>GDM_OUT=VAL("@O.GDM_OUT")</Set>
|
|
|
|
<!-- 更新手机用户信息表 -->
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="UPD_URMTPINF_STS"/>
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20003"/> <!-- 更新数据库时，数据不存在 -->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<If condition="$CMA_OUT.AC_STS=1">
|
|
<Set>IN_OPR_LOG_ID=ADDCHAR($USR_OPR_NO,10,0,1)</Set>
|
|
<Set>IN_OPR_LOG_ID=STRCAT(!,$IN_OPR_LOG_ID)</Set> <!-- 虚拟别名 -->
|
|
</If>
|
|
<If condition="$CMA_OUT.AC_STS=0">
|
|
<Set>IN_OPR_LOG_ID=ADDCHAR($USR_OPR_NO,10,0,1)</Set>
|
|
<Set>IN_OPR_LOG_ID=STRCAT(!,$IN_OPR_LOG_ID)</Set> <!-- 虚拟别名 -->
|
|
</If>
|
|
<ElseIf condition="$CMA_OUT.AC_STS=3">
|
|
<Set>IN_OPR_LOG_ID=$USR_OPR_LOG_ID</Set>
|
|
</ElseIf>
|
|
<!-- 更新操作员信息表 -->
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="UPD_URMTOPER_STS"/>
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20003"/> <!-- 更新数据库时，数据不存在 -->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<!-- 更新公共属性表 -->
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="UPD_URMTCOMI_STS"/>
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20003"/> <!-- 更新数据库时，数据不存在 -->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<!-- 更新开销户历史表 -->
|
|
<If condition="$CMA_OUT.AC_STS=1">
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="UPD_URMTPOCH"/>
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<!-- 没有开户历史，登记新的销户历史 -->
|
|
<Set>INP_DAT.SEQ_NO=1</Set>
|
|
<Set>INP_DAT.AC_TYP=100</Set>
|
|
<Set>INP_DAT.SUB_AC=$MAIN_AC</Set>
|
|
<Set>INP_DAT.CLO_DT=$GWA.TX_DT</Set>
|
|
<Set>INP_DAT.CLO_TM=$GWA.TX_TM</Set>
|
|
<Set>INP_DAT.CLO_BUS_CNL=$GWA.BUS_CNL</Set>
|
|
<Set>INP_DAT.USR_NO=$USR_NO</Set>
|
|
<Exec func="PUB:InsertRecord">
|
|
<Arg name="TblNam" value="URMTPOCH"/> <!-- 用户支付密码保护信息表 -->
|
|
<Arg name="GrpNam" value="INP_DAT"/>
|
|
</Exec>
|
|
<If condition="~RetCod=1">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20000"/> <!-- 插入多条记录，存在失败的记录 -->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
</If>
|
|
|
|
</If>
|
|
|
|
<!-- P04183 20110322 转待销户时同步订购关系到BOSS 张艳方 修改 -->
|
|
<!-- 异步通知BOSS系统手机支付用户退订关系 -->
|
|
<Set>TLOG_NO=$GWA.JRN_NO</Set>
|
|
<Exec func="PUB:GetUniqueNo">
|
|
<Arg name="Name" value="SEL_VAL"/> <!--可选参数，自定义生成的序号节点名，默认为ID-->
|
|
<Arg name="Len" value="10"/> <!--必输参数，生成的序号的长度，最大长度为18位-->
|
|
</Exec>
|
|
<Set>SEL_VAL=ADDCHAR($SEL_VAL,16,0,1)</Set>
|
|
|
|
<Set>PRO_TIM=GETDATETIME()</Set>
|
|
<Set>TRAN_IDO=STRCAT($PRO_TIM,$SEL_VAL)</Set>
|
|
<Set>TRAN_IDH=STRCAT($PRO_TIM,$SEL_VAL)</Set>
|
|
<Set>SEL_VAL=SUBSTR($SEL_VAL,11,6)</Set>
|
|
<Set>OPR_LOG=STRCAT(0034BIP2B260,$PRO_TIM,$SEL_VAL)</Set>
|
|
<Set>CHG_OPR=02</Set>
|
|
|
|
<Exec func="PUB:InvokeService">
|
|
<Arg name="ServiceName" value="T2001060"/>
|
|
<Arg name='Mode' value='NOTIFY'/>
|
|
<Arg name="LogID" value="SBSGPUB1"/>
|
|
<Arg name="ObjSvr" value="SBSGPUB1"/>
|
|
</Exec>
|
|
<Set>RetCod=~RetCod</Set>
|
|
|
|
<Set>OUT_DAT.AC_NO=$MAIN_AC</Set>
|
|
<Set>OUT_DAT.USR_OPR_LOG_SHOW=$USR_OPR_LOG_SHOW</Set>
|
|
<Set>OUT_DAT.AC_STS=$CMA_OUT.AC_STS</Set>
|
|
|
|
<Exec func="PUB:DumpETF"/>
|
|
|
|
</Process>
|
|
|
|
</Function>
|
|
</Package> |