107 lines
4.7 KiB
XML
107 lines
4.7 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Application name="FRT" trace="yes">
|
|
<Transaction code="qryDskInf" log_switch="1" desc="PROTAL页面发起商户送盘信息查询">
|
|
<!--查询PROTAL页面发起商户送盘信息查询 -->
|
|
<DynSentence name="QRY_CAPDSKINF_INF">
|
|
<Sentence>
|
|
SELECT *
|
|
FROM CAPDSKINF
|
|
WHERE
|
|
MERC_ID=? AND (TXN_MOD=? or ? is null)AND (FIL_TYP=? or ? is null) AND (DSK_STS=? or ? is null) AND (DSK_NAM= ? or ? is null) AND (RCV_DT >= ? or ? is null) AND (RCV_DT <= ? or ? is null) ORDER BY TM_SMP DESC
|
|
</Sentence>
|
|
<Fields>MERC_ID|TXN_MOD|TXN_MOD|ORD_TYP|ORD_TYP|TXN_STS|TXN_STS|DSK_NAM|DSK_NAM|ST_DT|ST_DT|ED_DT|ED_DT</Fields>
|
|
</DynSentence>
|
|
<!--查询PROTAL页面发起商户送盘信息查询总数 -->
|
|
<DynSentence name="COUNT_CAPDSKINF_INF">
|
|
<Sentence>
|
|
SELECT
|
|
COUNT(*) TOT_REC_NUM
|
|
FROM CAPDSKINF
|
|
WHERE
|
|
MERC_ID=? AND (TXN_MOD=? or ? is null)AND (FIL_TYP=? or ? is null) AND (DSK_STS=? or ? is null) AND (DSK_NAM= ? or ? is null) AND (RCV_DT >= ? or ? is null) AND (RCV_DT <= ? or ? is null) ORDER BY TM_SMP DESC
|
|
</Sentence>
|
|
<Fields>MERC_ID|TXN_MOD|TXN_MOD|ORD_TYP|ORD_TYP|TXN_STS|TXN_STS|DSK_NAM|DSK_NAM|ST_DT|ST_DT|ED_DT|ED_DT</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Set>SIGTYP=$SIGTYP</Set> <!-- 签名方式 -->
|
|
<Set>TOT_REC_NUM=0</Set> <!-- 明细数量 -->
|
|
<Set>SQL=QRY_CAPDSKINF_INF</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>
|
|
<Set>SIGINF=</Set> <!-- 签名 -->
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="COUNT_CAPDSKINF_INF" />
|
|
</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="RPT00000" />
|
|
</Exec>
|
|
<Set>RSP_CD=RPT00000</Set>
|
|
<Set>GWA.MSG_INF=无查询结果</Set>
|
|
<Set>RSP_MSG=无查询结果</Set>
|
|
<Set>PAG_CNT=0</Set>
|
|
</ElseIf>
|
|
<Else>
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="RPM75021" />
|
|
</Exec>
|
|
<Set>RSP_CD=RPM75021</Set>
|
|
<Set>GWA.MSG_INF=查询错误</Set>
|
|
<Set>RSP_MSG=查询错误</Set>
|
|
<Set>PAG_CNT=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=0">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="RPM00000" />
|
|
</Exec>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="RPT00000" />
|
|
</Exec>
|
|
<Set>RSP_CD=RPT00000</Set>
|
|
<Set>GWA.MSG_INF=无查询结果</Set>
|
|
<Set>RSP_MSG=无查询结果</Set>
|
|
<Set>PAG_CNT=0</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="RPM75019" />
|
|
</Exec>
|
|
<Return />
|
|
<Set>RSP_CD=RPM75021</Set>
|
|
<Set>GWA.MSG_INF=查询错误</Set>
|
|
<Set>RSP_MSG=查询错误</Set>
|
|
<Set>PAG_CNT=0</Set>
|
|
</Else>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Application>
|
|
|
|
|