From bac6da002528f06ab9c91bb48d5a6e72493b2b60 Mon Sep 17 00:00:00 2001
From: lazhen <17772815105@139.com>
Date: 星期四, 29 八月 2024 17:01:07 +0800
Subject: [PATCH] 装配上线计划添加一个4位码

---
 _Main/BL/Type_AssemblyOnlinePlanPush/StaticMethod_GenerateData.qbl |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/_Main/BL/Type_AssemblyOnlinePlanPush/StaticMethod_GenerateData.qbl b/_Main/BL/Type_AssemblyOnlinePlanPush/StaticMethod_GenerateData.qbl
index 08cd41e..a06d769 100644
--- a/_Main/BL/Type_AssemblyOnlinePlanPush/StaticMethod_GenerateData.qbl
+++ b/_Main/BL/Type_AssemblyOnlinePlanPush/StaticMethod_GenerateData.qbl
@@ -37,14 +37,16 @@
         ordercell          := selectobject( column, AssemblyOnlinePlanCell, ocell, ocell.AssemblyOnlinePlanRow().ProductID() = quantityrow.ProductID() 
                                             and ocell.AssemblyOnlinePlanRow().ProductionLine() = quantityrow.ProductionLine() 
                                             and ocell.AssemblyOnlinePlanRow().Type() = '2' );
+        product            := selectobject( macroplan, Product_MP, product, product.ID() = quantityrow.ProductID() );
     
-        cd                  :=interfaceDataset.AssemblyOnlinePlanPPPSPush( relnew, Product           := quantityrow.ProductID()
+        cd                  :=interfaceDataset.AssemblyOnlinePlanPPPSPush( relnew, Product           := product.ID()
                                                                            , PlanningDate            := column.ColumnDate()
                                                                            , PlanningQty             := [Number]cell.Value()
                                                                            , Sequence                := ordercell.Value()
                                                                            , VersionName             := macroplan.ScenarioName()
                                                                            , InterfaceTime           := nowdate
                                                                            , VersionFlag             := versionflag
+                                                                           , ProductFourCode         := product.Notes()
                                                                            );
         loginfo.AssemblyOnlinePlanPPPSPush( relinsert, cd );
       }

--
Gitblit v1.9.3