273 lines
13 KiB
XML
273 lines
13 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Tran>
|
|
<Transaction code="204067" desc="合作机构手续费和结算信息报表" log_switch="1">
|
|
<DynSentence name="QryAgtFee"> <!--查询银联的手续费信息-->
|
|
<Sentence>
|
|
SELECT CORG_NO,CORG_NM
|
|
FROM CAPAGTFEE
|
|
WHERE FEE_STL_DT='%s' AND CORG_NO='%s' AND ORD_TYP='%s'
|
|
</Sentence>
|
|
<Fields>AC_DT|CORG_NO|ORD_TYP</Fields>
|
|
</DynSentence>
|
|
|
|
<DynSentence name="QryStlAgt"> <!--查询银联的手续费信息-->
|
|
<Sentence>
|
|
SELECT CORG_NO,CORG_NM
|
|
FROM CAPSTLAGT
|
|
WHERE STL_DT='%s' AND CORG_NO='%s' AND ORD_TYP='%s'
|
|
</Sentence>
|
|
<Fields>AC_DT|CORG_NO|ORD_TYP</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
<!--Exec func="PUB:InitGWA" /--> <!--交易初始化-->
|
|
<Set>AC_DT=$GWA.AC_DT</Set>
|
|
|
|
<!--银联代收交易信息-->
|
|
<Set>CORG_NO=EBPPP</Set>
|
|
<Set>ORD_TYP=11</Set>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QryAgtFee"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>Rsp_Cd=999999</Set>
|
|
<Set>Rsp_Msg=查询无记录</Set>
|
|
<Return/>
|
|
</If>
|
|
<Else>
|
|
<Set>RPT_KND=RPT_CORG_REC_STL_FEE_DD</Set>
|
|
<Set>raqname=STRCAT($RPT_KND,-,$CORG_NO,-,$AC_DT,.xls)</Set>
|
|
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
|
|
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT1/raq/RPT_CORG_REC_STL_FEE_DD.raq)</Set>
|
|
<Set>RPTNAME=STRCAT($WORKDIR,/rptdata/,$raqname)</Set>
|
|
|
|
<Set>RPT_FIL_NM=STRCAT($CORG_NM,"合作机构代收交易手续费报表-",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="FEE_STL_DT" value="$AC_DT" />
|
|
<Arg name="CORG_NO" value="$CORG_NO" />
|
|
<Arg name="CORG_NM" value="$CORG_NM" />
|
|
|
|
</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>
|
|
|
|
<!--建行代收交易信息-->
|
|
<Set>CORG_NO=CCB</Set>
|
|
<Set>ORD_TYP=11</Set>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QryAgtFee"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>Rsp_Cd=999999</Set>
|
|
<Set>Rsp_Msg=查询无记录</Set>
|
|
<Return/>
|
|
</If>
|
|
<Else>
|
|
<Set>RPT_KND=RPT_CORG_REC_STL_FEE_DD</Set>
|
|
<Set>raqname=STRCAT($RPT_KND,-,$CORG_NO,-,$AC_DT,.xls)</Set>
|
|
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
|
|
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT1/raq/RPT_CORG_REC_STL_FEE_DD.raq)</Set>
|
|
<Set>RPTNAME=STRCAT($WORKDIR,/rptdata/,$raqname)</Set>
|
|
|
|
<Set>RPT_FIL_NM=STRCAT($CORG_NM,"合作机构代收交易手续费报表-",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="FEE_STL_DT" value="$AC_DT" />
|
|
<Arg name="CORG_NO" value="$CORG_NO" />
|
|
<Arg name="CORG_NM" value="$CORG_NM" />
|
|
|
|
</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>
|
|
|
|
<!--建行代付交易信息-->
|
|
<Set>CORG_NO=CCB</Set>
|
|
<Set>ORD_TYP=12</Set>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QryStlAgt"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>Rsp_Cd=999999</Set>
|
|
<Set>Rsp_Msg=查询无记录</Set>
|
|
<Return/>
|
|
</If>
|
|
<Else>
|
|
<Set>RPT_KND=RPT_CORG_PAY_STL_FEE_DD</Set>
|
|
<Set>raqname=STRCAT($RPT_KND,-,$CORG_NO,-,$AC_DT,.xls)</Set>
|
|
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
|
|
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT1/raq/RPT_CORG_PAY_STL_FEE_DD.raq)</Set>
|
|
<Set>RPTNAME=STRCAT($WORKDIR,/rptdata/,$raqname)</Set>
|
|
|
|
<Set>RPT_FIL_NM=STRCAT($CORG_NM,"合作机构代付交易手续费报表-",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="FEE_STL_DT" value="$AC_DT" />
|
|
<Arg name="CORG_NO" value="$CORG_NO" />
|
|
<Arg name="CORG_NM" value="$CORG_NM" />
|
|
</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>
|
|
|
|
<!--银联代收结算信息-->
|
|
<Set>CORG_NO=EBPPP</Set>
|
|
<Set>ORD_TYP=11</Set>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QryStlAgt"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>Rsp_Cd=999999</Set>
|
|
<Set>Rsp_Msg=查询无记录</Set>
|
|
<Return/>
|
|
</If>
|
|
<Else>
|
|
<Set>RPT_KND=RPT_CORG_REC_STL_DD</Set>
|
|
<Set>raqname=STRCAT($RPT_KND,-,$CORG_NO,-,$AC_DT,.xls)</Set>
|
|
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
|
|
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT1/raq/RPT_CORG_REC_STL_DD.raq)</Set>
|
|
<Set>RPTNAME=STRCAT($WORKDIR,/rptdata/,$raqname)</Set>
|
|
|
|
<Set>RPT_FIL_NM=STRCAT($CORG_NM,"合作机构代收结算信息单-",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="STL_DT" value="$AC_DT" />
|
|
<Arg name="CORG_NO" value="$CORG_NO" />
|
|
<Arg name="CORG_NM" value="$CORG_NM" />
|
|
|
|
</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>
|
|
|
|
<!--建行代收结算信息-->
|
|
<Set>CORG_NO=CCB</Set>
|
|
<Set>ORD_TYP=11</Set>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QryStlAgt"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>Rsp_Cd=999999</Set>
|
|
<Set>Rsp_Msg=查询无记录</Set>
|
|
<Return/>
|
|
</If>
|
|
<Else>
|
|
<Set>RPT_KND=RPT_CORG_REC_STL_DD</Set>
|
|
<Set>raqname=STRCAT($RPT_KND,-,$CORG_NO,-,$AC_DT,.xls)</Set>
|
|
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
|
|
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT1/raq/RPT_CORG_REC_STL_DD.raq)</Set>
|
|
<Set>RPTNAME=STRCAT($WORKDIR,/rptdata/,$raqname)</Set>
|
|
|
|
<Set>RPT_FIL_NM=STRCAT($CORG_NM,"合作机构代收结算信息单-",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="STL_DT" value="$AC_DT" />
|
|
<Arg name="CORG_NO" value="$CORG_NO" />
|
|
<Arg name="CORG_NM" value="$CORG_NM" />
|
|
|
|
</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>
|
|
|
|
<!--建行代付结算信息-->
|
|
<Set>CORG_NO=CCB</Set>
|
|
<Set>ORD_TYP=12</Set>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QryStlAgt"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>Rsp_Cd=999999</Set>
|
|
<Set>Rsp_Msg=查询无记录</Set>
|
|
<Return/>
|
|
</If>
|
|
<Else>
|
|
<Set>RPT_KND=RPT_CORG_PAY_STL_DD</Set>
|
|
<Set>raqname=STRCAT($RPT_KND,-,$CORG_NO,-,$AC_DT,.xls)</Set>
|
|
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
|
|
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT1/raq/RPT_CORG_PAY_STL_DD.raq)</Set>
|
|
<Set>RPTNAME=STRCAT($WORKDIR,/rptdata/,$raqname)</Set>
|
|
|
|
<Set>RPT_FIL_NM=STRCAT($CORG_NM,"合作机构代付结算信息单-",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="STL_DT" value="$AC_DT" />
|
|
<Arg name="CORG_NO" value="$CORG_NO" />
|
|
<Arg name="CORG_NM" value="$CORG_NM" />
|
|
</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>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
</Tran>
|