From 9ce41e976e9ad88ed652292c7e08df1bc44737b6 Mon Sep 17 00:00:00 2001
From: Alawn <alawn.cn@gmail.com>
Date: Tue, 1 Jun 2021 13:22:34 +0800
Subject: [PATCH 1/2] =?UTF-8?q?=E5=A2=9E=E5=8A=A0=E6=97=A5=E6=8A=A5?=
 =?UTF-8?q?=E8=A1=A8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 bui/etc/BUI_PUB_CTL.XML         |   4 +-
 cap/etc/OCAPRPT2/204076_CTL.XML |  63 ++++++++++++++++++++++++++++++++
 cap/etc/OCAPRPT2/RPT_D_006.raq  | Bin 0 -> 5509 bytes
 cap/etc/OCAPRPT2_CTL.XML        |   2 +
 4 files changed, 67 insertions(+), 2 deletions(-)
 create mode 100644 cap/etc/OCAPRPT2/204076_CTL.XML
 create mode 100644 cap/etc/OCAPRPT2/RPT_D_006.raq

diff --git a/bui/etc/BUI_PUB_CTL.XML b/bui/etc/BUI_PUB_CTL.XML
index fa9d04f..2e0e1ef 100644
--- a/bui/etc/BUI_PUB_CTL.XML
+++ b/bui/etc/BUI_PUB_CTL.XML
@@ -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)">
+            <If condition="IS_NOEQUAL_STRING($TXN_CD,4807106,4807002,0030006,0030004,0030005,2040866,2040841,2040881,2040876,2040867,2040869,2040862,2040860,4908103,204076)">
                <!--第三方鉴权-->
                <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)">             
+            <If condition="IS_NOEQUAL_STRING($TXN_CD,4807106,4807002,0030006,0030004,0030005,2040866,2040841,2040881,2040876,2040867,2040862,2040860,4908103,204076)">             
                <!--操作员流水 --> 
                <Set>MSG_TYP=$GWA.MSG_TYP</Set>               
                <Set>MSG_CD=$GWA.MSG_CD</Set>               
diff --git a/cap/etc/OCAPRPT2/204076_CTL.XML b/cap/etc/OCAPRPT2/204076_CTL.XML
new file mode 100644
index 0000000..71c90a8
--- /dev/null
+++ b/cap/etc/OCAPRPT2/204076_CTL.XML
@@ -0,0 +1,63 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<Root>
+   <Transaction code="204076" 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>CHK_DAT=$CHK_DAT</Set>
+         </If>
+         <Else>
+            <Set>CHK_DAT=CALCDATE($AC_DT,-,d,1)</Set>
+         </Else>
+
+
+         <Set>RPT_KND=RPT_D_006</Set>
+         <Set>raqname=STRCAT($RPT_KND,-,$CHK_DAT,.xls)</Set>
+         <Set>WORKDIR=GETENV(HWORKDIR)</Set>
+         <Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT2/RPT_D_006.raq)</Set>
+         <Set>RPTNAME=STRCAT(/tmp/data/,$raqname)</Set>
+
+         <Set>RPT_FIL_NM=STRCAT("银行通道统计日报-",FMTDATE($CHK_DAT,0,5),.xls)</Set>
+
+         <Exec func="PUB:GenerateReportNew" error="IGNORE"> <!--报表生成组件-->
+            <Arg name="RptName" value="$RPTNAME" />
+            <Arg name="RptFile" value="$CR_RPT_FILE" />
+            <Arg name="CHK_DAT" value="$CHK_DAT" />
+         </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>
+
diff --git a/cap/etc/OCAPRPT2/RPT_D_006.raq b/cap/etc/OCAPRPT2/RPT_D_006.raq
new file mode 100644
index 0000000000000000000000000000000000000000..12d706be873fcf4b062774cb0a82feddeaaced20
GIT binary patch
literal 5509
zcmdT|O>7%Q6n>kiRhyWGrbMb#5K}I(rPN@la6tK~St}5d*oo~35C?0CHzCM>^^dCF
z(i2gH1Sp{mC{+l=hy<tzty)AYfy9MF59P+C2M}4uhpHDODitvA&HiYUIJ+yQ(I#W<
z{Jb}B-Z$U8nelFPcsL61#2Nq`fF{hJEC(?c@PP(^8YZeA{Q4do$mOuM+xio$FTHSR
z%ItrGdsM&EJ!_?YBeG<rE<W97rDk{U?m*pB?cRa)&~K-<wf-4d@Zho>#*#V-zy3Z{
z!?I@*;Bi_dJv|f97VSiJ=KA{Ld&>8pRxiv{ZZ51}SyV2SmFe>O;+NDJjj88@(1euA
zjzcRSK$Y>TIg9n2!Op0(sGt@DMqodYp&B_T(gKHMLzG!1>|Q3l?bHs_MCKRn-};2Q
zqnUXk9+Huemzy#R{DulmaUx(b5!8M`1KR-QzOnD4Mt1}RuK<V6h_Cb~LczElQUu_E
zMjkmduZBC;k+WN<Z8+s_>tu+ShpP?O0(jJTuiU!0_WlhT2rcU~fBW_pKgQx)RERr#
ztmEP<8rl|Xi!$}W+VsMoKP)M8Gs;Kbl94NLuQ-C+YKB{V_rvOEmt8~bkl?kY)%9!T
zeM7JruFC|kItqz4WqzfyP_9g0S0*pGPxCcLppS0_?K0U8k2YoUru!T_+<698m#JNL
z5E9g7`-7KjH)a;sgQ3EM{3ySno0ElrUyMXwPJ|;i*TxFDvAH%ll5KB^jW~JBKx9$D
z@me`p4}p!1h+-l<GPsY>1_$l_0PPWOdxL!g`-fYO)}GsMD9~Jr+cqAzEflvS;r?*s
zwXg$v_ZVP%hMk<ce7Eny$#9G_{1`DDkHmvc!go)>wPzQg6JLx3{=?58yiAJtMMRvP
zgy0;g&o5ZwgYVt=0?+^r0@jFgH3N8-RN#YV68x>bmTjz3cm1ZpvhjHk1eDwv&8GeN
zQs(T0l=0`~TsB`k?JpJNd^($yQ~ucSKu9V|F}WyaGh-9u==~q`^b}e?#8tuKucSOC
zl~Tn-vVg7s2uQ8=Z?GVz<k2G2E}xDjrlvwE?UjsE-pBOwzJnCJfs|=ttZlN>PcR?T
zYurvhDm3v{JJas;F;jzE>uv7X)G&OHW=ol(H{fGN2y(ml>)`~qQN>to8p~(X%&Sga
zpRspTD#+~I+j54HMJyg;U93IU&Wa=oFgb<l=a`&Hn%J;5(mZc9HP5{M5WRK%8f;n{
z)$^-!Z?IKoh|X@-Uf;1!H{SRiHiq?_>*nTpYyCR3$ZP72Mh2M}976f4;Q?BRyv!oe
zP$CrXVm&@4vGIJilw)t5XOjM3i2_-BYCyY0-%@<PVVgEm8<ms*S~{t0q&<i!NfzqX
lqzWZf0T9KHo%EdaG`^U5bNRcoe?0vB;~%d+(DiPW{{srh&o%%6

literal 0
HcmV?d00001

diff --git a/cap/etc/OCAPRPT2_CTL.XML b/cap/etc/OCAPRPT2_CTL.XML
index 916cea1..42b1a7e 100644
--- a/cap/etc/OCAPRPT2_CTL.XML
+++ b/cap/etc/OCAPRPT2_CTL.XML
@@ -65,4 +65,6 @@
   
   <Include file="app/cap/etc/OCAPRPT2/204074_CTL.XML" desc="回单查询" />
 
+  <Include file="app/cap/etc/OCAPRPT2/204076_CTL.XML" desc="银行通道统计日报" />
+
 </Application>
-- 
2.54.0


From 13fc5d749744b2785eb6250ebdb6a50853d4c8bc Mon Sep 17 00:00:00 2001
From: Alawn <alawn.cn@gmail.com>
Date: Tue, 1 Jun 2021 13:27:52 +0800
Subject: [PATCH 2/2] =?UTF-8?q?=E5=A2=9E=E5=8A=A0=E5=AE=9A=E6=97=B6?=
 =?UTF-8?q?=E7=94=9F=E6=88=90=E6=97=A5=E6=8A=A5=E8=A1=A8=E9=85=8D=E7=BD=AE?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 base/etc/TIMCON_PUB.XML | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/base/etc/TIMCON_PUB.XML b/base/etc/TIMCON_PUB.XML
index 42ad553..2cb055d 100644
--- a/base/etc/TIMCON_PUB.XML
+++ b/base/etc/TIMCON_PUB.XML
@@ -27,5 +27,10 @@
    <ROOT/>
   </Data>
  </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'>
+        <Data><ROOT><GWA><SYS_CNL>SYS</SYS_CNL></GWA></ROOT></Data>
+    </CycleItem>
    
 </Cycles>
-- 
2.54.0