69 lines
1.7 KiB
XML
69 lines
1.7 KiB
XML
<?xml version="1.0" encoding='UTF-8'?>
|
|
<Root>
|
|
<!--证件查询用户资料 -->
|
|
<Transaction code="BUI0010342" log_switch="1">
|
|
|
|
<!-- 根据证件查询用户信息表 -->
|
|
<DynSentence name="QRY_URMTPINF_ID">
|
|
<Sentence>
|
|
SELECT USR_NO,MAIN_AC,MBL_NO,OLD_MBL_NO,CUS_NM,ID_TYP,ID_NO
|
|
FROM URMTPINF
|
|
WHERE ID_TYP=? AND ID_NO=? AND USR_STS!=1
|
|
</Sentence>
|
|
<Fields>ID_TYP|ID_NO</Fields>
|
|
</DynSentence>
|
|
|
|
<!-- 根据证件查询用户信息表 -->
|
|
<DynSentence name="QRY_URMTPINF_MBL">
|
|
<Sentence>
|
|
SELECT ID_TYP,ID_NO
|
|
FROM URMTPINF
|
|
WHERE MBL_NO=?
|
|
</Sentence>
|
|
<Fields>MBL_NO</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
<Set>EN_NO=DESENCODE($ID_NO)</Set> <!-- 加 -->
|
|
<Set>ID_NO=$EN_NO</Set>
|
|
|
|
<If condition="NOT(ISNULL($MBL_NO))">
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="QRY_URMTPINF_MBL" />
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="URM20012" /> <!--@msg用户信息表记录不存在 -->
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<If condition="ISNULL(DELBOTHSPACE($ID_TYP))">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="URM20196" /> <!--非实名 -->
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
</If>
|
|
|
|
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="QRY_URMTPINF_ID" />
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="URM20012" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<If condition="NOT(ISNULL($ID_NO))">
|
|
<Set>TEMP=SUBSTR(DESDECODE($ID_NO),7,8)</Set>
|
|
<Set>ID_NO=STRCAT("******",$TEMP,"****")</Set>
|
|
</If>
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="URM00000" />
|
|
</Exec>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
</Root>
|