89 lines
4.2 KiB
XML
89 lines
4.2 KiB
XML
<?xml version="1.0" encoding='UTF-8'?>
|
|
<Root>
|
|
<!-- 导出省公司应开交易服务费发票-->
|
|
<Transaction code="BUI030202" desc="Get corg" log_switch="1">
|
|
<!--查询对应的省公司名称-->
|
|
<DynSentence name="QRY_CMMTPCOP_PROVLNM">
|
|
<Sentence>
|
|
SELECT PROV_CD,PROV_LNM FROM CMMTPCOP WHERE PROV_CD = ? ORDER BY PROV_CD
|
|
</Sentence>
|
|
<Fields>QRY_PROV_NO|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<!-- 查询省公司名称 -->
|
|
<Set>QRY_PROV_NO=DELBOTHSPACE($QRY_PROV_NO)</Set>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_CMMTPCOP_PROVLNM"/>
|
|
</Exec>
|
|
<Set>DEPT_NM=$PROV_LNM</Set>
|
|
<!-- 连接报表系统数据库 -->
|
|
<Exec func="PUB:SwitchDS">
|
|
<Arg name="name" value="_DB_NAME_RPT"/>
|
|
</Exec>
|
|
|
|
<Set>FLG_LOG=0</Set> <!--值为0：代表此交易不用写入操作日志 -->
|
|
<!-- 去掉字段前后空格 -->
|
|
<Set>QRY_MERC_PROV=DELBOTHSPACE($QRY_MERC_PROV)</Set>
|
|
<Set>BEG_MO=DELBOTHSPACE($BEG_MO)</Set>
|
|
<Set>END_MO=DELBOTHSPACE($END_MO)</Set>
|
|
<!-- 设置导出文件类型及导出文件名 -->
|
|
<Set>RptName=STRCAT(GETENV(HWORKDIR),/data/psm/report/data/,省公司应收交易服务费发票报表.xls)</Set>
|
|
<!-- 删除旧的文件 -->
|
|
|
|
<Exec func="PUB:IsExistFile">
|
|
<Arg name="FileName" value="$RptName" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:DeleteFile">
|
|
<Arg name="FilNam" value="$RptName" />
|
|
</Exec>
|
|
</If>
|
|
|
|
<!-- 创建导出文件 -->
|
|
<Set>RptFile=STRCAT(GETENV(HWORKDIR),/data/psm/report/conf/,FromProvFeeInvoice.raq)</Set>
|
|
<Set>PROV_CD=$QRY_PROV_NO</Set>
|
|
<Set>FROM_PROV=$QRY_MERC_PROV</Set>
|
|
<Set>RPT_DT1=$BEG_MO</Set>
|
|
<Set>RPT_DT2=$END_MO</Set>
|
|
<Set>RPT_DATE1=FMTSTR($BEG_MO,nnnn年nn月)</Set>
|
|
<Set>RPT_DATE2=FMTSTR($END_MO,nnnn年nn月)</Set>
|
|
<Exec func="PUB:GenerateReportNew">
|
|
<Arg name="RptName" value="$RptName" />
|
|
<Arg name="RptFile" value="$RptFile" />
|
|
<Arg name="PROV_CD" value="$PROV_CD" />
|
|
<Arg name="FROM_PROV" value="$FROM_PROV" />
|
|
<Arg name="DEPT_NM" value="$DEPT_NM" />
|
|
<Arg name="RPT_DT1" value="$RPT_DT1" />
|
|
<Arg name="RPT_DT2" value="$RPT_DT2" />
|
|
<Arg name="RPT_DATE1" value="$RPT_DATE1" />
|
|
<Arg name="RPT_DATE2" value="$RPT_DATE2" />
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<!--@msg 没有符合条件的交易服务费发票信息-->
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="PSM10009" />
|
|
<Arg name="MsgDat" value="没有符合条件的信息"/>
|
|
</Exec>
|
|
</If>
|
|
<ElseIf condition="~RetCod!=0">
|
|
<!--@msg 查询交易服务费发票信息，操作数据库失败-->
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="PSM10002" />
|
|
<Arg name="MsgDat" value="生成报表失败"/>
|
|
</Exec>
|
|
</ElseIf>
|
|
<Else>
|
|
<!--@msg 查询交易服务费发票信息，操作数据库失败-->
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="PSM00000" />
|
|
<Arg name="MsgDat" value="生成报表成功"/>
|
|
</Exec>
|
|
</Else>
|
|
|
|
<!-- 连接后台系统数据库 -->
|
|
<Exec func="PUB:SwitchDS">
|
|
<Arg name="name" value="_DB_NAME"/>
|
|
</Exec>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Root> |