From 08a26d6a64f0800623c1bfb857f46045c4866547 Mon Sep 17 00:00:00 2001
From: rislai <risheng.lai@capgemini.com>
Date: 星期三, 07 八月 2024 17:22:35 +0800
Subject: [PATCH] 添加计划汇总报表

---
 _Main/BL/Type_LocalColumn/Function_CalcIndex.qbl |   29 +++++++++++++++--------------
 1 files changed, 15 insertions(+), 14 deletions(-)

diff --git a/_Main/BL/Type_LocalColumn/Function_CalcIndex.qbl b/_Main/BL/Type_LocalColumn/Function_CalcIndex.qbl
index 8319f34..a8ef9c9 100644
--- a/_Main/BL/Type_LocalColumn/Function_CalcIndex.qbl
+++ b/_Main/BL/Type_LocalColumn/Function_CalcIndex.qbl
@@ -5,21 +5,22 @@
   TextBody:
   [*
     // rislai Jul-24-2024 (created)
-    year := this.Date().Year();
-    month := this.Date().Month();
-    day := this.Date().Day();
-    
-    index := [String]year;
-    if( month < 10 ){
-      index := index + "0" + [String]month; 
+    value := 0;
+    if( this.CustomIndex() = -999 ){
+      year := this.Date().Year();
+      month := this.Date().Month();
+      day := this.Date().Day();
+      index := [String]year;
+      if( month < 10 ){
+        index := index + "0" + [String]month; 
+      }
+      if( day < 10 ){
+        index := index + "0" + [String]day; 
+      }
+      value := [Number]index;
+    }else{
+      value := this.CustomIndex();
     }
-    if( day < 10 ){
-      index := index + "0" + [String]day; 
-    }
-    
-    
-    value := ifexpr( this.CustomIndex() = -999,[Number]index,this.CustomIndex() );
-    
     this.Index( value );
   *]
 }

--
Gitblit v1.9.3