From 5302eb66940f4df55beeef149c1f8c578546cb9d Mon Sep 17 00:00:00 2001
From: lazhen <17772815105@139.com>
Date: 星期五, 09 八月 2024 15:26:02 +0800
Subject: [PATCH] 发动机管线报表需求显示调整

---
 _Main/BL/Type_EnginePipelineSource/StaticMethod_Initialize.qbl |   12 ++++++++----
 1 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/_Main/BL/Type_EnginePipelineSource/StaticMethod_Initialize.qbl b/_Main/BL/Type_EnginePipelineSource/StaticMethod_Initialize.qbl
index b18fbac..7b09478 100644
--- a/_Main/BL/Type_EnginePipelineSource/StaticMethod_Initialize.qbl
+++ b/_Main/BL/Type_EnginePipelineSource/StaticMethod_Initialize.qbl
@@ -8,8 +8,12 @@
   [*
     // 鐢勫叞楦� Jun-24-2024 (created)
     owner.EnginePipelineSource( relflush );
-    ccunit                    := EnginePipelineReport::GetDefaultCCUnit();
-    dlunit                    := EnginePipelineReport::GetDefaultDLUnit();
+    //ccunit                    := EnginePipelineReport::GetDefaultCCUnit();
+    //dlunit                    := EnginePipelineReport::GetDefaultDLUnit();
+    ccalineunit               := FinancialProductionReport::GetDefaultCCALineUnit();
+    dlalienunit               := FinancialProductionReport::GetDefaultDLALineUnit()
+    ccmplineunit              := FinancialProductionReport::GetDefaultCCMPLineUnit()
+    dlmplineunit              := FinancialProductionReport::GetDefaultDLMPLineUnit();
     //allunit                   := EnginePipelineReport::GetDefaultAllUnit();
     source                    := owner.EnginePipelineSource( relnew, Name := EnginePipelineReport::GetDefaultName() );
     table                     := source.Report( relnew, ID := source.Name(), Name := source.Name() );
@@ -27,9 +31,9 @@
       unit                    := stockingpoint.Unit();
       parentunits             := unit.GetAllParent();
       //鏄惁灞炰簬闀挎槬宸ュ巶
-      iscc                    := unit.ID() = ccunit or exists( parentunits, Elements, punit, punit.ID() = ccunit );
+      iscc         := unit.ID() = ccalineunit or unit.ID() = ccmplineunit or exists( parentunits, Elements, punit, punit.ID() = ccalineunit or punit.ID() = ccmplineunit );
       //鏄惁灞炰簬澶ц繛宸ュ巶
-      isdl                    := unit.ID() = dlunit or exists( parentunits, Elements, punit, punit.ID() = dlunit );
+      isdl         := unit.ID() = dlalienunit or unit.ID() = dlmplineunit  or exists( parentunits, Elements, punit, punit.ID() = dlalienunit or punit.ID() = dlmplineunit );
       
       traverse( stockingpoint, ProductInStockingPoint_MP, pisp,  pisp.Product_MP().IsLeaf() and not pisp.IsSystem() ){
         weekstart             := owner.StartOfPlanning().Date();

--
Gitblit v1.9.3