2021-06-01 05:28:57 +00:00
5 changed files with 72 additions and 2 deletions
@@ -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>
@@ -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>               
@@ -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>
+
@@ -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>