From 7c445b476a69ee8083a0e5733565e13dc8c0d109 Mon Sep 17 00:00:00 2001
From: lazhen <17772815105@139.com>
Date: 星期四, 14 十一月 2024 14:19:07 +0800
Subject: [PATCH] 计划下发界面区分工厂

---
 _Main/BL/Type_AssemblyOnlinePlanPush/StaticMethod_GenerateData.qbl |   28 ++++++++++++++++------------
 1 files changed, 16 insertions(+), 12 deletions(-)

diff --git a/_Main/BL/Type_AssemblyOnlinePlanPush/StaticMethod_GenerateData.qbl b/_Main/BL/Type_AssemblyOnlinePlanPush/StaticMethod_GenerateData.qbl
index 85cac89..f2d8561 100644
--- a/_Main/BL/Type_AssemblyOnlinePlanPush/StaticMethod_GenerateData.qbl
+++ b/_Main/BL/Type_AssemblyOnlinePlanPush/StaticMethod_GenerateData.qbl
@@ -3,6 +3,8 @@
 StaticMethod GenerateData (
   InterfaceDataset interfaceDataset,
   const MacroPlan macroplan,
+  Boolean iscc,
+  Boolean isdl,
   String executor
 )
 {
@@ -30,18 +32,20 @@
       traverse( verison, Column, column, column.TimeUnit() = Translations::MP_GlobalParameters_Day() ){
         traverse( column, Cell, cell ){
           row              := cell.Row();
-          cd               :=interfaceDataset.AssemblyOnlinePlanPPPSPush( relnew, Product            := row.ProductID()
-                                                                           , PlanningDate            := column.StartDate()
-                                                                           , PlanningQty             := [Number]cell.Quantity()
-                                                                           , Sequence                := cell.Order()
-                                                                           , VersionName             := macroplan.ScenarioName()
-                                                                           , InterfaceTime           := nowdate
-                                                                           , FactoryName             := row.Unit()
-                                                                          , Fac                     := ifexpr( row.Unit() = FinancialProductionReport::GetDefaultCCUnit(), 'CC', 'DL' )  
-    //                                                                       , VersionFlag             := versionflag
-                                                                           , ProductFourCode         := ifexpr( row.ProductID() = row.Name(), '', row.Name() )
-                                                                           );
-        loginfo.AssemblyOnlinePlanPPPSPush( relinsert, cd );
+          if( ( iscc and row.Unit() = FinancialProductionReport::GetDefaultCCUnit() ) or ( isdl and row.Unit() = FinancialProductionReport::GetDefaultDLUnit() ) ){
+            cd               :=interfaceDataset.AssemblyOnlinePlanPPPSPush( relnew, Product            := row.ProductID()
+                                                                             , PlanningDate            := column.StartDate()
+                                                                             , PlanningQty             := [Number]cell.Quantity()
+                                                                             , Sequence                := cell.Order()
+                                                                             , VersionName             := macroplan.ScenarioName()
+                                                                             , InterfaceTime           := nowdate
+                                                                             , FactoryName             := row.Unit()
+                                                                            , Fac                     := ifexpr( row.Unit() = FinancialProductionReport::GetDefaultCCUnit(), 'CC', 'DL' )  
+      //                                                                       , VersionFlag             := versionflag
+                                                                             , ProductFourCode         := ifexpr( row.ProductID() = row.Name(), '', row.Name() )
+                                                                             );
+            loginfo.AssemblyOnlinePlanPPPSPush( relinsert, cd );
+          }
         }
       }
     }

--
Gitblit v1.9.3