106 lines
3.1 KiB
XML
106 lines
3.1 KiB
XML
<?xml version="1.0" encoding='UTF-8'?>
|
|
|
|
<Application name="SIM" code="442"
|
|
xmlns="http://www.hisuntech.com/ctltem"
|
|
xmlns:xs="http://www.w3.org/2001/XMLSchema-instance"
|
|
xs:schemaLocation="http://www.hisuntech.com/ctltem
|
|
http://10.8.2.225:8580/cts/CTLTEM.xsd">
|
|
<Transaction code="ID5Check" log_switch="1">
|
|
<DynSentence name="QRY_TSTTID5_INFO">
|
|
<Sentence>SELECT 'Y' FROM TSTTID5 WHERE ID_NO = ? AND CUS_NM=?</Sentence>
|
|
<Fields>REQID|REQNAME|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Set>A=$REQNAME</Set>
|
|
<Set>A=$REQID</Set>
|
|
<Exec func="PUB:ReadRecord" >
|
|
<Arg name="SqlCmd" value="QRY_TSTTID5_INFO" />
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>messageStatus=0</Set>
|
|
<Set>CMP_RES=1</Set>
|
|
<Set>compStatus=1</Set>
|
|
<Delete>REQNAME</Delete>
|
|
<Delete>'Y'</Delete>
|
|
<Return />
|
|
</If>
|
|
<Set>messageStatus=0</Set>
|
|
<Set>CMP_RES=3</Set>
|
|
<Set>compStatus=3</Set>
|
|
<Delete>REQNAME</Delete>
|
|
<Delete>'Y'</Delete>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
<!--查询身份证-->
|
|
<Transaction code="ID5Query" log_switch="1">
|
|
<Function name="_before">
|
|
<Process>
|
|
<!-- 初始化GWA区 -->
|
|
<Exec func="PUB:InitGWA" />
|
|
</Process>
|
|
</Function>
|
|
<Function name="_after">
|
|
<Process>
|
|
<Process>
|
|
<!-- #SysRet 系统异常错误标志 -->
|
|
<If condition="#SysRet=0">
|
|
<Set>GWA.MSG_CD=SCM60001</Set>
|
|
</If>
|
|
<!-- GWA区未赋值错误码 -->
|
|
<If condition="ISNULL($GWA.MSG_CD)">
|
|
<Set>GWA.MSG_CD=SCM60001</Set>
|
|
</If>
|
|
<!-- 根据交易结果设置消息类型 -->
|
|
<If condition="IS_SUCC($GWA.MSG_CD)">
|
|
<Set>GWA.MSG_TYP=N</Set>
|
|
</If>
|
|
<Else>
|
|
<Set>GWA.MSG_TYP=E</Set>
|
|
<Exec func="PUB:ProcMsgCod" error="IGNORE"/>
|
|
<If condition="~RetCod!=0">
|
|
<Set>GWA.MSG_CD=SCM60001</Set>
|
|
</If>
|
|
</Else>
|
|
<!-- 根据消息类型判断交易是否成功 -->
|
|
<If condition="OR(IS_EQUAL_STRING($GWA.MSG_TYP,N),IS_EQUAL_STRING($GWA.MSG_TYP,W))">
|
|
<!-- 若消息类型正常或警告则提交数据库事务 -->
|
|
<Exec func="PUB:CommitWork" error="IGNORE" />
|
|
</If>
|
|
<Else>
|
|
<!-- 交易失败回滚数据库事务 -->
|
|
<Exec func="PUB:RollbackWork" error="IGNORE" />
|
|
</Else>
|
|
</Process>
|
|
</Process>
|
|
</Function>
|
|
<DynSentence name="QRY_TSTTID5_INFO">
|
|
<Sentence>SELECT ID_NO FROM TSTTID5 WHERE CUS_NM=?</Sentence>
|
|
<Fields>ID_NM|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_TSTTID5_INFO"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="SMS00000"/>
|
|
</Exec>
|
|
<Set>ID_NO=查询出错</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="SMS00000"/>
|
|
</Exec>
|
|
<Set>ID_NO=找不到纪录</Set>
|
|
</ElseIf>
|
|
<Else>
|
|
<!--设置交易返回码为成功-->
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="SMS00000"/>
|
|
</Exec>
|
|
</Else>
|
|
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Application> |