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

67 lines
2.8 KiB
XML

<?xml version="1.0" encoding='UTF-8'?>
<Root>
<!--查询省公司应开交易服务费发票-->
<Transaction code="BUI030201" log_switch="1">
<DynSentence name="QRY_MERCPAYFEE_ININV"> <!-- 基本信息查询语句 -->
<Sentence>
SELECT * FROM RPT_PCOP_INVO_INF WHERE (TR_MON BETWEEN ? AND ?)
AND MERC_PROV = ? AND USR_PROV != MERC_PROV AND USR_PROV LIKE ?
ORDER BY TR_MON,USR_PROV
</Sentence>
<Fields>BEG_MO|END_MO|QRY_PROV_NO|QRY_MERC_PROV|</Fields>
</DynSentence>
<DynSentence name="QRY_MERCPAYFEE_ININV_1"> <!-- 基本信息查询语句 -->
<Sentence>
SELECT * FROM RPT_PCOP_INVO_INF WHERE (TR_MON BETWEEN ? AND ?)
AND MERC_PROV = ? AND USR_PROV != MERC_PROV ORDER BY TR_MON,USR_PROV
</Sentence>
<Fields>BEG_MO|END_MO|QRY_PROV_NO|</Fields>
</DynSentence>
<FlowCtrl>
<!-- 连接报表系统数据库 -->
<Exec func="PUB:SwitchDS">
<Arg name="name" value="_DB_NAME_RPT"/>
</Exec>
<Set>FLG_LOG=0</Set> <!--值为0:代表此交易不用写入操作日志 -->
<!-- 去掉所要查询字段的前后端空格 -->
<Set>QRY_PROV_NO=DELBOTHSPACE($QRY_PROV_NO)</Set>
<Set>QRY_MERC_PROV=DELBOTHSPACE($QRY_MERC_PROV)</Set>
<Set>BEG_MO=DELBOTHSPACE($BEG_MO)</Set>
<Set>END_MO=DELBOTHSPACE($END_MO)</Set>
<If condition="IS_EQUAL_STRING($QRY_MERC_PROV,00)">
<Exec func="PUB:DBMultiQueryPage">
<Arg name="PageNo" value="$PAG_NO"/>
<Arg name="SqlCmd" value="QRY_MERCPAYFEE_ININV_1"/>
<Arg name="RecNumPerPage" value="$PAG_NUM"/>
</Exec>
</If>
<Else>
<Exec func="PUB:DBMultiQueryPage">
<Arg name="PageNo" value="$PAG_NO"/>
<Arg name="SqlCmd" value="QRY_MERCPAYFEE_ININV"/>
<Arg name="RecNumPerPage" value="$PAG_NUM"/>
</Exec>
</Else>
<If condition="~RetCod=0">
<!--@msg 交易成功-->
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="PSM00000" />
</Exec>
</If>
<ElseIf condition="~RetCod=2">
<!--@msg 没有符合条件的交易服务费发票信息-->
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="PSM10009" />
</Exec>
</ElseIf>
<!-- 连接后台系统数据库 -->
<Exec func="PUB:SwitchDS">
<Arg name="name" value="_DB_NAME"/>
</Exec>
</FlowCtrl>
</Transaction>
</Root>