Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveNumeriekeVelden.cls.xml
===================================================================
diff -u -r74871 -r74993
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveNumeriekeVelden.cls.xml	(.../BatchNaarObjectiveNumeriekeVelden.cls.xml)	(revision 74871)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveNumeriekeVelden.cls.xml	(.../BatchNaarObjectiveNumeriekeVelden.cls.xml)	(revision 74993)
@@ -14,6 +14,18 @@
 <Parameter name="XMLNAME" value="vh-mes-production-plugin_numberofcalculatedvolumeunits"/>
 </Property>
 
+<Property name="AantalGrotePalletten">
+<Type>%String</Type>
+<InitialExpression>0</InitialExpression>
+<Parameter name="XMLNAME" value="vh-mes-production-plugin_numberoflargepallets"/>
+</Property>
+
+<Property name="AantalKleinePalletten">
+<Type>%String</Type>
+<InitialExpression>0</InitialExpression>
+<Parameter name="XMLNAME" value="vh-mes-production-plugin_numberofsmallpallets"/>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>BatchNaarObjectiveNumeriekeVeldenState</State>
@@ -22,6 +34,12 @@
 <Value name="1">
 <Value>BerekendeVolumeEenheden</Value>
 </Value>
+<Value name="2">
+<Value>AantalGrotePalletten</Value>
+</Value>
+<Value name="3">
+<Value>AantalKleinePalletten</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml
===================================================================
diff -u -r74970 -r74993
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml	(.../HoofdDataGenerator.cls.xml)	(revision 74970)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml	(.../HoofdDataGenerator.cls.xml)	(revision 74993)
@@ -49,8 +49,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductTypeApi">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>BatchPitchExportedService:APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService="",OrderApi:DOM.VKP.OrderAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI="",Logger:vhLib.Logger="",VerkoopAPI:DOM.VKP.VerkoopAPI="",LabelLogoBepaler:BL.Flow.Levering.LabelLogoBepaler="",KlantinstellingenRepository:DOM.Halux.AAP.KlantinstellingenRepository=""</FormalSpec>
+<FormalSpec>BatchPitchExportedService:APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService="",OrderApi:DOM.VKP.OrderAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI="",Logger:vhLib.Logger="",VerkoopAPI:DOM.VKP.VerkoopAPI="",LabelLogoBepaler:BL.Flow.Levering.LabelLogoBepaler="",KlantinstellingenRepository:DOM.Halux.AAP.KlantinstellingenRepository="",ProductTypeApi:DOM.PM.ProductTypeAPI="",ProductApi:DOM.PM.ProductAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -65,6 +70,7 @@
 	Set ..LabelLogoBepaler = $$$Inject(LabelLogoBepaler, ##class(BL.Flow.Levering.LabelLogoBepaler).%New())
 	Set ..KlantinstellingenRepository = $$$Inject(KlantinstellingenRepository, ##class(DOM.Halux.AAP.KlantinstellingenRepository).%New())
 	Set ..ProductieSequentieItemRepository = ##class(APPS.Halux.common.ProductieSequentieItemRepository).%New()
+	Set ..ProductTypeApi = $$$Inject(ProductTypeApi, ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -104,7 +110,7 @@
 	
 	If ((##class(APPS.Halux.PPS.MES.MESService).%New().GeefHuidigeMESFase() > 1)) {
 		Set GebruikersVelden.Vlag = ..GeefVlagVelden(Batch, Toelevering, SequentieNummerToelevering)
-		Set GebruikersVelden.NumeriekeVelden = ..GeefNumeriekeVelden(Batch, Toelevering)
+		Set GebruikersVelden.NumeriekeVelden = ..GeefNumeriekeVelden(Batch, Toelevering, GebruikersVelden.Vlag)
 	} Else {
 		Set GebruikersVelden.Vlag = ""
 		Set GebruikersVelden.NumeriekeVelden = ""
@@ -127,13 +133,18 @@
 </Method>
 
 <Method name="GeefNumeriekeVelden">
-<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,VlagVelden:APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveVlagVelden</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveNumeriekeVelden</ReturnType>
 <Implementation><![CDATA[
-	Set NumeriekeVelden = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveNumeriekeVelden).%New()
+	Set NumeriekeVelden = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveNumeriekeVelden).%New()	
 	Set NumeriekeVelden.BerekendeVolumeEenheden = ..GeefAantalVolumeEenheden(Batch, Toelevering)
 	
+	If (NumeriekeVelden.BerekendeVolumeEenheden > 0) {
+		Set NumeriekeVelden.AantalGrotePalletten = ..GeefAantalGrotePalletten(Toelevering, NumeriekeVelden.BerekendeVolumeEenheden, VlagVelden.GebruikHalvePaletten)
+		Set NumeriekeVelden.AantalKleinePalletten = ..GeefAantalKleinePalletten(Toelevering, NumeriekeVelden.BerekendeVolumeEenheden, VlagVelden.GebruikHalvePaletten)
+	}
+	
 	Quit NumeriekeVelden
 ]]></Implementation>
 </Method>
@@ -217,7 +228,7 @@
 <Method name="GeefVlagVelden">
 <FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,SequentieNummerToelevering:%Integer</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveTekstVelden</ReturnType>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveVlagVelden</ReturnType>
 <Implementation><![CDATA[
 	#dim Order As DOM.VKP.Order = ..OrderApi.GeefOrder(Toelevering.GeefOrderID())
 	Set VlagVelden = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveVlagVelden).%New()
@@ -479,7 +490,7 @@
 	#dim IsVerpakkingProbox As %Boolean = ##class(TECH.StringUtils).Equals(Batch.GeefProductieGroep(), ##class(APPS.Halux.common.enu.ProductieGroep).Probox())
 	
 	//Momenteel enkel nog maar volumetrie bij probox. Bij VHoss kan dit ook niet zo worden gebruikt gezien er dan meerdere toeleveringen in 1 PO zitten.
-	If (IsVerpakkingProbox) {
+	If (##class(TECH.StringUtils).Equals(..GeefVerpakkingsTypeVanToelevering(Toelevering), "Probox")) {
 		Set AantalVolumeEenheden = ..ProductieSequentieItemRepository.GeefAantalGeladenContainersVoorToelevering(Batch.GeefID(), Toelevering.GeefID())
 		
 		If ((AantalVolumeEenheden = "") && $$$Not((##class(TECH.StringUtils).Equals(##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie(), "UnitTest", "IntegratieTest")))) {
@@ -493,6 +504,74 @@
 	Quit AantalVolumeEenheden
 ]]></Implementation>
 </Method>
+
+<Method name="AantalGrotePalletten">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,AantalVolumeEenheden:%Integer,AllesMoetOpHalvePaletten:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim AantalPalletten As %Integer = 0
+	#dim VerpakkingsTypeToelevering As %String = ..GeefVerpakkingsTypeVanToelevering(Toelevering)
+	
+	If (..HeeftVerpakkingsTypeOpPallet(VerpakkingsTypeToelevering)) { 
+		If (VerpakkingsTypeToelevering = "Probox") {
+			If (AllesMoetOpHalvePaletten) {
+				Set AantalPalletten = 0
+			} Else {
+				Set AantalPalletten = ##class(TECH.Math).Floor(AantalVolumeEenheden / 2)
+			}
+		}
+	}
+	
+	Quit AantalPalletten
+]]></Implementation>
+</Method>
+
+<Method name="AantalKleinePalletten">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,AantalVolumeEenheden:%Integer,AllesMoetOpHalvePaletten:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim AantalPalletten As %Integer = 0
+	#dim VerpakkingsTypeToelevering As %String = ..GeefVerpakkingsTypeVanToelevering(Toelevering)
+	
+	If (..HeeftVerpakkingsTypeOpPallet(VerpakkingsTypeToelevering)) { 
+		If (VerpakkingsTypeToelevering = "Probox") {
+			If (AllesMoetOpHalvePaletten) {
+				Set AantalPalletten = AantalVolumeEenheden
+			} Else {
+				Set AantalPalletten = ##class(TECH.Math).Modulo(AantalVolumeEenheden, 2)
+			}
+		}
+	}
+	
+	Quit AantalPalletten
+]]></Implementation>
+</Method>
+
+<Method name="HeeftVerpakkingsTypeOpPallet">
+<FormalSpec>VerpakkingsType:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$Not(##class(TECH.StringUtils).Equals(VerpakkingsType, "VHoss", ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen(), ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen()))
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakkingsTypeVanToelevering">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Implementation><![CDATA[
+	#dim VerpakkingsType As %String = ""
+	#dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
+	
+	If (ProductLijnIterator.HasNext()) {
+		#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ..ProductTypeApi.GeefMaatwerkProduct(ProductLijnIterator.Next().GeefProductID())
+		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = MaatwerkProduct.GeefIngegevenKenmerken()
+		Set VerpakkingsType = IngegevenKenmerken.VerpakkingType
+	}
+	
+	Quit VerpakkingsType
+]]></Implementation>
+</Method>
 </Class>