MrTech/ctg-app-ui
5
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

sit #14

Merged
wang_lei1 merged 2 commits from sit into uat 2021-07-29 07:56:07 +00:00
Conversation 0 Commits 2 Files Changed 25
+773 -4
25 changed files with 773 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/etc/TIMCON_PUB.XML
+48 -2
View File
@@ -29,8 +29,54 @@
</SchItem>
<!--定时生成日报表-->
<CycleItem istxn='0' objsvr="OCAPRPT2" txncod='204076' txndatatype='text/etf' txndat='' funcname='' funcpath = '' sndflag ='0' tmout="3600" minute='30' hour='1' monthday='*' weekday='*' monthweek='*' month='*' trace='1'>
<!--CycleItem istxn='0' objsvr="OCAPRPT2" txncod='204076' txndatatype='text/etf' txndat='' funcname='' funcpath = '' sndflag ='0' tmout="3600" minute='30' hour='1' monthday='*' weekday='*' monthweek='*' month='*' trace='1'>
<Data><ROOT><GWA><SYS_CNL>SYS</SYS_CNL></GWA></ROOT></Data>
</CycleItem>
</CycleItem-->
<!--失败原因统计日报表-->
<CycleItem istxn='0' objsvr="OCAPRPT2" txncod='204077' txndatatype='text/etf' txndat='' funcname='' funcpath = '' sndflag ='0' tmout="3600" minute='30' hour='1' monthday='*' weekday='*' monthweek='*' month='*' trace='1'>
<Data><ROOT><GWA><SYS_CNL>SYS</SYS_CNL></GWA></ROOT></Data>
</CycleItem>
<!--银行渠道统计日报表-->
<CycleItem istxn='0' objsvr="OCAPRPT2" txncod='204079' txndatatype='text/etf' txndat='' funcname='' funcpath = '' sndflag ='0' tmout="3600" minute='30' hour='1' monthday='*' weekday='*' monthweek='*' month='*' trace='1'>
<Data><ROOT><GWA><SYS_CNL>SYS</SYS_CNL></GWA></ROOT></Data>
</CycleItem>
<!--易才集团支付情况统计日报表-->
<CycleItem istxn='0' objsvr="OCAPRPT2" txncod='204081' txndatatype='text/etf' txndat='' funcname='' funcpath = '' sndflag ='0' tmout="3600" minute='30' hour='1' monthday='*' weekday='*' monthweek='*' month='*' trace='1'>
<Data><ROOT><GWA><SYS_CNL>SYS</SYS_CNL></GWA></ROOT></Data>
</CycleItem>
<!--客户发放情况统计日报表-->
<CycleItem istxn='0' objsvr="OCAPRPT2" txncod='204083' txndatatype='text/etf' txndat='' funcname='' funcpath = '' sndflag ='0' tmout="3600" minute='30' hour='1' monthday='*' weekday='*' monthweek='*' month='*' trace='1'>
<Data><ROOT><GWA><SYS_CNL>SYS</SYS_CNL></GWA></ROOT></Data>
</CycleItem>
<!--本行跨行支付情况统计日报表-->
<CycleItem istxn='0' objsvr="OCAPRPT2" txncod='204087' txndatatype='text/etf' txndat='' funcname='' funcpath = '' sndflag ='0' tmout="3600" minute='30' hour='1' monthday='*' weekday='*' monthweek='*' month='*' trace='1'>
<Data><ROOT><GWA><SYS_CNL>SYS</SYS_CNL></GWA></ROOT></Data>
</CycleItem>
<!--失败原因统计月报表-->
<CycleItem istxn='0' objsvr="OCAPRPT2" txncod='204078' txndatatype='text/etf' txndat='' funcname='' funcpath = '' sndflag ='0' tmout="3600" minute='30' hour='1' monthday='1' weekday='*' monthweek='*' month='*' trace='1'>
<Data><ROOT><GWA><SYS_CNL>SYS</SYS_CNL></GWA></ROOT></Data>
</CycleItem>
<!--银行渠道统计月报表-->
<CycleItem istxn='0' objsvr="OCAPRPT2" txncod='204080' txndatatype='text/etf' txndat='' funcname='' funcpath = '' sndflag ='0' tmout="3600" minute='30' hour='1' monthday='1' weekday='*' monthweek='*' month='*' trace='1'>
<Data><ROOT><GWA><SYS_CNL>SYS</SYS_CNL></GWA></ROOT></Data>
</CycleItem>
<!--易才集团支付情况统计月报表-->
<CycleItem istxn='0' objsvr="OCAPRPT2" txncod='204082' txndatatype='text/etf' txndat='' funcname='' funcpath = '' sndflag ='0' tmout="3600" minute='30' hour='1' monthday='1' weekday='*' monthweek='*' month='*' trace='1'>
<Data><ROOT><GWA><SYS_CNL>SYS</SYS_CNL></GWA></ROOT></Data>
</CycleItem>
<!--客户发放情况统计月报表-->
<CycleItem istxn='0' objsvr="OCAPRPT2" txncod='204084' txndatatype='text/etf' txndat='' funcname='' funcpath = '' sndflag ='0' tmout="3600" minute='30' hour='1' monthday='1' weekday='*' monthweek='*' month='*' trace='1'>
<Data><ROOT><GWA><SYS_CNL>SYS</SYS_CNL></GWA></ROOT></Data>
</CycleItem>
<!--招行退票统计月报表-->
<CycleItem istxn='0' objsvr="OCAPRPT2" txncod='204085' txndatatype='text/etf' txndat='' funcname='' funcpath = '' sndflag ='0' tmout="3600" minute='30' hour='1' monthday='1' weekday='*' monthweek='*' month='*' trace='1'>
<Data><ROOT><GWA><SYS_CNL>SYS</SYS_CNL></GWA></ROOT></Data>
</CycleItem>
<!--本行跨行支付情况统计月报表-->
<CycleItem istxn='0' objsvr="OCAPRPT2" txncod='204088' txndatatype='text/etf' txndat='' funcname='' funcpath = '' sndflag ='0' tmout="3600" minute='30' hour='1' monthday='1' weekday='*' monthweek='*' month='*' trace='1'>
<Data><ROOT><GWA><SYS_CNL>SYS</SYS_CNL></GWA></ROOT></Data>
</CycleItem>
</Cycles>
bui/etc/BUI_PUB_CTL.XML
+2 -2
View File
@@ -85,7 +85,7 @@
<Set>token=$TOKEN</Set>
<Set>funcId=$FUNC_ID</Set>
<Set>TXN_CD=$TXN_CD</Set>
<If condition="IS_NOEQUAL_STRING($TXN_CD,4807106,4807002,0030006,0030004,0030005,2040866,2040841,2040881,2040876,2040867,2040869,2040862,2040860,4908103,204076,4905104)">
<If condition="IS_NOEQUAL_STRING($TXN_CD,4807106,4807002,0030006,0030004,0030005,2040866,2040841,2040881,2040876,2040867,2040869,2040862,2040860,4908103,204076,4905104,204077,204078,204079,204080,204081,204082,204083,204084,204085,204086,204087,204088)">
<!--第三方鉴权-->
<Exec func="PUB:CallThirdComm" error="IGNORE">
<Arg name="HTxnCd" value="TokenVerify" />
@@ -149,7 +149,7 @@
<Exec func="PUB:RollbackWork" error="IGNORE" />
</Else>
<!--FLG_LOG值为0：代表此交易不用写入操作日志 ;其他情况则写入操作日志中 -->
<If condition="IS_NOEQUAL_STRING($TXN_CD,4807106,4807002,0030006,0030004,0030005,2040866,2040841,2040881,2040876,2040867,2040862,2040860,4908103,204076,4905104)">
<If condition="IS_NOEQUAL_STRING($TXN_CD,4807106,4807002,0030006,0030004,0030005,2040866,2040841,2040881,2040876,2040867,2040862,2040860,4908103,204076,4905104,204077,204078,204079,204080,204081,204082,204083,204084,204085,204086,204087,204088)">
<!--操作员流水 -->
<Set>MSG_TYP=$GWA.MSG_TYP</Set>
<Set>MSG_CD=$GWA.MSG_CD</Set>
cap/etc/OCAPRPT2/204077_CTL.XML
+63
View File
@@ -0,0 +1,63 @@
<?xml version='1.0' encoding='UTF-8'?>
<Root>
<Transaction code="204077" desc="失败原因统计日报" log_switch="1">
<FlowCtrl>
<Exec func="PUB:InitGWA" /> <!--交易初始化 -->
<Set>AC_DT=GETDATE()</Set>
<Exec func="PUB:IsExistNode" error="IGNORE">
<Arg name="FieldName" value="ORD_DT"/>
</Exec>
<If condition="~RetCod=1"> <!--存在-->
<Set>ORD_DT=$ORD_DT</Set>
</If>
<Else>
<Set>ORD_DT=CALCDATE($AC_DT,-,d,1)</Set>
</Else>
<Set>RPT_KND=RPT_D_003_d</Set>
<Set>raqname=STRCAT($RPT_KND,-,$ORD_DT,.xls)</Set>
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT2/RPT_D_003_d.raq)</Set>
<Set>RPTNAME=STRCAT(/tmp/data/,$raqname)</Set>
<Set>RPT_FIL_NM=STRCAT("失败原因统计日报-",FMTDATE($ORD_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="ORD_DT" value="$ORD_DT" />
</Exec>
<If condition="~RetCod=-1">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00033"/>
</Exec>
<Return/>
</If>
<ElseIf condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</ElseIf>
<Set>FILE_NAME=$RPTNAME</Set>
<Call package="UPLOAD_FILE" function="UPLOAD_FILE">
</Call>
<Exec func="PUB:DumpETF" />
<Set>RPT_FIL_URL=$OUT_DAT.FILE_URL</Set>
<If condition="ISNULL($RPT_FIL_URL)">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00032"/>
</Exec>
<Return/>
</If>
<Set>RPT_TYP=D</Set>
<Quote name="Do_SVRPro"/> <!--插入报表登记表-->
</FlowCtrl>
</Transaction>
</Root>
cap/etc/OCAPRPT2/204078_CTL.XML
+66
View File
@@ -0,0 +1,66 @@
<?xml version='1.0' encoding='UTF-8'?>
<Root>
<Transaction code="204078" desc="失败原因统计月报" log_switch="1">
<FlowCtrl>
<Exec func="PUB:InitGWA" /> <!--交易初始化 -->
<Set>AC_DT=GETDATE()</Set>
<Exec func="PUB:IsExistNode" error="IGNORE">
<Arg name="FieldName" value="ORD_DT"/>
</Exec>
<If condition="~RetCod=1"> <!--存在-->
<Set>MONTH=SUBSTR(CALCDATE($ORD_DT,-,m,1),1,6)</Set>
<Set>MONTH2=$MONTH</Set>
</If>
<Else>
<Set>MONTH=SUBSTR(CALCDATE($AC_DT,-,m,1),1,6)</Set>
<Set>MONTH2=$MONTH</Set>
</Else>
<Set>RPT_KND=RPT_D_003_m</Set>
<Set>raqname=STRCAT($RPT_KND,-,$MONTH,.xls)</Set>
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT2/RPT_D_003_m.raq)</Set>
<Set>RPTNAME=STRCAT(/tmp/data/,$raqname)</Set>
<Set>RPT_FIL_NM=STRCAT("失败原因统计月报-",$MONTH,.xls)</Set>
<Exec func="PUB:GenerateReportNew" error="IGNORE"> <!--报表生成组件-->
<Arg name="RptName" value="$RPTNAME" />
<Arg name="RptFile" value="$CR_RPT_FILE" />
<Arg name="MONTH" value="$MONTH" />
<Arg name="MONTH2" value="$MONTH2" />
</Exec>
<If condition="~RetCod=-1">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00033"/>
</Exec>
<Return/>
</If>
<ElseIf condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</ElseIf>
<Set>FILE_NAME=$RPTNAME</Set>
<Call package="UPLOAD_FILE" function="UPLOAD_FILE">
</Call>
<Exec func="PUB:DumpETF" />
<Set>RPT_FIL_URL=$OUT_DAT.FILE_URL</Set>
<If condition="ISNULL($RPT_FIL_URL)">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00032"/>
</Exec>
<Return/>
</If>
<Set>RPT_TYP=M</Set>
<Quote name="Do_SVRPro"/> <!--插入报表登记表-->
</FlowCtrl>
</Transaction>
</Root>
cap/etc/OCAPRPT2/204079_CTL.XML
+63
View File
@@ -0,0 +1,63 @@
<?xml version='1.0' encoding='UTF-8'?>
<Root>
<Transaction code="204079" desc="银行渠道统计日报表" log_switch="1">
<FlowCtrl>
<Exec func="PUB:InitGWA" /> <!--交易初始化 -->
<Set>AC_DT=GETDATE()</Set>
<Exec func="PUB:IsExistNode" error="IGNORE">
<Arg name="FieldName" value="ORD_DT"/>
</Exec>
<If condition="~RetCod=1"> <!--存在-->
<Set>ORD_DT=$ORD_DT</Set>
</If>
<Else>
<Set>ORD_DT=CALCDATE($AC_DT,-,d,1)</Set>
</Else>
<Set>RPT_KND=RPT_D_006_d</Set>
<Set>raqname=STRCAT($RPT_KND,-,$ORD_DT,.xls)</Set>
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT2/RPT_D_006_d.raq)</Set>
<Set>RPTNAME=STRCAT(/tmp/data/,$raqname)</Set>
<Set>RPT_FIL_NM=STRCAT("银行渠道统计日报表-",FMTDATE($ORD_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="ORD_DT" value="$ORD_DT" />
</Exec>
<If condition="~RetCod=-1">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00033"/>
</Exec>
<Return/>
</If>
<ElseIf condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</ElseIf>
<Set>FILE_NAME=$RPTNAME</Set>
<Call package="UPLOAD_FILE" function="UPLOAD_FILE">
</Call>
<Exec func="PUB:DumpETF" />
<Set>RPT_FIL_URL=$OUT_DAT.FILE_URL</Set>
<If condition="ISNULL($RPT_FIL_URL)">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00032"/>
</Exec>
<Return/>
</If>
<Set>RPT_TYP=D</Set>
<Quote name="Do_SVRPro"/> <!--插入报表登记表-->
</FlowCtrl>
</Transaction>
</Root>
cap/etc/OCAPRPT2/204080_CTL.XML
+66
View File
@@ -0,0 +1,66 @@
<?xml version='1.0' encoding='UTF-8'?>
<Root>
<Transaction code="204080" desc="银行渠道统计月报表" log_switch="1">
<FlowCtrl>
<Exec func="PUB:InitGWA" /> <!--交易初始化 -->
<Set>AC_DT=GETDATE()</Set>
<Exec func="PUB:IsExistNode" error="IGNORE">
<Arg name="FieldName" value="CHK_DAT"/>
</Exec>
<If condition="~RetCod=1"> <!--存在-->
<Set>MONTH=SUBSTR(CALCDATE($CHK_DAT,-,m,1),1,6)</Set>
<Set>MONTH2=$MONTH</Set>
</If>
<Else>
<Set>MONTH=SUBSTR(CALCDATE($AC_DT,-,m,1),1,6)</Set>
<Set>MONTH2=$MONTH</Set>
</Else>
<Set>RPT_KND=RPT_D_006_m</Set>
<Set>raqname=STRCAT($RPT_KND,-,$MONTH,.xls)</Set>
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT2/RPT_D_006_m.raq)</Set>
<Set>RPTNAME=STRCAT(/tmp/data/,$raqname)</Set>
<Set>RPT_FIL_NM=STRCAT("银行渠道统计月报表-",$MONTH,.xls)</Set>
<Exec func="PUB:GenerateReportNew" error="IGNORE"> <!--报表生成组件-->
<Arg name="RptName" value="$RPTNAME" />
<Arg name="RptFile" value="$CR_RPT_FILE" />
<Arg name="MONTH" value="$MONTH" />
<Arg name="MONTH2" value="$MONTH2" />
</Exec>
<If condition="~RetCod=-1">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00033"/>
</Exec>
<Return/>
</If>
<ElseIf condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</ElseIf>
<Set>FILE_NAME=$RPTNAME</Set>
<Call package="UPLOAD_FILE" function="UPLOAD_FILE">
</Call>
<Exec func="PUB:DumpETF" />
<Set>RPT_FIL_URL=$OUT_DAT.FILE_URL</Set>
<If condition="ISNULL($RPT_FIL_URL)">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00032"/>
</Exec>
<Return/>
</If>
<Set>RPT_TYP=M</Set>
<Quote name="Do_SVRPro"/> <!--插入报表登记表-->
</FlowCtrl>
</Transaction>
</Root>
cap/etc/OCAPRPT2/204081_CTL.XML
+63
View File
@@ -0,0 +1,63 @@
<?xml version='1.0' encoding='UTF-8'?>
<Root>
<Transaction code="204081" desc="易才集团支付情况统计日报表" log_switch="1">
<FlowCtrl>
<Exec func="PUB:InitGWA" /> <!--交易初始化 -->
<Set>AC_DT=GETDATE()</Set>
<Exec func="PUB:IsExistNode" error="IGNORE">
<Arg name="FieldName" value="ORD_DT"/>
</Exec>
<If condition="~RetCod=1"> <!--存在-->
<Set>ORD_DT=$ORD_DT</Set>
</If>
<Else>
<Set>ORD_DT=CALCDATE($AC_DT,-,d,1)</Set>
</Else>
<Set>RPT_KND=RPT_D_007_d</Set>
<Set>raqname=STRCAT($RPT_KND,-,$ORD_DT,.xls)</Set>
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT2/RPT_D_007_d.raq)</Set>
<Set>RPTNAME=STRCAT(/tmp/data/,$raqname)</Set>
<Set>RPT_FIL_NM=STRCAT("易才集团支付情况统计日报表-",FMTDATE($ORD_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="ORD_DT" value="$ORD_DT" />
</Exec>
<If condition="~RetCod=-1">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00033"/>
</Exec>
<Return/>
</If>
<ElseIf condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</ElseIf>
<Set>FILE_NAME=$RPTNAME</Set>
<Call package="UPLOAD_FILE" function="UPLOAD_FILE">
</Call>
<Exec func="PUB:DumpETF" />
<Set>RPT_FIL_URL=$OUT_DAT.FILE_URL</Set>
<If condition="ISNULL($RPT_FIL_URL)">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00032"/>
</Exec>
<Return/>
</If>
<Set>RPT_TYP=D</Set>
<Quote name="Do_SVRPro"/> <!--插入报表登记表-->
</FlowCtrl>
</Transaction>
</Root>
cap/etc/OCAPRPT2/204082_CTL.XML
+66
View File
@@ -0,0 +1,66 @@
<?xml version='1.0' encoding='UTF-8'?>
<Root>
<Transaction code="204082" desc="易才集团支付情况统计月报表" log_switch="1">
<FlowCtrl>
<Exec func="PUB:InitGWA" /> <!--交易初始化 -->
<Set>AC_DT=GETDATE()</Set>
<Exec func="PUB:IsExistNode" error="IGNORE">
<Arg name="FieldName" value="ORD_DT"/>
</Exec>
<If condition="~RetCod=1"> <!--存在-->
<Set>MONTH=SUBSTR(CALCDATE($ORD_DT,-,m,1),1,6)</Set>
<Set>MONTH2=$MONTH</Set>
</If>
<Else>
<Set>MONTH=SUBSTR(CALCDATE($AC_DT,-,m,1),1,6)</Set>
<Set>MONTH2=$MONTH</Set>
</Else>
<Set>RPT_KND=RPT_D_007_m</Set>
<Set>raqname=STRCAT($RPT_KND,-,$MONTH,.xls)</Set>
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT2/RPT_D_007_m.raq)</Set>
<Set>RPTNAME=STRCAT(/tmp/data/,$raqname)</Set>
<Set>RPT_FIL_NM=STRCAT("易才集团支付情况统计月报表-",$MONTH,.xls)</Set>
<Exec func="PUB:GenerateReportNew" error="IGNORE"> <!--报表生成组件-->
<Arg name="RptName" value="$RPTNAME" />
<Arg name="RptFile" value="$CR_RPT_FILE" />
<Arg name="MONTH" value="$MONTH" />
<Arg name="MONTH2" value="$MONTH2" />
</Exec>
<If condition="~RetCod=-1">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00033"/>
</Exec>
<Return/>
</If>
<ElseIf condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</ElseIf>
<Set>FILE_NAME=$RPTNAME</Set>
<Call package="UPLOAD_FILE" function="UPLOAD_FILE">
</Call>
<Exec func="PUB:DumpETF" />
<Set>RPT_FIL_URL=$OUT_DAT.FILE_URL</Set>
<If condition="ISNULL($RPT_FIL_URL)">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00032"/>
</Exec>
<Return/>
</If>
<Set>RPT_TYP=M</Set>
<Quote name="Do_SVRPro"/> <!--插入报表登记表-->
</FlowCtrl>
</Transaction>
</Root>
cap/etc/OCAPRPT2/204083_CTL.XML
+63
View File
@@ -0,0 +1,63 @@
<?xml version='1.0' encoding='UTF-8'?>
<Root>
<Transaction code="204083" desc="客户发放情况统计日报表" log_switch="1">
<FlowCtrl>
<Exec func="PUB:InitGWA" /> <!--交易初始化 -->
<Set>AC_DT=GETDATE()</Set>
<Exec func="PUB:IsExistNode" error="IGNORE">
<Arg name="FieldName" value="ORD_DT"/>
</Exec>
<If condition="~RetCod=1"> <!--存在-->
<Set>ORD_DT=$ORD_DT</Set>
</If>
<Else>
<Set>ORD_DT=CALCDATE($AC_DT,-,d,1)</Set>
</Else>
<Set>RPT_KND=RPT_D_008_d</Set>
<Set>raqname=STRCAT($RPT_KND,-,$ORD_DT,.xls)</Set>
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT2/RPT_D_008_d.raq)</Set>
<Set>RPTNAME=STRCAT(/tmp/data/,$raqname)</Set>
<Set>RPT_FIL_NM=STRCAT("客户发放情况统计日报表-",FMTDATE($ORD_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="ORD_DT" value="$ORD_DT" />
</Exec>
<If condition="~RetCod=-1">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00033"/>
</Exec>
<Return/>
</If>
<ElseIf condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</ElseIf>
<Set>FILE_NAME=$RPTNAME</Set>
<Call package="UPLOAD_FILE" function="UPLOAD_FILE">
</Call>
<Exec func="PUB:DumpETF" />
<Set>RPT_FIL_URL=$OUT_DAT.FILE_URL</Set>
<If condition="ISNULL($RPT_FIL_URL)">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00032"/>
</Exec>
<Return/>
</If>
<Set>RPT_TYP=D</Set>
<Quote name="Do_SVRPro"/> <!--插入报表登记表-->
</FlowCtrl>
</Transaction>
</Root>
cap/etc/OCAPRPT2/204084_CTL.XML
+66
View File
@@ -0,0 +1,66 @@
<?xml version='1.0' encoding='UTF-8'?>
<Root>
<Transaction code="204084" desc="客户发放情况统计月报表" log_switch="1">
<FlowCtrl>
<Exec func="PUB:InitGWA" /> <!--交易初始化 -->
<Set>AC_DT=GETDATE()</Set>
<Exec func="PUB:IsExistNode" error="IGNORE">
<Arg name="FieldName" value="ORD_DT"/>
</Exec>
<If condition="~RetCod=1"> <!--存在-->
<Set>MONTH=SUBSTR(CALCDATE($ORD_DT,-,m,1),1,6)</Set>
<Set>MONTH2=$MONTH</Set>
</If>
<Else>
<Set>MONTH=SUBSTR(CALCDATE($AC_DT,-,m,1),1,6)</Set>
<Set>MONTH2=$MONTH</Set>
</Else>
<Set>RPT_KND=RPT_D_008_m</Set>
<Set>raqname=STRCAT($RPT_KND,-,$MONTH,.xls)</Set>
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT2/RPT_D_008_m.raq)</Set>
<Set>RPTNAME=STRCAT(/tmp/data/,$raqname)</Set>
<Set>RPT_FIL_NM=STRCAT("客户发放情况统计月报表-",$MONTH,.xls)</Set>
<Exec func="PUB:GenerateReportNew" error="IGNORE"> <!--报表生成组件-->
<Arg name="RptName" value="$RPTNAME" />
<Arg name="RptFile" value="$CR_RPT_FILE" />
<Arg name="MONTH" value="$MONTH" />
<Arg name="MONTH2" value="$MONTH2" />
</Exec>
<If condition="~RetCod=-1">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00033"/>
</Exec>
<Return/>
</If>
<ElseIf condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</ElseIf>
<Set>FILE_NAME=$RPTNAME</Set>
<Call package="UPLOAD_FILE" function="UPLOAD_FILE">
</Call>
<Exec func="PUB:DumpETF" />
<Set>RPT_FIL_URL=$OUT_DAT.FILE_URL</Set>
<If condition="ISNULL($RPT_FIL_URL)">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00032"/>
</Exec>
<Return/>
</If>
<Set>RPT_TYP=M</Set>
<Quote name="Do_SVRPro"/> <!--插入报表登记表-->
</FlowCtrl>
</Transaction>
</Root>
cap/etc/OCAPRPT2/204085_CTL.XML
+66
View File
@@ -0,0 +1,66 @@
<?xml version='1.0' encoding='UTF-8'?>
<Root>
<Transaction code="204085" desc="招行退票统计月报表" log_switch="1">
<FlowCtrl>
<Exec func="PUB:InitGWA" /> <!--交易初始化 -->
<Set>AC_DT=GETDATE()</Set>
<Exec func="PUB:IsExistNode" error="IGNORE">
<Arg name="FieldName" value="ORD_DT"/>
</Exec>
<If condition="~RetCod=1"> <!--存在-->
<Set>MONTH=SUBSTR(CALCDATE($ORD_DT,-,m,1),1,6)</Set>
<Set>MONTH2=$MONTH</Set>
</If>
<Else>
<Set>MONTH=SUBSTR(CALCDATE($AC_DT,-,m,1),1,6)</Set>
<Set>MONTH2=$MONTH</Set>
</Else>
<Set>RPT_KND=RPT_D_009_m</Set>
<Set>raqname=STRCAT($RPT_KND,-,$MONTH,.xls)</Set>
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT2/RPT_D_009_m.raq)</Set>
<Set>RPTNAME=STRCAT(/tmp/data/,$raqname)</Set>
<Set>RPT_FIL_NM=STRCAT("招行退票统计月报表-",$MONTH,.xls)</Set>
<Exec func="PUB:GenerateReportNew" error="IGNORE"> <!--报表生成组件-->
<Arg name="RptName" value="$RPTNAME" />
<Arg name="RptFile" value="$CR_RPT_FILE" />
<Arg name="MONTH" value="$MONTH" />
<Arg name="MONTH2" value="$MONTH2" />
</Exec>
<If condition="~RetCod=-1">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00033"/>
</Exec>
<Return/>
</If>
<ElseIf condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</ElseIf>
<Set>FILE_NAME=$RPTNAME</Set>
<Call package="UPLOAD_FILE" function="UPLOAD_FILE">
</Call>
<Exec func="PUB:DumpETF" />
<Set>RPT_FIL_URL=$OUT_DAT.FILE_URL</Set>
<If condition="ISNULL($RPT_FIL_URL)">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00032"/>
</Exec>
<Return/>
</If>
<Set>RPT_TYP=M</Set>
<Quote name="Do_SVRPro"/> <!--插入报表登记表-->
</FlowCtrl>
</Transaction>
</Root>
cap/etc/OCAPRPT2/204087_CTL.XML
+63
View File
@@ -0,0 +1,63 @@
<?xml version='1.0' encoding='UTF-8'?>
<Root>
<Transaction code="204087" desc="本行跨行支付情况统计日报表" log_switch="1">
<FlowCtrl>
<Exec func="PUB:InitGWA" /> <!--交易初始化 -->
<Set>AC_DT=GETDATE()</Set>
<Exec func="PUB:IsExistNode" error="IGNORE">
<Arg name="FieldName" value="ORD_DT"/>
</Exec>
<If condition="~RetCod=1"> <!--存在-->
<Set>ORD_DT=$ORD_DT</Set>
</If>
<Else>
<Set>ORD_DT=CALCDATE($AC_DT,-,d,1)</Set>
</Else>
<Set>RPT_KND=RPT_D_010_d</Set>
<Set>raqname=STRCAT($RPT_KND,-,$ORD_DT,.xls)</Set>
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT2/RPT_D_010_d.raq)</Set>
<Set>RPTNAME=STRCAT(/tmp/data/,$raqname)</Set>
<Set>RPT_FIL_NM=STRCAT("本行跨行支付情况统计日报表-",FMTDATE($ORD_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="ORD_DT" value="$ORD_DT" />
</Exec>
<If condition="~RetCod=-1">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00033"/>
</Exec>
<Return/>
</If>
<ElseIf condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</ElseIf>
<Set>FILE_NAME=$RPTNAME</Set>
<Call package="UPLOAD_FILE" function="UPLOAD_FILE">
</Call>
<Exec func="PUB:DumpETF" />
<Set>RPT_FIL_URL=$OUT_DAT.FILE_URL</Set>
<If condition="ISNULL($RPT_FIL_URL)">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00032"/>
</Exec>
<Return/>
</If>
<Set>RPT_TYP=D</Set>
<Quote name="Do_SVRPro"/> <!--插入报表登记表-->
</FlowCtrl>
</Transaction>
</Root>
cap/etc/OCAPRPT2/204088_CTL.XML
+66
View File
@@ -0,0 +1,66 @@
<?xml version='1.0' encoding='UTF-8'?>
<Root>
<Transaction code="204088" desc="本行跨行支付情况统计月报表" log_switch="1">
<FlowCtrl>
<Exec func="PUB:InitGWA" /> <!--交易初始化 -->
<Set>AC_DT=GETDATE()</Set>
<Exec func="PUB:IsExistNode" error="IGNORE">
<Arg name="FieldName" value="ORD_DT"/>
</Exec>
<If condition="~RetCod=1"> <!--存在-->
<Set>MONTH=SUBSTR(CALCDATE($ORD_DT,-,m,1),1,6)</Set>
<Set>MONTH2=$MONTH</Set>
</If>
<Else>
<Set>MONTH=SUBSTR(CALCDATE($AC_DT,-,m,1),1,6)</Set>
<Set>MONTH2=$MONTH</Set>
</Else>
<Set>RPT_KND=RPT_D_010_m</Set>
<Set>raqname=STRCAT($RPT_KND,-,$MONTH,.xls)</Set>
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT2/RPT_D_010_m.raq)</Set>
<Set>RPTNAME=STRCAT(/tmp/data/,$raqname)</Set>
<Set>RPT_FIL_NM=STRCAT("本行跨行支付情况统计月报表-",$MONTH,.xls)</Set>
<Exec func="PUB:GenerateReportNew" error="IGNORE"> <!--报表生成组件-->
<Arg name="RptName" value="$RPTNAME" />
<Arg name="RptFile" value="$CR_RPT_FILE" />
<Arg name="MONTH" value="$MONTH" />
<Arg name="MONTH2" value="$MONTH2" />
</Exec>
<If condition="~RetCod=-1">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00033"/>
</Exec>
<Return/>
</If>
<ElseIf condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</ElseIf>
<Set>FILE_NAME=$RPTNAME</Set>
<Call package="UPLOAD_FILE" function="UPLOAD_FILE">
</Call>
<Exec func="PUB:DumpETF" />
<Set>RPT_FIL_URL=$OUT_DAT.FILE_URL</Set>
<If condition="ISNULL($RPT_FIL_URL)">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00032"/>
</Exec>
<Return/>
</If>
<Set>RPT_TYP=M</Set>
<Quote name="Do_SVRPro"/> <!--插入报表登记表-->
</FlowCtrl>
</Transaction>
</Root>
cap/etc/OCAPRPT2/RPT_D_003_d.raq
BIN
View File
Binary file not shown.
cap/etc/OCAPRPT2/RPT_D_003_m.raq
BIN
View File
Binary file not shown.
cap/etc/OCAPRPT2/RPT_D_006_d.raq
BIN
View File
Binary file not shown.
cap/etc/OCAPRPT2/RPT_D_006_m.raq
BIN
View File
Binary file not shown.
cap/etc/OCAPRPT2/RPT_D_007_d.raq
BIN
View File
Binary file not shown.
cap/etc/OCAPRPT2/RPT_D_007_m.raq
BIN
View File
Binary file not shown.
cap/etc/OCAPRPT2/RPT_D_008_d.raq
BIN
View File
Binary file not shown.
cap/etc/OCAPRPT2/RPT_D_008_m.raq
BIN
View File
Binary file not shown.
cap/etc/OCAPRPT2/RPT_D_009_m.raq
BIN
View File
Binary file not shown.
cap/etc/OCAPRPT2/RPT_D_010_d.raq
BIN
View File
Binary file not shown.
cap/etc/OCAPRPT2/RPT_D_010_m.raq
BIN
View File
Binary file not shown.
cap/etc/OCAPRPT2_CTL.XML
+12
View File
@@ -67,4 +67,16 @@
<Include file="app/cap/etc/OCAPRPT2/204076_CTL.XML" desc="银行通道统计日报" />
<Include file="app/cap/etc/OCAPRPT2/204077_CTL.XML" desc="失败原因统计日报表" />
<Include file="app/cap/etc/OCAPRPT2/204078_CTL.XML" desc="失败原因统计月报表" />
<Include file="app/cap/etc/OCAPRPT2/204079_CTL.XML" desc="银行渠道统计日报表" />
<Include file="app/cap/etc/OCAPRPT2/204080_CTL.XML" desc="银行渠道统计月报表" />
<Include file="app/cap/etc/OCAPRPT2/204081_CTL.XML" desc="易才集团支付情况统计日报表" />
<Include file="app/cap/etc/OCAPRPT2/204082_CTL.XML" desc="易才集团支付情况统计月报表" />
<Include file="app/cap/etc/OCAPRPT2/204083_CTL.XML" desc="客户发放情况统计日报表" />
<Include file="app/cap/etc/OCAPRPT2/204084_CTL.XML" desc="客户发放情况统计月报表" />
<Include file="app/cap/etc/OCAPRPT2/204085_CTL.XML" desc="招行退票统计月报表" />
<Include file="app/cap/etc/OCAPRPT2/204087_CTL.XML" desc="本行跨行支付情况统计日报表" />
<Include file="app/cap/etc/OCAPRPT2/204088_CTL.XML" desc="本行跨行支付情况统计月报表" />
</Application>