Index: APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml
===================================================================
diff -u -r59498 -r59931
--- APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml	(.../WerklijstItemsUitvoerder.cls.xml)	(revision 59498)
+++ APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml	(.../WerklijstItemsUitvoerder.cls.xml)	(revision 59931)
@@ -71,24 +71,21 @@
 				#dim Mat As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = UitvoeringLijstIterator.Next()		
 				#dim OvereenkomstigeMatGevonden As %Boolean = $$$False
 				#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(Mat.BatchID)
-				if ( $IsObject(Mat) && ((Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) || (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Probox())) && (Mat.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")   ){
+				If ( $IsObject(Mat) && (..IsProductiegroepKast(Batch) || (..IsProductiegroepProbox(Batch))) && (Mat.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")   ){
 					while ((SamengesteldeLijstIterator.HasNext()) && ($$$Not(OvereenkomstigeMatGevonden))){
 						#dim Mat2 As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = SamengesteldeLijstIterator.Next()
 						If ((Mat.ToeDos = Mat2.ToeDos) &&(Mat.Diepte = Mat2.Diepte) && (Mat.Breedte = Mat2.Breedte) && (Mat.MateriaalId = Mat2.MateriaalId) && (Mat.KleurId = Mat2.KleurId) && (Mat.BewerkingBreedte = Mat2.BewerkingBreedte) && (Mat.BewerkingDiepte = Mat2.BewerkingDiepte)){
 							Set OvereenkomstigeMatGevonden = $$$True
 							Set Mat2.Aantal= Mat2.Aantal+Mat.Aantal
 						}
 					}		
-					if (SamengesteldeLijst.Count()=0){
+					If (SamengesteldeLijst.Count()=0 || $$$Not(OvereenkomstigeMatGevonden)){
 						Do SamengesteldeLijst.Insert(Mat)
-					}		
-					elseif $$$Not(OvereenkomstigeMatGevonden){
-						Do SamengesteldeLijst.Insert(Mat)
 					}
 					Do SamengesteldeLijstIterator.Reset()
 				}
 			}	
-			if ((SamengesteldeLijst.Count()>0) && ((Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) || (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Probox()))){
+			If ((SamengesteldeLijst.Count()>0) && ((..IsProductiegroepKast(Batch)) || (..IsProductiegroepProbox(Batch)))){
 				Set UitvoeringResultaat = Verwerker.VerwerkUitvoeringInfoLijst(SamengesteldeLijst,ActiviteitParameters)
 			}
 			else {
@@ -138,6 +135,22 @@
 	quit
 ]]></Implementation>
 </Method>
+
+<Method name="IsProductiegroepProbox">
+<FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Probox())
+]]></Implementation>
+</Method>
+
+<Method name="IsProductiegroepKast">
+<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>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Activiteit/impl/GekoppeldeIK/Matten/WerklijstItemsMaker.cls.xml
===================================================================
diff -u -r59490 -r59931
--- APPS/Halux/PPS/Activiteit/impl/GekoppeldeIK/Matten/WerklijstItemsMaker.cls.xml	(.../WerklijstItemsMaker.cls.xml)	(revision 59490)
+++ APPS/Halux/PPS/Activiteit/impl/GekoppeldeIK/Matten/WerklijstItemsMaker.cls.xml	(.../WerklijstItemsMaker.cls.xml)	(revision 59931)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BatchService">
+<Type>APPS.Halux.common.BatchService</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="InformatieID">
 <Type>%String</Type>
 <Private>1</Private>
@@ -29,13 +34,14 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Activiteit:APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteit,InformatieID:%String</FormalSpec>
+<FormalSpec>Activiteit:APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteit,InformatieID:%String,BatchService:APPS.Halux.common.BatchService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..Activiteit = Activiteit
+	Set ..BatchService = $$$Inject(BatchService, ##class(APPS.Halux.common.impl.BatchService).%New())
 	Set ..InformatieID = InformatieID
 	Set ..ProductieSequentieWerklijstItemRepository = ##class(APPS.Halux.PPS.Activiteit.impl.ProductieSequentieWerklijstItemRepository).%New()
 	
@@ -216,15 +222,33 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(Item.BatchID)
-	if ($$$Not(Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk()) && ($$$Not(Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).FlatpackV1()))){
-		Quit $Extract(Item.ToeleveringID,3,6)				
+	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(Item.BatchID)
+	#dim ToeDos As %String = ""
+	If ($$$Not(..IsProductiegroepStuk(Batch)) && ($$$Not(..IsProductiegroepFlatpackV1(Batch)))){
+		Set ToeDos = $Extract(Item.ToeleveringID,3,6)				
 	}
 	else{
-		Quit $Extract(Item.ToeleveringID,4,6)_":"_Product.GeefDossierCode()		
+		Set ToeDos = $Extract(Item.ToeleveringID,4,6)_":"_Product.GeefDossierCode()		
 	}
+	Quit ToeDos
 ]]></Implementation>
 </Method>
+
+<Method name="IsProductiegroepStuk">
+<FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk())
+]]></Implementation>
+</Method>
+
+<Method name="IsProductiegroepFlatpackV1">
+<FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).FlatpackV1())
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r59790 -r59931
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 59790)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 59931)
@@ -1179,21 +1179,18 @@
 	while UitvoeringLijstIterator.HasNext() {		
 		#dim Mat As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo= UitvoeringLijstIterator.Next()			
 		#dim OvereenkomstigeMatGevonden As %Boolean = $$$False
-		#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(Mat.BatchID)
+		#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(Mat.BatchID)
 		
-		if ( $IsObject(Mat) && ((Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) || (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Probox())) && (Mat.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")   ){
+		If ( $IsObject(Mat) && ((..IsProductiegroepKast(Batch)) || (..IsProductiegroepProbox(Batch))) && (Mat.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")   ){
 			while (SamengesteldeLijstIterator.HasNext() & $$$Not(OvereenkomstigeMatGevonden)){			
 				#dim Mat2 As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo= SamengesteldeLijstIterator.Next()
 				If ((Mat.ToeDos = Mat2.ToeDos) &&(Mat.Diepte = Mat2.Diepte) && (Mat.Breedte = Mat2.Breedte) && (Mat.MateriaalId = Mat2.MateriaalId) && (Mat.KleurId = Mat2.KleurId) && (Mat.BewerkingBreedte = Mat2.BewerkingBreedte) && (Mat.BewerkingDiepte = Mat2.BewerkingDiepte)){
 					Set OvereenkomstigeMatGevonden = $$$True
 					Set Mat2.Aantal= Mat2.Aantal+Mat.Aantal					
 					}
 			}		
-			if (SamengesteldeLijst.Count()=0){
+			If (SamengesteldeLijst.Count()=0 || $$$Not(OvereenkomstigeMatGevonden)){
 				Do SamengesteldeLijst.Insert(Mat)
-			}		
-			elseif $$$Not(OvereenkomstigeMatGevonden){
-				Do SamengesteldeLijst.Insert(Mat)
 			}
 			Do SamengesteldeLijstIterator.Reset()
 		}
@@ -1202,7 +1199,7 @@
 	set ActiviteitParameters.Printer = ..Printer	
 	
 	set Afdrukker = ##class(APPS.Halux.PPS.Document.impl.GekoppeldeIK.Matten).%New()
-	if ( (SamengesteldeLijst.Count()>0) && ((Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) || (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Probox()))){
+	If ((SamengesteldeLijst.Count()>0) && (..IsProductiegroepKast(Batch) || (..IsProductiegroepProbox(Batch)))){
 		Do Afdrukker.VerwerkUitvoeringInfoLijst(SamengesteldeLijst,ActiviteitParameters)
 	}
 	else {
@@ -1255,12 +1252,12 @@
 	set MattenUitvoeringInfo.BatchID = ..BatchID
 	set MattenUitvoeringInfo.ProductID = TBXQueue.ProductGetObjectId()
 	set MattenUitvoeringInfo.ToeleveringID = TBXQueue.TOENr
-	#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(..BatchID)
-	if ($$$Not(Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk()) && ($$$Not(Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).FlatpackV1()))){
-		set MattenUitvoeringInfo.ToeDos = $extract(TBXQueue.TOENr,3,6)
+	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(..BatchID)
+	If ($$$Not(..IsProductiegroepStuk(Batch)) && ($$$Not(..IsProductiegroepFlatpackV1(Batch)))){
+		set MattenUitvoeringInfo.ToeDos = $Extract(TBXQueue.TOENr,3,6)
 	}
 	else {
-		set MattenUitvoeringInfo.ToeDos = $extract(TBXQueue.TOENr,4,6)_":"_TBXQueue.DOSNr
+		set MattenUitvoeringInfo.ToeDos = $Extract(TBXQueue.TOENr,4,6)_":"_TBXQueue.DOSNr
 	}
 	set MattenUitvoeringInfo.Aantal = TBXQueue.TotaalAantal
 	
@@ -1275,6 +1272,38 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsProductiegroepProbox">
+<FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Probox())
+]]></Implementation>
+</Method>
+
+<Method name="IsProductiegroepKast">
+<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>
+</Method>
+
+<Method name="IsProductiegroepStuk">
+<FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk())
+]]></Implementation>
+</Method>
+
+<Method name="IsProductiegroepFlatpackV1">
+<FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).FlatpackV1())
+]]></Implementation>
+</Method>
+
 <Method name="MatOne">
 <FormalSpec>Basis:%String</FormalSpec>
 <Implementation><![CDATA[