Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r71950 -r72153
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 71950)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 72153)
@@ -1257,7 +1257,24 @@
 	
 	set Afdrukker = ##class(APPS.Halux.PPS.Document.impl.GekoppeldeIK.Matten).%New()
 	If ((SamengesteldeLijst.Count()>0) && (..IsProductiegroepKastOfPallet(Batch) || (..IsProductiegroepProbox(Batch)))){
-		Do Afdrukker.VerwerkUitvoeringInfoLijst(SamengesteldeLijst,ActiviteitParameters)
+		Set SamengesteldeLijstIterator = ##class(TECH.ListIterator).%New(SamengesteldeLijst)
+		Set SamengesteldeLijstPerToelevering = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
+		#dim HuidigeToelevNr As %String = SamengesteldeLijst.GetAt(1).ToeleveringID
+		While SamengesteldeLijstIterator.HasNext() {
+			Set Mat = SamengesteldeLijstIterator.Next()
+			
+			If $$$Not(Mat.ToeleveringID = HuidigeToelevNr) {
+				Set Afdrukker = ##class(APPS.Halux.PPS.Document.impl.GekoppeldeIK.Matten).%New()
+				Do Afdrukker.VerwerkUitvoeringInfoLijst(SamengesteldeLijstPerToelevering,ActiviteitParameters)
+				Set SamengesteldeLijstPerToelevering = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
+				Do SamengesteldeLijstPerToelevering.Insert(Mat)
+				Set HuidigeToelevNr = Mat.ToeleveringID
+			} Else {
+				Do SamengesteldeLijstPerToelevering.Insert(Mat)
+			}
+		}
+		Set Afdrukker = ##class(APPS.Halux.PPS.Document.impl.GekoppeldeIK.Matten).%New()
+		Do Afdrukker.VerwerkUitvoeringInfoLijst(SamengesteldeLijstPerToelevering,ActiviteitParameters)
 		
 		Do UitvoeringLijstIterator.Reset()
 		#dim i = 1
@@ -1270,7 +1287,7 @@
 	else {
 		Do:UitvoeringInfoLijst.Count() Afdrukker.VerwerkUitvoeringInfoLijst(UitvoeringInfoLijst,ActiviteitParameters)	
 	}
-		
+	
 	Quit MatCnt
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml
===================================================================
diff -u -r72106 -r72153
--- APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml	(.../WerklijstItemsUitvoerder.cls.xml)	(revision 72106)
+++ APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml	(.../WerklijstItemsUitvoerder.cls.xml)	(revision 72153)
@@ -82,7 +82,7 @@
 				#dim Object = UitvoeringLijstIterator.Next()
 				#dim OvereenkomstigeMatGevonden As %Boolean = $$$False
 				#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(Object.BatchID)
-				If ( $IsObject(Object) && (..IsProductiegroepKast(Batch) || (..IsProductiegroepProbox(Batch))) && (Object.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")) {
+				If ( $IsObject(Object) && (..IsProductiegroepKastOfPallet(Batch) || (..IsProductiegroepProbox(Batch))) && (Object.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")) {
 					Set ObjectIsMat = $$$True
 					#dim Mat As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = Object
 					Do LijstAantallen.Insert(Mat.Aantal)
@@ -101,7 +101,22 @@
 				}
 			}	
 			If (SamengesteldeLijst.Count()>0 && ObjectIsMat) {
-				Set UitvoeringResultaat = Verwerker.VerwerkUitvoeringInfoLijst(SamengesteldeLijst,ActiviteitParameters)
+				Set SamengesteldeLijstIterator = ##class(TECH.ListIterator).%New(SamengesteldeLijst)
+				Set SamengesteldeLijstPerToelevering = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
+				#dim HuidigeToelevNr As %String = SamengesteldeLijst.GetAt(1).ToeleveringID
+				While SamengesteldeLijstIterator.HasNext() {
+					Set Mat = SamengesteldeLijstIterator.Next()
+					If $$$Not(Mat.ToeleveringID = HuidigeToelevNr) {
+						Set UitvoeringResultaat = Verwerker.VerwerkUitvoeringInfoLijst(SamengesteldeLijstPerToelevering,ActiviteitParameters)
+						Set SamengesteldeLijstPerToelevering = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
+						Do SamengesteldeLijstPerToelevering.Insert(Mat)
+						Set HuidigeToelevNr = Mat.ToeleveringID
+					} Else {
+						Do SamengesteldeLijstPerToelevering.Insert(Mat)
+					}
+				}
+				
+				Set UitvoeringResultaat = Verwerker.VerwerkUitvoeringInfoLijst(SamengesteldeLijstPerToelevering,ActiviteitParameters)
 				Do UitvoeringLijstIterator.Reset()
 				#dim i = 1
 				While UitvoeringLijstIterator.HasNext() {
@@ -245,11 +260,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsProductiegroepKast">
+<Method name="IsProductiegroepKastOfPallet">
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast())
+<Implementation><![CDATA[	Quit ((Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Pallet()) || (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()))
 ]]></Implementation>
 </Method>
 </Class>