107 lines
4.1 KiB
XML
107 lines
4.1 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Application name="FRT" trace="yes">
|
|
<Transaction code="qryBatInf" log_switch="1" desc="机构批次信息查询">
|
|
<!--查询机构批次信息 -->
|
|
<DynSentence name="QRY_CAPBATINF_INF">
|
|
<Sentence>
|
|
SELECT *
|
|
FROM CAPBATINF
|
|
WHERE
|
|
DSK_NAM= ? ORDER BY TM_SMP DESC
|
|
</Sentence>
|
|
<Fields>DSK_NAM|</Fields>
|
|
</DynSentence>
|
|
<!--查询机构批次信息总数 -->
|
|
<DynSentence name="COUNT_CAPBATINF_INF">
|
|
<Sentence>
|
|
SELECT
|
|
COUNT(*) TOT_REC_NUM
|
|
FROM CAPBATINF
|
|
WHERE
|
|
DSK_NAM= ? ORDER BY TM_SMP DESC
|
|
</Sentence>
|
|
<Fields>DSK_NAM|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Set>SIGTYP=$SIGTYP</Set> <!-- 签名方式 -->
|
|
<Set>TOT_REC_NUM=0</Set> <!-- 明细数量 -->
|
|
<Set>SQL=QRY_CAPBATINF_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_CAPBATINF_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>
|
|
<Set>RSP_CD=RPM75019</Set>
|
|
<Set>GWA.MSG_INF=查询出错</Set>
|
|
<Set>RSP_MSG=查询出错</Set>
|
|
<Set>PAG_CNT=0</Set>
|
|
<Return />
|
|
</Else>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Application>
|
|
|
|
|