From 2c82c774198314795afe9f8bd1d0394bd0b68526 Mon Sep 17 00:00:00 2001
From: admin <admin@admin.com>
Date: 星期一, 14 十月 2024 18:43:00 +0800
Subject: [PATCH] 调拨计划优化
---
_Main/BL/Type_TransferPlanCell/StaticMethod_GenerateReport.qbl | 5 +++--
1 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/_Main/BL/Type_TransferPlanCell/StaticMethod_GenerateReport.qbl b/_Main/BL/Type_TransferPlanCell/StaticMethod_GenerateReport.qbl
index b00f219..ed9b769 100644
--- a/_Main/BL/Type_TransferPlanCell/StaticMethod_GenerateReport.qbl
+++ b/_Main/BL/Type_TransferPlanCell/StaticMethod_GenerateReport.qbl
@@ -29,7 +29,8 @@
RowNr := rowNr,
SourceStockpoingPointID := TransferPlanRow::IdentifyTheFactory( t.LaneLeg().AsOriginStockingPointLeg().StockingPoint_MP() ),
TargetStockpoingPointID := TransferPlanRow::IdentifyTheFactory( t.LaneLeg().AsDestinationStockingPointLeg().StockingPoint_MP() ),
- ProductID := pit.Product_MP().ID() );
+ ProductID := pit.Product_MP().ID(),
+ Category := pit.Product_MP().ParentID() );
}
// 鎵惧垪
@@ -77,7 +78,7 @@
minDateTPC := macroPlan.TransferPlanColumn( relnew,
ColumnDate := Date::MinDate() );
traverse ( macroPlan, TransferPlanRow, tpr ) {
- productCell := minDateTPC.TransferPlanCell( relnew, Value := tpr.ProductID() );
+ productCell := minDateTPC.TransferPlanCell( relnew, Value := tpr.Category() + "_" + tpr.ProductID() );
productCell.TransferPlanRow( relset, tpr );
}
--
Gitblit v1.9.3