73 lines
2.9 KiB
XML
73 lines
2.9 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Root>
|
|
<Transaction code="204073" desc="商户批量代付失败交易清单" log_switch="1">
|
|
<DynSentence name="QryMercInF"> <!--查询商户基本信息-->
|
|
<Sentence>
|
|
SELECT t.MERC_CNM,t.MERC_ID FROM
|
|
URMTMINF t
|
|
WHERE t.MERC_ID in (SELECT MERC_ID FROM CAPTXNJNL WHERE TXN_STS='F' AND TXN_MOD='02' AND AC_DT='%s') AND
|
|
t.MERC_TYP = '12' AND t.MERC_STS='0'
|
|
</Sentence>
|
|
<Fields>AC_DT|</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
<!--Exec func="PUB:InitGWA" /--> <!--交易初始化-->
|
|
<Set>AC_DT=$GWA.AC_DT</Set>
|
|
|
|
<!-- 查询商户基本信息 -->
|
|
<Exec func="PUB:OpenCursor" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QryMercInF"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>Rsp_Cd=80</Set>
|
|
<Set>Rsp_Msg=查询数据库错误</Set>
|
|
<Exec func="PUB:CloseCursor" error="IGNORE"/>
|
|
<Return/>
|
|
</If>
|
|
<While>
|
|
<Exec func="PUB:FetchCursor" error="IGNORE"/>
|
|
<If condition="~RetCod=2">
|
|
<Break/>
|
|
</If>
|
|
<ElseIf condition="~RetCod<0">
|
|
<Set>Rsp_Cd=80</Set>
|
|
<Set>Rsp_Msg="查询数据库错误"</Set>
|
|
<Exec func="PUB:CloseCursor" error="IGNORE"/>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>MERC_NAM=$MERC_CNM</Set>
|
|
<Set>RPT_KND=RPT_MERC_PAY_FAIL_LST_DD</Set>
|
|
<Set>raqname=STRCAT($RPT_KND,-,$MERC_NAM,-,$AC_DT,.xls)</Set>
|
|
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
|
|
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT1/raq/RPT_MERC_PAY_FAIL_LST_DD.raq)</Set>
|
|
<Set>RPTNAME=STRCAT($WORKDIR,/rptdata/,$raqname)</Set>
|
|
<Set>RPT_FIL_NM=STRCAT($MERC_NAM,"批量代付失败交易日清单-",FMTDATE($AC_DT,0,5),.xls)</Set>
|
|
|
|
<Exec func="PUB:GenerateReportNew" error="IGNORE"> <!--报表生成组件-->
|
|
<Arg name="RptName" value="$RPTNAME" />
|
|
<Arg name="RptFile" value="$CR_RPT_FILE" />
|
|
<Arg name="AC_DT" value="$AC_DT" />
|
|
<Arg name="MERC_ID" value="$MERC_ID" />
|
|
<Arg name="MERC_NAM" value="$MERC_NAM" />
|
|
</Exec>
|
|
<If condition="~RetCod=-1">
|
|
<Set>Rsp_Cd=20499</Set>
|
|
<Set>Rsp_Msg=失败</Set>
|
|
<Return/>
|
|
</If>
|
|
<ElseIf condition="~RetCod=0">
|
|
<Set>Rsp_Cd=00000</Set>
|
|
<Set>Rsp_Msg=成功</Set>
|
|
<Set>RPT_TYP=D</Set>
|
|
<Quote name="Do_SVRPro"/> <!--插入报表登记表-->
|
|
</ElseIf>
|
|
</Else>
|
|
</While>
|
|
<Set>Rsp_Cd=00000</Set>
|
|
<Set>Rsp_Msg=成功</Set>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Root>
|
|
|