63 lines
2.6 KiB
XML
63 lines
2.6 KiB
XML
<?xml version="1.0" encoding='UTF-8'?>
|
|
<Root>
|
|
<!-- 导出移动交易服务费待分润信息 -->
|
|
<Transaction code="BUI020102" desc="Get corg" log_switch="1">
|
|
<FlowCtrl>
|
|
<Set>FLG_LOG=0</Set> <!--值为0：代表此交易不用写入操作日志 -->
|
|
<!-- 去掉字段前后空格 -->
|
|
<Set>QRY_MERC_ID=DELBOTHSPACE($QRY_MERC_ID)</Set>
|
|
<Set>QRY_MERC_FEE_MOD=DELBOTHSPACE($QRY_MERC_FEE_MOD)</Set>
|
|
<Set>BEG_DT=DELBOTHSPACE($BEG_DT)</Set>
|
|
<Set>END_DT=DELBOTHSPACE($END_DT)</Set>
|
|
<!-- 设置导出文件类型及导出文件名 -->
|
|
<Set>FIL_NM=report.xls</Set>
|
|
<Set>RptName=STRCAT(GETENV(HWORKDIR),/data/psm/report/data/,$FIL_NM)</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/,psm_report.raq)</Set>
|
|
<Exec func="PUB:GenerateReportNew">
|
|
<Arg name="RptName" value="$RptName" />
|
|
<Arg name="RptFile" value="$RptFile" />
|
|
<Arg name="QRY_MERC_ID" value="$QRY_MERC_ID" />
|
|
<Arg name="QRY_MERC_FEE_MOD" value="$QRY_MERC_FEE_MOD" />
|
|
<Arg name="BEG_DT" value="$BEG_DT" />
|
|
<Arg name="END_DT" value="$END_DT" />
|
|
</Exec>
|
|
|
|
<If condition="~RetCod=2">
|
|
<!--@msg 没有符合条件的移动交易服务费待分润信息-->
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="PSM10001" />
|
|
<Arg name="MsgDat" value="没有符合条件的信息"/>
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<ElseIf conditon="~RetCod!=0">
|
|
<!--@msg 查询移动交易服务费待分润信息，操作数据库失败-->
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="PSM10002" />
|
|
<Arg name="MsgDat" value="生成报表失败"/>
|
|
</Exec>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<!--@msg 查询移动交易服务费待分润信息，操作数据库失败-->
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="PSM00000" />
|
|
<Arg name="MsgDat" value="生成报表成功"/>
|
|
</Exec>
|
|
<Return />
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Root> |