54 lines
1.8 KiB
XML
54 lines
1.8 KiB
XML
<?xml version="1.0" encoding='UTF-8'?>
|
|
<Root>
|
|
<!-- 黑名单维护-查询 -->
|
|
<Transaction code="BUI3010010" log_switch="1">
|
|
<!-- 查询黑名单 - 列表 -->
|
|
<DynSentence name="QRY_T_CARD_LIST">
|
|
<Sentence>
|
|
SELECT CARD_NO,TM_SMP
|
|
FROM T_BLACK_CARD
|
|
WHERE (? IS NULL OR CARD_NO=?)
|
|
ORDER BY TM_SMP DESC
|
|
</Sentence>
|
|
<Fields>CARD_NO|CARD_NO|</Fields>
|
|
</DynSentence>
|
|
<!-- 查询黑名单 - 单条记录 -->
|
|
<DynSentence name="QRY_T_CARD_INF">
|
|
<Sentence>
|
|
SELECT CARD_NO,TM_SMP
|
|
FROM T_BLACK_CARD
|
|
WHERE CARD_NO=?
|
|
</Sentence>
|
|
<Fields>CARD_NO|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Set>CARD_NO=DELBOTHSPACE($CARD_NO)</Set>
|
|
<Set>FLAG=DELBOTHSPACE($FLAG)</Set>
|
|
<!-- 判断是否是解除时的查询 -->
|
|
<If condition="ISNULL($FLAG)">
|
|
<!-- 查询黑名单 - 列表 -->
|
|
<Exec func="PUB:DBMultiQueryPage">
|
|
<Arg name="PageNo" value="$PAG_NO"/>
|
|
<Arg name="SqlCmd" value="QRY_T_CARD_LIST"/>
|
|
<Arg name="RecNumPerPage" value="$PAG_NUM"/>
|
|
</Exec>
|
|
</If>
|
|
<Else>
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="QRY_T_CARD_INF"/>
|
|
</Exec>
|
|
</Else>
|
|
<If condition="~RetCod=-1">
|
|
<Set>GWA.MSG_CD=POS00001</Set>
|
|
<Set>GWA.MSG_DAT=查询失败！</Set>
|
|
</If>
|
|
<Else>
|
|
<Set>GWA.MSG_CD=POS00000</Set>
|
|
<Set>GWA.MSG_DAT=查询成功！</Set>
|
|
</Else>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Root>
|