Index: APPS/Halux/Planning/impl/BatchService/LBXMaatwerkBatchBuilder.cls.xml
===================================================================
diff -u -r29059 -r57928
--- APPS/Halux/Planning/impl/BatchService/LBXMaatwerkBatchBuilder.cls.xml (.../LBXMaatwerkBatchBuilder.cls.xml) (revision 29059)
+++ APPS/Halux/Planning/impl/BatchService/LBXMaatwerkBatchBuilder.cls.xml (.../LBXMaatwerkBatchBuilder.cls.xml) (revision 57928)
@@ -27,7 +27,9 @@
Do ##super(Toelevering, MaatwerkBatch)
#dim ToeleveringProductInfo As BL.PPS.TBX.ToeleveringProductInfo = ..LeanBatch.GeefToeleveringProductInfo(Toelevering)
- Set MaatwerkBatch.AantalUitsparing = MaatwerkBatch.AantalUitsparing + ToeleveringProductInfo.AantalLadenMetUitsparing
+
+ // KCA Misbruik van uitsparing property om totaal aantal op vhintra te krijgen. moet eigenlijk hernoemd worden.
+ Set MaatwerkBatch.AantalUitsparing = MaatwerkBatch.AantalUitsparing + ToeleveringProductInfo.AantalLadenMetUitsparing + ToeleveringProductInfo.AantalSmalleLaden
Set MaatwerkBatch.BodemKleuren = ##class(TECH.ListUtils).Unie(..GeefBodemKleurenInToelevering(Toelevering), MaatwerkBatch.BodemKleuren)
]]>
Index: BL/PPS/TBX/ToeleveringProductInfo.cls.xml
===================================================================
diff -u -r29059 -r57928
--- BL/PPS/TBX/ToeleveringProductInfo.cls.xml (.../ToeleveringProductInfo.cls.xml) (revision 29059)
+++ BL/PPS/TBX/ToeleveringProductInfo.cls.xml (.../ToeleveringProductInfo.cls.xml) (revision 57928)
@@ -20,6 +20,11 @@
0
+
+%Integer
+0
+
+
%Integer
0
Index: BL/PPS/TBX/LeanBatch.cls.xml
===================================================================
diff -u -r51648 -r57928
--- BL/PPS/TBX/LeanBatch.cls.xml (.../LeanBatch.cls.xml) (revision 51648)
+++ BL/PPS/TBX/LeanBatch.cls.xml (.../LeanBatch.cls.xml) (revision 57928)
@@ -173,6 +173,11 @@
If (IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) || IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken)) {
Set ToeleveringProductInfo.AantalLadenMetUitsparing = ToeleveringProductInfo.AantalLadenMetUitsparing + Aantal
}
+
+ If IngegevenKenmerkenTypeAPI.IsSmalleLade(IngegevenKenmerken) {
+ Set ToeleveringProductInfo.AantalSmalleLaden = ToeleveringProductInfo.AantalSmalleLaden + Aantal
+ }
+
}
}
Catch {