From 4534d2c0921049d9d150ba0c31f76cb445bdd365 Mon Sep 17 00:00:00 2001
From: lazhen <17772815105@139.com>
Date: 星期四, 21 十一月 2024 17:41:25 +0800
Subject: [PATCH] 存档报表界面去掉日期区分列
---
_Main/BL/Type_InventoryPlanArchiveVersion/Method_Generate.qbl | 47 ++++++++++++++++++++++++-----------------------
1 files changed, 24 insertions(+), 23 deletions(-)
diff --git a/_Main/BL/Type_InventoryPlanArchiveVersion/Method_Generate.qbl b/_Main/BL/Type_InventoryPlanArchiveVersion/Method_Generate.qbl
index 5bcf2f4..bc03ff4 100644
--- a/_Main/BL/Type_InventoryPlanArchiveVersion/Method_Generate.qbl
+++ b/_Main/BL/Type_InventoryPlanArchiveVersion/Method_Generate.qbl
@@ -10,29 +10,30 @@
[*
// 鐢勫叞楦� Jun-25-2024 (created)
info( '-----------Search start-------' );
- table := selectobject( this,InterfaceDataset.InventoryPlanArchiveVersion, report, not report.IsShow() );
- //娓呯┖涔嬪墠瀛樺偍鐨勬樉绀烘暟鎹�
- aopcolumns := selectuniquevalues( table, Column, aopcolumn, aopcolumn.TimeUnit() = search.TimeUnit() and aopcolumn.StartDate() >= search.StartDate() and aopcolumn.StartDate() <= search.EndDate(), aopcolumn.StartDate() );
- this.Clear( aopcolumns );
- traverse( table, Row, row, ( units.Size() = 0 or units.Find( row.Unit() ) > -1 ) and ( products.Size() = 0 or products.Find( row.Name() ) > -1 ) ){
-
- showrow := selectobject( this, Row, showrow, showrow.Name() = row.Name() and showrow.Unit() = search.Unit() );
- if( isnull( showrow ) ){
- showrow := this.Row( relnew, Name := row.Name(), ProductID := row.ProductID(), Unit := search.Unit() );
- }
- traverse( row, Cell, cell, cell.Column().TimeUnit() = search.TimeUnit() ){
- column := selectobject( this, Column, column, column.Name() = cell.Column().Name() );
- if( not isnull( column ) ){
- showcell := selectobject( showrow, Cell, showcell, showcell.Column() = column );
- if( isnull( showcell ) ){
- showcell := showrow.Cell( relnew, PlanQuantity := 0, ActualQuantity := 0 );
- column.Cell( relinsert, showcell );
- }
- showcell.PlanQuantity( cell.PlanQuantity() + showcell.PlanQuantity() );
- showcell.ActualQuantity( cell.ActualQuantity() + showcell.ActualQuantity() );
- }
- }
- }
+ //table := selectobject( this,InterfaceDataset.InventoryPlanArchiveVersion, report, not report.IsShow() );
+ ////娓呯┖涔嬪墠瀛樺偍鐨勬樉绀烘暟鎹�
+ //search.TimeUnit( Translations::MP_GlobalParameters_Day() );
+ //aopcolumns := selectuniquevalues( table, Column, aopcolumn, aopcolumn.TimeUnit() = search.TimeUnit() and aopcolumn.StartDate() >= search.StartDate() and aopcolumn.StartDate() <= search.EndDate(), aopcolumn.StartDate() );
+ //this.Clear( aopcolumns );
+ //traverse( table, Row, row, ( units.Size() = 0 or units.Find( row.Unit() ) > -1 ) and ( products.Size() = 0 or products.Find( row.Name() ) > -1 ) ){
+ //
+ // showrow := selectobject( this, Row, showrow, showrow.Name() = row.Name() and showrow.Unit() = search.Unit() );
+ // if( isnull( showrow ) ){
+ // showrow := this.Row( relnew, Name := row.Name(), ProductID := row.ProductID(), Unit := search.Unit() );
+ // }
+ // traverse( row, Cell, cell, cell.Column().TimeUnit() = search.TimeUnit() ){
+ // column := selectobject( this, Column, column, column.Name() = cell.Column().Name() );
+ // if( not isnull( column ) ){
+ // showcell := selectobject( showrow, Cell, showcell, showcell.Column() = column );
+ // if( isnull( showcell ) ){
+ // showcell := showrow.Cell( relnew, PlanQuantity := 0, ActualQuantity := 0 );
+ // column.Cell( relinsert, showcell );
+ // }
+ // showcell.PlanQuantity( cell.PlanQuantity() + showcell.PlanQuantity() );
+ // showcell.ActualQuantity( cell.ActualQuantity() + showcell.ActualQuantity() );
+ // }
+ // }
+ //}
info( '-----------Search end-------' );
*]
}
--
Gitblit v1.9.3