From 2d107a69e5d84532a7dd5defe3196280b23b4d1f Mon Sep 17 00:00:00 2001
From: lazhen <17772815105@139.com>
Date: 星期一, 26 八月 2024 15:24:33 +0800
Subject: [PATCH] 装配上线计划+机加下线计划- SAP接口类
---
_Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_GenerateData.qbl | 46 +++++++++++++++++++++++++++++++++++++++-------
1 files changed, 39 insertions(+), 7 deletions(-)
diff --git a/_Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_GenerateData.qbl b/_Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_GenerateData.qbl
index 73c5697..41dcfab 100644
--- a/_Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_GenerateData.qbl
+++ b/_Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_GenerateData.qbl
@@ -5,26 +5,58 @@
String werk,
const MacroPlan macroplan,
Date startdate,
- Date enddate
+ Date enddate,
+ String executor
)
{
TextBody:
[*
// 鐢勫叞楦� Aug-23-2024 (created)
- owner.AOnlineAndMOfflinePlanPIR( relflush );
+ cdlast := maxobject( owner, AOnlineAndMOfflinePlanPIR, cd, cd.StartDate(), cd.EndDate(), cd.Werk() );
+ if( not isnull( cdlast ) ){
+ loginfo := cdlast.InterfaceLoginfo();
+ if( not loginfo.IsShow() ){
+ loginfo.Delete();
+ }else{
+ loginfo.Last( false );
+ }
+ owner.AOnlineAndMOfflinePlanPIR( relflush );
+ }
+ nowdate := DateTime::ActualTime();
+ loginfo := owner.InterfaceLoginfo( relnew, ExecuteUser := executor
+ , Name := Translations::InterfaceDataset_AOnlineAndMOfflinePlanPIR_Name()
+ , InterfaceDateTime := nowdate
+ , Message := '瑁呴厤涓婄嚎璁″垝 + 鏈哄姞涓嬬嚎璁″垝 - PIR'
+ , IsShow := false
+ , Last := true
+ , ReturnSuccess := true
+ , ReturnMsg := 'Success'
+ , Success := true
+ );
pir := owner.AOnlineAndMOfflinePlanPIR( relnew, Werk := werk, Version := macroplan.ScenarioName(), StartDate := startdate, EndDate := enddate );
- totalrows := 0;
+ loginfo.AOnlineAndMOfflinePlanPIR( relinsert, pir );
traverse( macroplan, AssemblyOnlinePlanColumn, column ){
traverse( column, AssemblyOnlinePlanCell, cell, cell.Value() <> '' and cell.AssemblyOnlinePlanRow().RowNr() = '1' ){
quantityrow := cell.AssemblyOnlinePlanRow();
pir.PIRData( relnew, Product := quantityrow.ProductID()
- , PlanningDate := column.ColumnDate()
- , PlanningQty := [Number]cell.Value());
+ , PlanningDate := column.ColumnDate()
+ , PlanningQty := [Number]cell.Value());
}
}
- totalrows := totalrows + pir.PIRData( relsize );
- //traverse( macroplan, OfflinePlanTable
+ traverse( macroplan, OfflinePlanTable, table ){
+ traverse( table, OfflinePlanColumn, column ){
+ traverse( column, OfflinePlanCell, cell, cell.Value() <> ''
+ and ( cell.OfflinePlanRow().ProductionLine() <> 'DL_MOMO' or cell.OfflinePlanRow().ProductionLine() <> 'CC_MOMO' ) ){
+ row := cell.OfflinePlanRow();
+
+ pir.PIRData( relnew, Product := row.ProductID()
+ , PlanningDate := column.ColumnDate()
+ , PlanningQty := [Number]cell.Value());
+ }
+ }
+ }
+ loginfo.TotalRow( pir.PIRData( relsize ) );
*]
}
--
Gitblit v1.9.3