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

74 lines
3.2 KiB
XML

<?xml version="1.0" encoding='UTF-8'?>
<Root>
<!--查询省公司应开交易服务费发票-->
<Transaction code="BUI030301" log_switch="1">
<DynSentence name="QRY_MERCPAYFEE_INV"> <!-- 基本信息查询语句 -->
<Sentence>
SELECT TR_MON,MERC_TYP,MERC_ID,MERC_PROV,MERC_PROV_NM,
MERC_CNM,USR_PROV,USR_PROV_NM,NEED_INV_FLG,INV_MOD,
INV_TIT,INV_MAIL_ADDR,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_PROV = ? AND MERC_TYP LIKE ?
ORDER BY TR_MON,MERC_PROV,MERC_TYP,MERC_ID,USR_PROV
</Sentence>
<Fields>BEG_MO|END_MO|QRY_PROV_NO|QRY_MERC_TYP|</Fields>
</DynSentence>
<DynSentence name="QRY_MERCPAYFEE_INV_1"> <!-- 基本信息查询语句 -->
<Sentence>
SELECT TR_MON,MERC_TYP,MERC_ID,MERC_PROV,MERC_PROV_NM,
MERC_CNM,USR_PROV,USR_PROV_NM,NEED_INV_FLG,INV_MOD,
INV_TIT,INV_MAIL_ADDR,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_PROV = ?
ORDER BY TR_MON,MERC_PROV,MERC_TYP,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>QRY_MERC_TYP=DELBOTHSPACE($QRY_MERC_TYP)</Set>
<Set>BEG_MO=DELBOTHSPACE($BEG_MO)</Set>
<Set>END_MO=DELBOTHSPACE($END_MO)</Set>
<If condition="IS_EQUAL_STRING($QRY_MERC_TYP,0)">
<Exec func="PUB:DBMultiQueryPage">
<Arg name="PageNo" value="$PAG_NO"/>
<Arg name="SqlCmd" value="QRY_MERCPAYFEE_INV_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_INV"/>
<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>