89 lines
3.6 KiB
XML
89 lines
3.6 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Package>
|
|
<Function name="CHK_USER_EXIST">
|
|
<Input>INP_DAT</Input>
|
|
<Output>OUT_DAT|MSG_CD</Output>
|
|
|
|
<!-- 根据手机号查询用户操作员信息表 -->
|
|
<DynSentence name="QRY_URMTOPER_BY_MBLNO">
|
|
<Sentence>
|
|
SELECT USR_NO
|
|
FROM URMTOPER
|
|
WHERE USR_OPR_ID=?
|
|
</Sentence>
|
|
<Fields>INP_DAT.MBLNO_OR_LOGID|</Fields>
|
|
</DynSentence>
|
|
|
|
<!-- 根据别名查询用户操作员信息表 -->
|
|
<DynSentence name="QRY_URMTOPER_BY_LOGID">
|
|
<Sentence>
|
|
SELECT USR_NO
|
|
FROM URMTOPER
|
|
WHERE USR_OPR_LOG_ID=?
|
|
</Sentence>
|
|
<Fields>INP_DAT.MBLNO_OR_LOGID|</Fields>
|
|
</DynSentence>
|
|
|
|
<!-- 根据内部用户号查询手机用户信息表 -->
|
|
<DynSentence name="QRY_URMTPINF">
|
|
<Sentence>
|
|
SELECT USR_NO,MAIN_AC
|
|
FROM URMTPINF
|
|
WHERE USR_NO=?
|
|
</Sentence>
|
|
<Fields>USR_NO|</Fields>
|
|
</DynSentence>
|
|
|
|
<Process>
|
|
<Exec func="PUB:DumpETF"/> <!-- test -->
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM00000"/>
|
|
</Exec>
|
|
|
|
<!--根据手机号或别名查询操作员信息表-->
|
|
<If condition="AND(ISNUMBER($INP_DAT.MBLNO_OR_LOGID),IS_EQUAL_STRING(STRLEN($INP_DAT.MBLNO_OR_LOGID),11),
|
|
OR(IS_EQUAL_STRING(SUBSTR($INP_DAT.MBLNO_OR_LOGID,1,1),1),
|
|
IS_EQUAL_STRING(SUBSTR($INP_DAT.MBLNO_OR_LOGID,1,1),9)))">
|
|
<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="URM20029"/> <!-- 未开通手机支付功能 -->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
</If>
|
|
<Else>
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="QRY_URMTOPER_BY_LOGID"/>
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20029"/> <!-- 未开通手机支付功能 -->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
</Else>
|
|
|
|
<!-- 读取用户基本信息表 -->
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="QRY_URMTPINF"/>
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20012"/> <!-- 未开通手机支付功能 -->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<!-- 用户状态检查返回信息 -->
|
|
<Set>OUT_DAT.USR_NO=$USR_NO</Set> <!-- 内部用户号 -->
|
|
<Set>OUT_DAT.AC_NO=$MAIN_AC</Set> <!-- 账号 -->
|
|
|
|
<Exec func="PUB:DumpETF"/> <!-- test -->
|
|
|
|
</Process>
|
|
|
|
</Function>
|
|
</Package> |