Index: WSimpl/Halux/PPS/MatService.cls.xml
===================================================================
diff -u -r66532 -r66536
--- WSimpl/Halux/PPS/MatService.cls.xml	(.../MatService.cls.xml)	(revision 66532)
+++ WSimpl/Halux/PPS/MatService.cls.xml	(.../MatService.cls.xml)	(revision 66536)
@@ -88,27 +88,65 @@
 <Private>1</Private>
 <ReturnType>TECH.ListIterator</ReturnType>
 <Implementation><![CDATA[
-	Set WerklijstItemsUitvoerder = ##class(APPS.Halux.PPS.Activiteit.impl.WerklijstItemsUitvoerder).%New()
-	Set ActieUitvoerder = ##class(APPS.Halux.PPS.impl.AansturingActieVoorActiviteit).%New()
 	#dim Batch As APPS.Halux.common.Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(BatchId)
 	#dim Categorie As APPS.Halux.common.enu.Categorie = Batch.GeefCategorie()
+	Set ProductieSequentieRepository = ##class(APPS.Halux.common.impl.ProductieSequentieRepository).%New()
+	Set UitvoeringInfoLijstPerInformatieID = ##class(%ArrayOfObjects).%New()
 	
-	#dim ActiviteitGroepNaam As %String = ..ActiviteitGroepFactory(Categorie).Naam
-	#dim ActiviteitGroepId = ..GeefGroepActiviteitId(Categorie, ActiviteitGroepNaam)
+	If (Categorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) {	
+		Set DocsV1 = ##class(BL.PPS.TBX.DocsV1).%New()	
+		Set UitvoeringInfoLijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()		
+		Do DocsV1.Init(BatchId)
+		
+		#dim SequentieData As TECH.ResultSet = ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchId)
+		While (SequentieData.Next()) {
+			#dim InformatieId As %String = SequentieData.Data("ID")
+			#dim SequentieItem As DS.PPS.TBX.Queue = ProductieSequentieRepository.GeefSequentieItem(InformatieId)
+			
+			If (($$$Not(SequentieItem.Status = "PB") && DocsV1.MatChk(SequentieItem))) {
+				#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = DocsV1.MatOneUitvoeringInfo(SequentieItem)
+				
+				If $IsObject(UitvoeringInfo) {
+					Do ..VoegToeAanUitvoeringInfoLijstPerInformatieID(UitvoeringInfoLijstPerInformatieID, InformatieId, UitvoeringInfo)
+				}
+			}
+		}		
+	} Else {
+		Set WerklijstItemsUitvoerder = ##class(APPS.Halux.PPS.Activiteit.impl.WerklijstItemsUitvoerder).%New()
+		Set ActieUitvoerder = ##class(APPS.Halux.PPS.impl.AansturingActieVoorActiviteit).%New()
+		
+		#dim ActiviteitGroepNaam As %String = ..ActiviteitGroepFactory(Categorie).Naam
+		#dim ActiviteitGroepId = ..GeefGroepActiviteitId(Categorie, ActiviteitGroepNaam)
 	
-	Set GekoppeldeIKMattenActiviteitCode = ##class(APPS.Halux.PPS.Activiteit.impl.GekoppeldeIK.Matten).%New().#Code
-	#dim ActiviteitId = ..GeefActiviteitId(Categorie, ActiviteitGroepId, GekoppeldeIKMattenActiviteitCode)
+		Set GekoppeldeIKMattenActiviteitCode = ##class(APPS.Halux.PPS.Activiteit.impl.GekoppeldeIK.Matten).%New().#Code
+		#dim ActiviteitId = ..GeefActiviteitId(Categorie, ActiviteitGroepId, GekoppeldeIKMattenActiviteitCode)
 	
-	Set ActieUitvoerder.ActiviteitGroepID = ActiviteitGroepId
-	Set ActieUitvoerder.ActiviteitID = ActiviteitId
+		Set ActieUitvoerder.ActiviteitGroepID = ActiviteitGroepId
+		Set ActieUitvoerder.ActiviteitID = ActiviteitId
 	
-	#dim WerklijstItemIDLijst As %ListOfDataTypes = ActieUitvoerder.GeefWerklijstItemIDLijst(BatchId, $$$False)
-	#dim UitvoeringInfoLijstPerInformatieID As %ArrayOfObjects = WerklijstItemsUitvoerder.GeefUitvoeringInfoLijstPerInformatieID(WerklijstItemIDLijst)
+		#dim WerklijstItemIDLijst As %ListOfDataTypes = ActieUitvoerder.GeefWerklijstItemIDLijst(BatchId, $$$False)
+		Set UitvoeringInfoLijstPerInformatieID = WerklijstItemsUitvoerder.GeefUitvoeringInfoLijstPerInformatieID(WerklijstItemIDLijst)
 
+		
+	}
 	Quit ##class(TECH.ListIterator).%New(UitvoeringInfoLijstPerInformatieID)
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeAanUitvoeringInfoLijstPerInformatieID">
+<FormalSpec>UitvoeringInfoLijstArray:%ArrayOfObjects,InformatieID:%String,UitvoeringInfo:APPS.Halux.PPS.dto.UitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Lijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst 
+	if $$$Not(UitvoeringInfoLijstArray.IsDefined(InformatieID)) {
+		do UitvoeringInfoLijstArray.SetAt(##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New(),InformatieID)
+	} 	
+	set Lijst = UitvoeringInfoLijstArray.GetAt(InformatieID)
+	do Lijst.Insert(UitvoeringInfo)
+	quit
+]]></Implementation>
+</Method>
+
 <Method name="ActiviteitGroepFactory">
 <FormalSpec>Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
 <Private>1</Private>
@@ -123,6 +161,8 @@
 		Set ActiviteitGroep = ##class(APPS.Halux.PPS.Activiteit.impl.MVX.Groep.MVXVoormontage).%New()
 	} ElseIf (Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
 		Set ActiviteitGroep = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Groep.TAORVoormontage).%New()
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.NotSupportedException).%New("MatService is niet geïmplementeerd voor Categorie '" _ Categorie _ "'"))
 	}
 	
 	Quit ActiviteitGroep