58 lines
1.9 KiB
XML
58 lines
1.9 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Package>
|
|
|
|
<Function name="QRY_PPD_BNK">
|
|
<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=? AND USR_OPR_TYP='0'
|
|
</Sentence>
|
|
<Fields>MBL_NO|</Fields>
|
|
</DynSentence>
|
|
|
|
<!-- 查询最后充值银行 -->
|
|
<DynSentence name="QRY_URMTPPD">
|
|
<Sentence>
|
|
SELECT PPD_BNK
|
|
FROM URMTPPD
|
|
WHERE USR_NO=?
|
|
</Sentence>
|
|
<Fields>PPD_BNK|USR_NO|</Fields>
|
|
</DynSentence>
|
|
|
|
<Process>
|
|
|
|
<!-- 根据手机号查内部用户号 -->
|
|
<If condition="ISNULL($USR_NO)">
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="QRY_URMTOPER_BY_MBLNO"/>
|
|
</Exec>
|
|
</If>
|
|
|
|
<!-- 查询最后充值银行 -->
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="QRY_URMTPPD"/>
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20003"/> <!-- 更新数据库时，数据不存在 -->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<Set>OUT_DAT.PPD_BNK=PPD_BNK</Set>
|
|
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM00000"/>
|
|
</Exec>
|
|
<Exec func="PUB:DumpETF"/>
|
|
|
|
</Process>
|
|
|
|
</Function>
|
|
</Package> |