From 56e177a01ebbaba93ec77e704bc15222332dece5 Mon Sep 17 00:00:00 2001
From: xiaoding721 <33130084+xiaoding721@users.noreply.github.com>
Date: 星期三, 27 十一月 2024 17:14:29 +0800
Subject: [PATCH] 添加单班次计划配置，修复一些bug
---
_Main/BL/Type_DispatchShiftPlan/StaticMethod_Dispatch.qbl | 17 +++++++++--------
1 files changed, 9 insertions(+), 8 deletions(-)
diff --git a/_Main/BL/Type_DispatchShiftPlan/StaticMethod_Dispatch.qbl b/_Main/BL/Type_DispatchShiftPlan/StaticMethod_Dispatch.qbl
index c672705..8d7561a 100644
--- a/_Main/BL/Type_DispatchShiftPlan/StaticMethod_Dispatch.qbl
+++ b/_Main/BL/Type_DispatchShiftPlan/StaticMethod_Dispatch.qbl
@@ -51,15 +51,16 @@
dispatchShiftPlan.InterfaceTime( now );
}else{
if( archiveShiftPlan.Outcome() <> "" ){
- interfaceLoginfo.DispatchShiftPlan( relnew,ID := OS:: GenerateGUIDAsString(),
- ProductLine := productLine,
- FactoryName := factoryName,
- ShiftQty := archiveShiftPlan.Outcome(),
+ dispatchShiftPlan := interfaceLoginfo.DispatchShiftPlan( relnew,ID := OS:: GenerateGUIDAsString(),
+ ProductLine := productLine,
+ FactoryName := factoryName,
+ ShiftQty := archiveShiftPlan.Outcome(),
- ShiftDate := shiftDate,
- Tips := archiveShiftPlan.Remark(),
- VersionName := archiveShiftPlan.MacroPlanName(),
- InterfaceTime := now );
+ ShiftDate := shiftDate,
+ Tips := archiveShiftPlan.Remark(),
+ VersionName := archiveShiftPlan.MacroPlanName(),
+ InterfaceTime := now );
+ dispatchShiftPlan.CalcFac();
}
}
}
--
Gitblit v1.9.3