Index: APPS/Halux/common/impl/ProductieSequentieGroepering.cls.xml
===================================================================
diff -u -r29059 -r30075
--- APPS/Halux/common/impl/ProductieSequentieGroepering.cls.xml	(.../ProductieSequentieGroepering.cls.xml)	(revision 29059)
+++ APPS/Halux/common/impl/ProductieSequentieGroepering.cls.xml	(.../ProductieSequentieGroepering.cls.xml)	(revision 30075)
@@ -11,6 +11,18 @@
 <Type>%ArrayOfObjects</Type>
 </Property>
 
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Indices = ##class(%ListOfDataTypes).%New()
+	set ..Data = ##class(%ArrayOfObjects).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="IsValid">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
@@ -55,16 +67,16 @@
 ]]></Implementation>
 </Method>
 
-<Method name="%OnNew">
-<FormalSpec>initvalue:%CacheString</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
+<Method name="VoegToe">
+<FormalSpec>GroeperingID:%String,Data:%CacheString</FormalSpec>
 <Implementation><![CDATA[
-	set ..Indices = ##class(%ListOfDataTypes).%New()
-	set ..Data = ##class(%ArrayOfObjects).%New()
-	Quit $$$OK
+	if '..Indices.Find(GroeperingID) {
+		do ..Indices.Insert(GroeperingID)
+	}
+	if '..Data.IsDefined(GroeperingID) {
+		do ..Data.SetAt(##class(%ListOfDataTypes).%New(),GroeperingID)	
+	}
+	do ..Data.GetAt(GroeperingID).Insert(Data)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/common/impl/ProductieSequentieGroepeerder.cls.xml
===================================================================
diff -u -r29059 -r30075
--- APPS/Halux/common/impl/ProductieSequentieGroepeerder.cls.xml	(.../ProductieSequentieGroepeerder.cls.xml)	(revision 29059)
+++ APPS/Halux/common/impl/ProductieSequentieGroepeerder.cls.xml	(.../ProductieSequentieGroepeerder.cls.xml)	(revision 30075)
@@ -19,7 +19,7 @@
 	#dim GroeperingID As %String = 1 
 	while ResultSet.Next() {
 		#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfo(ResultSet)
-		do ..VoegToeAanGroepering(GroeperingID ,SequentieInfo)
+		do ..Groepering.VoegToe(GroeperingID ,SequentieInfo)
 	}
 	quit ..Groepering
 ]]></Implementation>
@@ -42,14 +42,14 @@
 		Set SequentieInfo = ..GeefSequentieInfo(ResultSet)
 		set SequentieInfo.DeelAantal = ""
 		if ProductID '= SequentieInfo.ProductID {
-			Do:(ProductID'="") ..VoegToeAanGroepering(1,TotaalSequentieInfo)
+			Do:(ProductID'="") ..Groepering.VoegToe(1,TotaalSequentieInfo)
 			Set ProductID = SequentieInfo.ProductID
 			Set TotaalSequentieInfo = SequentieInfo
 		} Else {
 			Set TotaalSequentieInfo.TotaalAantal = TotaalSequentieInfo.TotaalAantal + SequentieInfo.TotaalAantal
 		}
 	}
-	Do ..VoegToeAanGroepering(1,TotaalSequentieInfo)
+	Do ..Groepering.VoegToe(1,TotaalSequentieInfo)
 	quit ..Groepering
 ]]></Implementation>
 </Method>
@@ -77,7 +77,7 @@
 				If ( FrequentieTabel.GeefFrequentieVanItem(FrequentieItemID) <= ToeleveringLijn.GeefAantal()) {					
 					Do FrequentieTabel.Verhoog(FrequentieItemID)
 					#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfo(ResultSet)
-					Do ..VoegToeAanGroepering(ToeleveringID,SequentieInfo)
+					Do ..Groepering.VoegToe(ToeleveringID,SequentieInfo)
 				}
 			} Else {
 				do ##class(vhLib.Logger).%New("APPS.Halux.AansturingService").Warning("VoerUitAansturingActieVoorBatch_Resultaat","Batch '" _ BatchID _ "' bevat een niet ingevulde toeleveringlijnID!")
@@ -106,7 +106,7 @@
 		continue:(DeelAantal'=1)
 		#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfo(ResultSet)
 		set SequentieInfo.DeelAantal = ""
-		Do ..VoegToeAanGroepering(ToeleveringID,SequentieInfo)
+		Do ..Groepering.VoegToe(ToeleveringID,SequentieInfo)
 	}
 	quit ..Groepering
 ]]></Implementation>
@@ -135,14 +135,14 @@
 		If ( ToeleveringID = SequentieInfo.ToeleveringID ) && ( ProductID = SequentieInfo.ProductID) {
 			Set TotaalSequentieInfo.TotaalAantal = TotaalSequentieInfo.TotaalAantal + SequentieInfo.TotaalAantal
 		} Else  {
-			Do:ToeleveringID'="" ..VoegToeAanGroepering(GroeperingID,TotaalSequentieInfo)
+			Do:ToeleveringID'="" ..Groepering.VoegToe(GroeperingID,TotaalSequentieInfo)
 			Set TotaalSequentieInfo = SequentieInfo
 			Set:(ToeleveringID'=SequentieInfo.ToeleveringID) GroeperingID = GroeperingID + 1
 			Set ProductID = SequentieInfo.ProductID
 			Set ToeleveringID = SequentieInfo.ToeleveringID
 		}
 	}
-	Do ..VoegToeAanGroepering(GroeperingID,TotaalSequentieInfo)
+	Do ..Groepering.VoegToe(GroeperingID,TotaalSequentieInfo)
 	quit ..Groepering
 ]]></Implementation>
 </Method>
@@ -178,7 +178,7 @@
 	While ProductVolgordeIt.HasNext() {
 		Set ProductID = ProductVolgordeIt.Next()
 		Set SequentieInfo = SequentieInfoArray.GetAt(ProductID)
-		Do ..VoegToeAanGroepering(1,SequentieInfo)
+		Do ..Groepering.VoegToe(1,SequentieInfo)
 	}
 	quit ..Groepering
 ]]></Implementation>
@@ -230,20 +230,6 @@
 	Quit CorrecteToeleveringLijnID
 ]]></Implementation>
 </Method>
-
-<Method name="VoegToeAanGroepering">
-<FormalSpec>GroeperingID:%String,SequentieInfo:APPS.Halux.common.dto.ProductieSequentie</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	if '..Groepering.Indices.Find(GroeperingID) {
-		do ..Groepering.Indices.Insert(GroeperingID)
-	}
-	if '..Groepering.Data.IsDefined(GroeperingID) {
-		do ..Groepering.Data.SetAt(##class(APPS.Halux.common.dto.ProductieSequentieLijst).%New(),GroeperingID)	
-	}
-	do ..Groepering.Data.GetAt(GroeperingID).Insert(SequentieInfo)
-]]></Implementation>
-</Method>
 </Class>