Index: APPS/Halux/PPS/impl/AansturingActie/common/OverzichtBatch.cls.xml
===================================================================
diff -u -r60567 -r66233
--- APPS/Halux/PPS/impl/AansturingActie/common/OverzichtBatch.cls.xml	(.../OverzichtBatch.cls.xml)	(revision 60567)
+++ APPS/Halux/PPS/impl/AansturingActie/common/OverzichtBatch.cls.xml	(.../OverzichtBatch.cls.xml)	(revision 66233)
@@ -43,16 +43,20 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set BatchService = ##class(APPS.Halux.Planning.impl.BatchService).%New()
+	Set ToeleveringApi = ##class(DOM.AKP.impl.DataM.DataMToeleveringAPI).%New()
 	#dim LijstToeleveringen As APPS.Halux.Planning.dto.BatchToeleveringen = BatchService.GeefToeleveringenInBatch(BatchID)
-	#dim ToeleveringIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(LijstToeleveringen.Toeleveringen)
+	#dim ToeleveringDtoIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(LijstToeleveringen.Toeleveringen)
 	
-	while ToeleveringIterator.HasNext() {		
-		#dim Toelevering As %String = ToeleveringIterator.Next()
-		Do ..Document.GeefKolom(1).Insert(Toelevering.Volgnummer)
-		Do ..Document.GeefKolom(2).Insert(Toelevering.ID)
+	while ToeleveringDtoIterator.HasNext() {		
+		#dim ToeleveringDto As APPS.Halux.Planning.dto.Toelevering = ToeleveringDtoIterator.Next()
+		#dim Toelevering As DOM.AKP.impl.DataM.DataMToelevering = ToeleveringApi.GeefToelevering(ToeleveringDto.ID)
+		
+		Do ..Document.GeefKolom(1).Insert(ToeleveringDto.Volgnummer)
+		Do ..Document.GeefKolom(2).Insert(Toelevering.GeefID())
+		Do ..Document.GeefKolom(3).Insert(..BepaalGroottePallet(Toelevering))
 		Do ..Document.GeefKolom(1).Insert("")
 		Do ..Document.GeefKolom(2).Insert("")
-					
+		Do ..Document.GeefKolom(3).Insert("")					
 	}
 ]]></Implementation>
 </Method>
@@ -65,6 +69,46 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalGroottePallet">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Aantal As %Integer = ..BepaalProboxAantal(Toelevering) + 2 // Er werden te weinig probox overdoos etiketten aangemaakt => 2 erbij
+	Quit:Aantal<=3 "Klein"
+	Quit "Groot"
+]]></Implementation>
+</Method>
+
+<Method name="BepaalProboxAantal">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim VolumeAandeel As %Float = 0	
+	#dim itToeleveringLijn As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
+
+	While itToeleveringLijn.HasNext() {
+		#dim Lijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = itToeleveringLijn.Next()
+		Set ProboxAandeelBepaler = ##class(BL.PPS.common.impl.ProboxVolumeAandeelBepaler).%New()
+		Try {
+			Set BezoekbaarProduct = ##class(DOM.PM.BezoekbaarProduct).%New(Lijn.GeefProductID())
+			Do ProboxAandeelBepaler.Reset()
+			Do BezoekbaarProduct.Accept(ProboxAandeelBepaler)
+			Set VolumeAandeel = VolumeAandeel + (ProboxAandeelBepaler.GeefVolumeAandeel() * Lijn.GeefAantal())
+		} Catch {
+			#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			If '((Exceptie.GeefOmschrijving()["METHOD DOES NOT EXIST") && (Exceptie.GeefOmschrijving()["GeefVerpakking"))
+			{
+				Do ##class(TECH.ExceptionHandler).Rethrow(Exceptie)	
+			}
+		}
+	}
+	#dim AantalEtiketten As %Integer = ##class(TECH.Math).Ceil(VolumeAandeel)
+	Quit AantalEtiketten
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>OverzichtBatchDefaultData</DefaultData>