Index: WSimpl/Halux/PPS/MatService/GeefAfmetingenHelper.cls.xml
===================================================================
diff -u -r66541 -r66589
--- WSimpl/Halux/PPS/MatService/GeefAfmetingenHelper.cls.xml	(.../GeefAfmetingenHelper.cls.xml)	(revision 66541)
+++ WSimpl/Halux/PPS/MatService/GeefAfmetingenHelper.cls.xml	(.../GeefAfmetingenHelper.cls.xml)	(revision 66589)
@@ -40,49 +40,69 @@
 </Method>
 
 <Method name="GeefUitvoeringIterator">
-<FormalSpec>BatchId:%Integer,Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
+<FormalSpec>BatchId:%Integer,Categorie:APPS.Halux.common.enu.Categorie=""</FormalSpec>
 <ReturnType>TECH.ListIterator</ReturnType>
 <Implementation><![CDATA[
 	Set UitvoeringInfoLijstPerInformatieID = ##class(%ArrayOfObjects).%New()
-	
-	If (Categorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) {	
-		Do ..DocsV1.Init(BatchId)
-		Set UitvoeringInfoLijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()		
+
+	If (..IsCategorieOndersteund(Categorie)) {
+		If (Categorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) {	
+			Do ..DocsV1.Init(BatchId)
+			Set UitvoeringInfoLijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()		
 		
-		#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)
+			#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 (($$$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)
+					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 = ..GeefActiviteitGroep(Categorie).Naam
-		#dim ActiviteitGroepId = ..GeefGroepActiviteitId(Categorie, ActiviteitGroepNaam)
+			}		
+		} Else {
+			Set WerklijstItemsUitvoerder = ##class(APPS.Halux.PPS.Activiteit.impl.WerklijstItemsUitvoerder).%New()
+			Set ActieUitvoerder = ##class(APPS.Halux.PPS.impl.AansturingActieVoorActiviteit).%New()
 	
-		Set GekoppeldeIKMattenActiviteitCode = ##class(APPS.Halux.PPS.Activiteit.impl.GekoppeldeIK.Matten).%New().#Code
-		#dim ActiviteitId = ..GeefActiviteitId(Categorie, ActiviteitGroepId, GekoppeldeIKMattenActiviteitCode)
+			#dim ActiviteitGroepNaam As %String = ..GeefActiviteitGroep(Categorie).Naam
+			#dim ActiviteitGroepId = ..GeefGroepActiviteitId(Categorie, ActiviteitGroepNaam)
 	
-		Set ActieUitvoerder.ActiviteitGroepID = ActiviteitGroepId
-		Set ActieUitvoerder.ActiviteitID = ActiviteitId
+			Set GekoppeldeIKMattenActiviteitCode = ##class(APPS.Halux.PPS.Activiteit.impl.GekoppeldeIK.Matten).%New().#Code
+			#dim ActiviteitId = ..GeefActiviteitId(Categorie, ActiviteitGroepId, GekoppeldeIKMattenActiviteitCode)
 	
-		#dim WerklijstItemIDLijst As %ListOfDataTypes = ActieUitvoerder.GeefWerklijstItemIDLijst(BatchId, $$$False)
-		Set UitvoeringInfoLijstPerInformatieID = WerklijstItemsUitvoerder.GeefUitvoeringInfoLijstPerInformatieID(WerklijstItemIDLijst)
-	}
+			Set ActieUitvoerder.ActiviteitGroepID = ActiviteitGroepId
+			Set ActieUitvoerder.ActiviteitID = ActiviteitId
 	
+			#dim WerklijstItemIDLijst As %ListOfDataTypes = ActieUitvoerder.GeefWerklijstItemIDLijst(BatchId, $$$False)
+			Set UitvoeringInfoLijstPerInformatieID = WerklijstItemsUitvoerder.GeefUitvoeringInfoLijstPerInformatieID(WerklijstItemIDLijst)
+		}
+	} Else {
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("MatService is niet geïmplementeerd voor Categorie '" _ Categorie _ "'.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+		
 	Quit ##class(TECH.ListIterator).%New(UitvoeringInfoLijstPerInformatieID)
 ]]></Implementation>
 </Method>
 
+<Method name="IsCategorieOndersteund">
+<FormalSpec>Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsOndersteund As %Boolean = $$$False
+	
+	If ($$$Not(Categorie = "") && ((Categorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) || (Categorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) || (Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) || (Categorie = ##class(APPS.Halux.common.enu.Categorie).Merivobox()))) {
+		Set IsOndersteund = $$$True
+	}
+	
+	Quit IsOndersteund
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeAanUitvoeringInfoLijstPerInformatieID">
 <FormalSpec>UitvoeringInfoLijstArray:%ArrayOfObjects,InformatieID:%String,UitvoeringInfo:APPS.Halux.PPS.dto.UitvoeringInfo</FormalSpec>
 <Private>1</Private>
@@ -113,7 +133,8 @@
 	} 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 _ "'"))
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("MatService is niet geïmplementeerd voor Categorie '" _ Categorie _ "'.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 	
 	Quit ActiviteitGroep