Index: WSimpl/Halux/PPS/MatService.cls.xml
===================================================================
diff -u -r66537 -r66538
--- WSimpl/Halux/PPS/MatService.cls.xml	(.../MatService.cls.xml)	(revision 66537)
+++ WSimpl/Halux/PPS/MatService.cls.xml	(.../MatService.cls.xml)	(revision 66538)
@@ -65,7 +65,8 @@
 <Private>1</Private>
 <ReturnType>TECH.ListIterator</ReturnType>
 <Implementation><![CDATA[
-	#dim UitvoeringLijstIterator As TECH.ListIterator = ..GeefUitvoeringIterator(BatchId, Categorie)
+	Set GeefMatAfmetingenHelper = ##class(WSimpl.Halux.PPS.MatService.GeefAfmetingenHelper).%New()
+	#dim UitvoeringLijstIterator As TECH.ListIterator = GeefMatAfmetingenHelper.GeefUitvoeringIterator(BatchId, Categorie)
 	#dim MatAfmetingenLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
 	
 	While (UitvoeringLijstIterator.HasNext()) {
@@ -86,120 +87,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefUitvoeringIterator">
-<FormalSpec>BatchId:%Integer,Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.ListIterator</ReturnType>
-<Implementation><![CDATA[
-	Set ProductieSequentieRepository = ##class(APPS.Halux.common.impl.ProductieSequentieRepository).%New()
-	Set UitvoeringInfoLijstPerInformatieID = ##class(%ArrayOfObjects).%New()
-	
-	If (Categorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) {	
-		Set DocsV1 = ##class(BL.PPS.TBX.DocsV1).%New()	
-		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)
-			
-			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 ActieUitvoerder.ActiviteitGroepID = ActiviteitGroepId
-		Set ActieUitvoerder.ActiviteitID = ActiviteitId
-	
-		#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>
-<ReturnType>APPS.Halux.PPS.Activiteit.ActiviteitGroep</ReturnType>
-<Implementation><![CDATA[
-	// Nog uitbreiden en verplaatsen naar aparte klasse
-	#dim ActiviteitGroep As APPS.Halux.PPS.Activiteit.ActiviteitGroep = ""
-	
-	If (Categorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) {
-		Set ActiviteitGroep =  ##class(APPS.Halux.PPS.Activiteit.impl.LBX.Groep.LBXVoormontage).%New()
-	} ElseIf (Categorie = ##class(APPS.Halux.common.enu.Categorie).Merivobox()) {
-		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
-]]></Implementation>
-</Method>
-
-<Method name="GeefGroepActiviteitId">
-<FormalSpec>Categorie:APPS.Halux.common.enu.Categorie,ActiviteitGroepNaam:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	Set ActiviteitGroepRepository = ##class(APPS.Halux.PPS.Activiteit.ActiviteitGroepRepository).%New()
-	#dim GroepActiviteitIterator As TECH.Iterator = ActiviteitGroepRepository.ZoekViaCategorieEnNaam(Categorie, ActiviteitGroepNaam)
-
-	If ($$$Not(GroepActiviteitIterator.HasNext())) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen activiteit voor ActiviteitCode " _ ActiviteitGroepNaam_", Categorie:"_Categorie))
-	}
-	
-	#dim GroepActiviteit As APPS.Halux.PPS.Activiteit.ActiviteitGroep = GroepActiviteitIterator.Next()
-
-	If (GroepActiviteitIterator.HasNext()) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("ActiviteitGroep " _ ActiviteitGroepNaam _ " niet eenduidig. Categorie:"_Categorie))
-	}	
-		
-	Quit GroepActiviteit.GeefID()
-]]></Implementation>
-</Method>
-
-<Method name="GeefActiviteitId">
-<FormalSpec>Categorie:APPS.Halux.common.enu.Categorie,GroepActiviteitId:%Integer,ActiviteitCode:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set ActivititeitRepository = ##class(APPS.Halux.PPS.Activiteit.impl.ActiviteitRepository).%New()
-	Quit ActivititeitRepository.GeefActiviteitIDVoorCode(ActiviteitCode, GroepActiviteitId, Categorie)
-]]></Implementation>
-</Method>
-
 <Method name="IsMat">
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.UitvoeringInfo</FormalSpec>
 <Private>1</Private>
Index: WSimpl/Halux/PPS/MatService/GeefAfmetingenHelper.cls.xml
===================================================================
diff -u
--- WSimpl/Halux/PPS/MatService/GeefAfmetingenHelper.cls.xml	(revision 0)
+++ WSimpl/Halux/PPS/MatService/GeefAfmetingenHelper.cls.xml	(revision 66538)
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Halux.PPS.MatService.GeefAfmetingenHelper">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefUitvoeringIterator">
+<FormalSpec>BatchId:%Integer,Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[
+	Set ProductieSequentieRepository = ##class(APPS.Halux.common.impl.ProductieSequentieRepository).%New()
+	Set UitvoeringInfoLijstPerInformatieID = ##class(%ArrayOfObjects).%New()
+	
+	If (Categorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) {	
+		Set DocsV1 = ##class(BL.PPS.TBX.DocsV1).%New()	
+		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)
+			
+			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 ActieUitvoerder.ActiviteitGroepID = ActiviteitGroepId
+		Set ActieUitvoerder.ActiviteitID = ActiviteitId
+	
+		#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>
+<ReturnType>APPS.Halux.PPS.Activiteit.ActiviteitGroep</ReturnType>
+<Implementation><![CDATA[
+	#dim ActiviteitGroep As APPS.Halux.PPS.Activiteit.ActiviteitGroep = ""
+	
+	If (Categorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) {
+		Set ActiviteitGroep =  ##class(APPS.Halux.PPS.Activiteit.impl.LBX.Groep.LBXVoormontage).%New()
+	} ElseIf (Categorie = ##class(APPS.Halux.common.enu.Categorie).Merivobox()) {
+		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
+]]></Implementation>
+</Method>
+
+<Method name="GeefGroepActiviteitId">
+<FormalSpec>Categorie:APPS.Halux.common.enu.Categorie,ActiviteitGroepNaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set ActiviteitGroepRepository = ##class(APPS.Halux.PPS.Activiteit.ActiviteitGroepRepository).%New()
+	#dim GroepActiviteitIterator As TECH.Iterator = ActiviteitGroepRepository.ZoekViaCategorieEnNaam(Categorie, ActiviteitGroepNaam)
+
+	If ($$$Not(GroepActiviteitIterator.HasNext())) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen activiteit voor ActiviteitCode " _ ActiviteitGroepNaam_", Categorie:"_Categorie))
+	}
+	
+	#dim GroepActiviteit As APPS.Halux.PPS.Activiteit.ActiviteitGroep = GroepActiviteitIterator.Next()
+
+	If (GroepActiviteitIterator.HasNext()) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("ActiviteitGroep " _ ActiviteitGroepNaam _ " niet eenduidig. Categorie:"_Categorie))
+	}	
+		
+	Quit GroepActiviteit.GeefID()
+]]></Implementation>
+</Method>
+
+<Method name="GeefActiviteitId">
+<FormalSpec>Categorie:APPS.Halux.common.enu.Categorie,GroepActiviteitId:%Integer,ActiviteitCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ActivititeitRepository = ##class(APPS.Halux.PPS.Activiteit.impl.ActiviteitRepository).%New()
+	Quit ActivititeitRepository.GeefActiviteitIDVoorCode(ActiviteitCode, GroepActiviteitId, Categorie)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>