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 {