51 lines
2.0 KiB
XML
51 lines
2.0 KiB
XML
<?xml version="1.0" encoding='UTF-8'?>
|
|
<Root>
|
|
<!--查询省公司应开交易服务费发票-->
|
|
<Transaction code="BUI030401" log_switch="1">
|
|
<DynSentence name="QRY_ONSIT_MERCPAYFEE_INV"> <!-- 基本信息查询语句 -->
|
|
<Sentence>
|
|
SELECT TR_MON,MERC_ID,MERC_PROV,MERC_PROV_NM,MERC_CNM,USR_PROV,
|
|
USR_PROV_NM,TOT_ORD_AMT,MERC_CLR_AMT,TOT_FEE_AMT,USR_SPLT_AMT,
|
|
MERC_SPLT_AMT FROM RPT_MERC_FEE_INF WHERE (TR_MON BETWEEN ? AND ?)
|
|
AND MERC_TYP = '4' AND MERC_PROV = ? ORDER BY TR_MON,MERC_ID,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>BEG_MO=DELBOTHSPACE($BEG_MO)</Set>
|
|
<Set>END_MO=DELBOTHSPACE($END_MO)</Set>
|
|
<Exec func="PUB:DBMultiQueryPage">
|
|
<Arg name="PageNo" value="$PAG_NO"/>
|
|
<Arg name="SqlCmd" value="QRY_ONSIT_MERCPAYFEE_INV"/>
|
|
<Arg name="RecNumPerPage" value="$PAG_NUM"/>
|
|
</Exec>
|
|
|
|
<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>
|