Files
2021-01-12 22:04:24 +08:00

95 lines
3.5 KiB
XML

<?xml version="1.0" encoding='UTF-8'?>
<Root>
<Transaction code="4902103" log_switch="1" desc="查询事务预警邮件/短信列">
<DynSentence name="QRY_CAPSMSLST">
<Sentence>
SELECT *
FROM
CAPSMSLST
WHERE
EVT_TYP=? or ? is null
</Sentence>
<Fields>EVT_TYP|EVT_TYP|</Fields>
</DynSentence>
<DynSentence name="QRY_CAPSMSLST_COUNT">
<Sentence>
SELECT COUNT(*) TOT_REC_NUM
FROM
CAPSMSLST
WHERE
EVT_TYP=? or ? is null
</Sentence>
<Fields>EVT_TYP|EVT_TYP|</Fields>
</DynSentence>
<FlowCtrl>
<Exec func="PUB:DumpETF"/>
<Set>EVT_TYP=$EVT_TYP</Set>
<Set>SQL=QRY_CAPSMSLST</Set>
<If condition="ISNULL($PAG_NO)">
<Set>PAG_NO=1</Set> <!-- 页号为空时 默认为0 -->
</If>
<Else>
<Set>PAG_NO=$PAG_NO</Set> <!-- 页号 -->
</Else>
<If condition="ISNULL($PAG_NUM)">
<Set>PAG_NUM=10</Set> <!-- 显示行数为空时 默认为10 -->
</If>
<Else>
<Set>PAG_NUM=$PAG_NUM</Set> <!-- 显示行数 -->
</Else>
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CAPSMSLST_COUNT" />
</Exec>
<If condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="RPM00000" />
</Exec>
<Set>TOT_REC_NUM=$TOT_REC_NUM</Set> <!-- 明细数量 -->
</If>
<ElseIf condition="~RetCod=2">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CMM00000"/>
<Arg name="MsgDat" value="无查询结果"/>
</Exec>
<Set>PAG_CNT=0</Set>
<Set>TOT_REC_NUM=0</Set>
</ElseIf>
<Else>
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="BUI26006"/>
<Arg name="MsgDat" value="查询数据库出错"/>
</Exec>
<Set>PAG_CNT=0</Set>
<Set>TOT_REC_NUM=0</Set>
<Return />
</Else>
<Exec func="PUB:DBMultiQueryPage" error="IGNORE">
<Arg name="PageNo" value="$PAG_NO" />
<Arg name="SqlCmd" value="$SQL" />
<Arg name="RecNumPerPage" value="$PAG_NUM" />
</Exec>
<If condition="~RetCod=2">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CMM00000"/>
<Arg name="MsgDat" value="无查询结果"/>
</Exec>
<Return/>
</If>
<ElseIf condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="BUI00000"/>
<Arg name="MsgDat" value="查询成功"/>
</Exec>
</ElseIf>
<Else>
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="BUI26006"/>
<Arg name="MsgDat" value="查询数据库出错"/>
</Exec>
<Return/>
</Else>
<Exec func="PUB:DumpETF"/>
</FlowCtrl>
</Transaction>
</Root>