From 8048c493c1d923176351080ee697d5c9d1c640a6 Mon Sep 17 00:00:00 2001
From: lazhen <17772815105@139.com>
Date: 星期四, 22 八月 2024 15:36:11 +0800
Subject: [PATCH] 库存接口自动同步
---
_Main/BL/Type_AssemblyOnlinePlanPush/StaticMethod_GenerateData.qbl | 28 ++++++++++++++++++----------
1 files changed, 18 insertions(+), 10 deletions(-)
diff --git a/_Main/BL/Type_AssemblyOnlinePlanPush/StaticMethod_GenerateData.qbl b/_Main/BL/Type_AssemblyOnlinePlanPush/StaticMethod_GenerateData.qbl
index 600da07..d33daa3 100644
--- a/_Main/BL/Type_AssemblyOnlinePlanPush/StaticMethod_GenerateData.qbl
+++ b/_Main/BL/Type_AssemblyOnlinePlanPush/StaticMethod_GenerateData.qbl
@@ -32,16 +32,24 @@
, ReturnMsg := 'Success'
, Success := true
);
- //traverse( macroplan, AssemblyOnlinePlanRow.AssemblyOnlinePlanCell, cell ){
- // cd :=interfaceDataset.AssemblyOnlinePlanPPPSPush( relnew, Product := forecast.ProductID()
- // , PlanningDate := forecast.StartDate()
- // , DemandQty := [Number]forecast.Quantity()
- // , VersionName := macroplan.ScenarioName()
- // , InterfaceTime := nowdate
- // , VersionFlag := versionflag
- // );
- // loginfo.CustomerDemandPPAIDS( relinsert, cd );
- //}
+ traverse( macroplan, AssemblyOnlinePlanColumn, column ){
+ traverse( column, AssemblyOnlinePlanCell, cell, cell.Value() <> '' and cell.AssemblyOnlinePlanRow().RowNr() = '1' ){
+ quantityrow := cell.AssemblyOnlinePlanRow();
+ ordercell := selectobject( column, AssemblyOnlinePlanCell, ocell, ocell.AssemblyOnlinePlanRow().ProductID() = quantityrow.ProductID()
+ and ocell.AssemblyOnlinePlanRow().ProductionLine() = quantityrow.ProductionLine()
+ and ocell.AssemblyOnlinePlanRow().RowNr() = '2' );
+
+ cd :=interfaceDataset.AssemblyOnlinePlanPPPSPush( relnew, Product := quantityrow.ProductID()
+ , PlanningDate := column.ColumnDate()
+ , PlanningQty := [Number]cell.Value()
+ , Sequence := ordercell.Value()
+ , VersionName := macroplan.ScenarioName()
+ , InterfaceTime := nowdate
+ , VersionFlag := versionflag
+ );
+ loginfo.AssemblyOnlinePlanPPPSPush( relinsert, cd );
+ }
+ }
loginfo.TotalRow( loginfo.AssemblyOnlinePlanPPPSPush( relsize ) );
*]
}
--
Gitblit v1.9.3