Index: WSimpl/Halux/PPS/MatService/GeefAfmetingenHelper.cls.xml
===================================================================
diff -u -r66538 -r66541
--- WSimpl/Halux/PPS/MatService/GeefAfmetingenHelper.cls.xml	(.../GeefAfmetingenHelper.cls.xml)	(revision 66538)
+++ WSimpl/Halux/PPS/MatService/GeefAfmetingenHelper.cls.xml	(.../GeefAfmetingenHelper.cls.xml)	(revision 66541)
@@ -3,26 +3,59 @@
 <Class name="WSimpl.Halux.PPS.MatService.GeefAfmetingenHelper">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="ProductieSequentieRepository">
+<Type>APPS.Halux.common.ProductieSequentieRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ActiviteitGroepRepository">
+<Type>APPS.Halux.PPS.Activiteit.ActiviteitGroepRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ActivititeitRepository">
+<Type>APPS.Halux.PPS.Activiteit.impl.ActiviteitRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DocsV1">
+<Type>BL.PPS.TBX.DocsV1</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductieSequentieRepository:APPS.Halux.common.ProductieSequentieRepository="",ActiviteitGroepRepository:APPS.Halux.PPS.Activiteit.ActiviteitGroepRepository="",ActivititeitRepository:APPS.Halux.PPS.Activiteit.impl.ActiviteitRepository="",DocsV1:BL.PPS.TBX.DocsV1=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductieSequentieRepository = $$$Inject(ProductieSequentieRepository, ##class(APPS.Halux.common.impl.ProductieSequentieRepository).%New())
+	Set ..ActiviteitGroepRepository = $$$Inject(ActiviteitGroepRepository, ##class(APPS.Halux.PPS.Activiteit.ActiviteitGroepRepository).%New())
+	Set ..ActivititeitRepository = $$$Inject(ActivititeitRepository, ##class(APPS.Halux.PPS.Activiteit.impl.ActiviteitRepository).%New())
+	Set ..DocsV1 = $$$Inject(DocsV1, ##class(BL.PPS.TBX.DocsV1).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <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)
-		
+		Do ..DocsV1.Init(BatchId)
 		Set UitvoeringInfoLijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()		
 		
-		#dim SequentieData As TECH.ResultSet = ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(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)
+			#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)
@@ -33,7 +66,7 @@
 		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 ActiviteitGroepNaam As %String = ..GeefActiviteitGroep(Categorie).Naam
 		#dim ActiviteitGroepId = ..GeefGroepActiviteitId(Categorie, ActiviteitGroepNaam)
 	
 		Set GekoppeldeIKMattenActiviteitCode = ##class(APPS.Halux.PPS.Activiteit.impl.GekoppeldeIK.Matten).%New().#Code
@@ -45,6 +78,7 @@
 		#dim WerklijstItemIDLijst As %ListOfDataTypes = ActieUitvoerder.GeefWerklijstItemIDLijst(BatchId, $$$False)
 		Set UitvoeringInfoLijstPerInformatieID = WerklijstItemsUitvoerder.GeefUitvoeringInfoLijstPerInformatieID(WerklijstItemIDLijst)
 	}
+	
 	Quit ##class(TECH.ListIterator).%New(UitvoeringInfoLijstPerInformatieID)
 ]]></Implementation>
 </Method>
@@ -54,16 +88,18 @@
 <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)
+	
+	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
+	Set Lijst = UitvoeringInfoLijstArray.GetAt(InformatieID)
+	Do Lijst.Insert(UitvoeringInfo)
+	
+	Quit
 ]]></Implementation>
 </Method>
 
-<Method name="ActiviteitGroepFactory">
+<Method name="GeefActiviteitGroep">
 <FormalSpec>Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Activiteit.ActiviteitGroep</ReturnType>
@@ -89,8 +125,7 @@
 <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)
+	#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))
@@ -109,9 +144,7 @@
 <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><![CDATA[	Quit ..ActivititeitRepository.GeefActiviteitIDVoorCode(ActiviteitCode, GroepActiviteitId, Categorie)
 ]]></Implementation>
 </Method>
 </Class>