Index: TECH/ListUtils/Groepeerder.cls.xml
===================================================================
diff -u
--- TECH/ListUtils/Groepeerder.cls.xml	(revision 0)
+++ TECH/ListUtils/Groepeerder.cls.xml	(revision 1451)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.ListUtils.Groepeerder">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="GroepeerLijst">
+<Abstract>1</Abstract>
+<FormalSpec>Lijst:%ListOfObjects,Groepering:TECH.ListUtils.Groepering</FormalSpec>
+<ReturnType>%ArrayOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="%ListOfObjects"</ReturnTypeParams>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/ListUtils/impl/Groepeerder.cls.xml
===================================================================
diff -u
--- TECH/ListUtils/impl/Groepeerder.cls.xml	(revision 0)
+++ TECH/ListUtils/impl/Groepeerder.cls.xml	(revision 1451)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.ListUtils.impl.Groepeerder">
+<Super>TECH.RegisteredObject,TECH.ListUtils.Groepeerder</Super>
+
+<Method name="GroepeerLijst">
+<FormalSpec>Lijst:%ListOfObjects,Groepering:TECH.ListUtils.Groepering</FormalSpec>
+<ReturnType>%ArrayOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="%ListOfObjects"</ReturnTypeParams>
+<Implementation><![CDATA[
+	
+	#dim Array As Array Of %ListOfObjects = ##class(%ArrayOfObjects).%New() 
+	#dim LijstIt As TECH.Iterator = ##class(TECH.ListIterator).%New(Lijst)
+	while LijstIt.HasNext() {
+		#dim Item As %Library.Base = LijstIt.Next()
+		if (Groepering.IsNieuweGroeperingNodig(LijstIt)) { 
+			set NieuweLijst = ##class(%ListOfObjects).%New()
+			do Array.SetAt(NieuweLijst,Groepering.BepaalVolgendID())
+		}
+		do NieuweLijst.Insert(Item)
+	}
+	quit Array
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ListUtils/Groepeerder/GroepeerLijst/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ListUtils/Groepeerder/GroepeerLijst/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ListUtils/Groepeerder/GroepeerLijst/Test.cls.xml	(revision 1451)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ListUtils.Groepeerder.GroepeerLijst.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="GroeperingsAantal">
+<Default>16</Default>
+</Parameter>
+
+<Method name="Test: ProductieSequentieItemList met 0 waarden">
+<Implementation><![CDATA[
+		
+	do ..AssertVerwachteGroepering(0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductieSequentieItemList met 1 waarde">
+<Implementation><![CDATA[
+		
+	do ..AssertVerwachteGroepering(1,1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductieSequentieItemList met 2 waarden">
+<Implementation><![CDATA[	do ..AssertVerwachteGroepering(2,2)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductieSequentieItemList met evenveel items als Groeperingsaantal">
+<Implementation><![CDATA[	do ..AssertVerwachteGroepering(16,..#GroeperingsAantal)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductieSequentieItemList met 1 item meer al groeperingsaantal">
+<Implementation><![CDATA[	do ..AssertVerwachteGroepering(17,..#GroeperingsAantal,1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductieSequentieItemList met 2 items meer als groeperingsaantal">
+<Implementation><![CDATA[	do ..AssertVerwachteGroepering(18,..#GroeperingsAantal,2)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductieSequentieItemList met 1 item meer als 2 keer het groeperingsaantal">
+<Implementation><![CDATA[	do ..AssertVerwachteGroepering(33,..#GroeperingsAantal,..#GroeperingsAantal,1)
+]]></Implementation>
+</Method>
+
+<Method name="AssertVerwachteGroepering">
+<FormalSpec>AantalItemsInLijst:%Integer,AantalItemsPerGroepering...:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Groepeerder As TECH.ListUtils.impl.Groepeerder = ##class(TECH.ListUtils.impl.Groepeerder).%New()
+	#dim InputLijst As %AbstractList = ..MaakLijst(AantalItemsInLijst)
+	#dim GroepeerPerAantal As TECH.ListUtils.impl.GroepeerPerAantal = ##class(TECH.ListUtils.impl.GroepeerPerAantal).%New(..#GroeperingsAantal)
+	#dim Array As %ArrayOfObjects = Groepeerder.GroepeerLijst(InputLijst,GroepeerPerAantal)
+		
+	if $$$AssertEquals(Array.Count(),+$get(AantalItemsPerGroepering)) {
+		set ArrayIterator = ##class(TECH.ListIterator).%New(Array)
+		#dim AantalItemsPerGroeperingIterator = ##class(TECH.ArrayOneDimIterator).%New(.AantalItemsPerGroepering)
+		while AantalItemsPerGroeperingIterator.HasNext() {
+			#dim List As %ListOfObjects = ArrayIterator.Next()
+			do $$$AssertEquals(List.Count(),AantalItemsPerGroeperingIterator.Next())
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakLijst">
+<FormalSpec>Aantal:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	set Lijst = ##class(%ListOfObjects).%New()
+	#dim Counter As TECH.Integer
+	for Counter = 1 : 1 : Aantal do Lijst.Insert($$$DummyObject)
+	quit Lijst
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/ListUtils/impl/GroepeerPerAantal.cls.xml
===================================================================
diff -u
--- TECH/ListUtils/impl/GroepeerPerAantal.cls.xml	(revision 0)
+++ TECH/ListUtils/impl/GroepeerPerAantal.cls.xml	(revision 1451)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.ListUtils.impl.GroepeerPerAantal">
+<Super>TECH.RegisteredObject,TECH.ListUtils.Groepering</Super>
+
+<Property name="ID">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="GroeperingsAantal">
+<Type>TECH.Integer</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>GroeperingsAantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..GroeperingsAantal = GroeperingsAantal
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVolgendID">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set ..ID =..ID+1
+	quit ..ID
+]]></Implementation>
+</Method>
+
+<Method name="IsNieuweGroeperingNodig">
+<FormalSpec>Iterator:TECH.Iterator</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit (Iterator.Key()#..GroeperingsAantal) = 1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/ListUtils/Groepering.cls.xml
===================================================================
diff -u
--- TECH/ListUtils/Groepering.cls.xml	(revision 0)
+++ TECH/ListUtils/Groepering.cls.xml	(revision 1451)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.ListUtils.Groepering">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="BepaalVolgendID">
+<Abstract>1</Abstract>
+<ReturnType>%Integer</ReturnType>
+</Method>
+
+<Method name="IsNieuweGroeperingNodig">
+<Abstract>1</Abstract>
+<FormalSpec>Iterator:TECH.Iterator</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+</Class>
+
+
+</Export>