Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem/Test.cls.xml	(revision 30381)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Factory">
+<Type>vhTest.DOM.PM.Maatwerk.Calc.HF.Factory</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	set ..Factory = ##class(vhTest.DOM.PM.Maatwerk.Calc.HF.Factory).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefHalffabItemsIterator kan overweg met items met zelfde rolnaam">
+<Implementation><![CDATA[
+	#dim SamensteldHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem  = ..Factory.MaakSamengesteldItem("Samengesteld",0)
+	do SamensteldHalffabItem.VoegToe(..Factory.MaakStandaardItem("Standaard",1))
+	do SamensteldHalffabItem.VoegToe(..Factory.MaakStandaardItem("Standaard",2))
+	
+	do $$$AssertEquals(SamensteldHalffabItem.GeefAantalHalffabItems(),2)
+	#dim Iterator As TECH.Iterator = SamensteldHalffabItem.GeefHalffabItemsIterator()
+	do ..AssertHalffabItem(Iterator.Next(),"Standaard",1)
+	do ..AssertHalffabItem(Iterator.Next(),"Standaard",2)
+	do $$$AssertFalse(Iterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="AssertHalffabItem">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,Rol:%String,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do $$$AssertEquals(HalffabItem.GeefRol(),Rol)
+	do $$$AssertEquals(HalffabItem.Aantal,Aantal)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/HalffabItemsBoom/Test.cls.xml
===================================================================
diff -u -r30286 -r30381
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/HalffabItemsBoom/Test.cls.xml	(.../Test.cls.xml)	(revision 30286)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/HalffabItemsBoom/Test.cls.xml	(.../Test.cls.xml)	(revision 30381)
@@ -8,6 +8,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Factory">
+<Type>vhTest.DOM.PM.Maatwerk.Calc.HF.Factory</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	set ..Factory = ##class(vhTest.DOM.PM.Maatwerk.Calc.HF.Factory).%New()
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -23,23 +35,23 @@
 
 <Method name="Test : StandaardItem in boom">
 <Implementation><![CDATA[
-	do ..Boom.AddHalffabItem(..MaakStandaardItem("Std"))
+	do ..Boom.AddHalffabItem(..Factory.MaakStandaardItem("Std"))
 	do ..AssertItemCount(1)
 ]]></Implementation>
 </Method>
 
 <Method name="Test : Twee verschillende items in boom">
 <Implementation><![CDATA[
-	do ..Boom.AddHalffabItem(..MaakStandaardItem("Std1"))
-	do ..Boom.AddHalffabItem(..MaakStandaardItem("Std2"))
+	do ..Boom.AddHalffabItem(..Factory.MaakStandaardItem("Std1"))
+	do ..Boom.AddHalffabItem(..Factory.MaakStandaardItem("Std2"))
 	
 	do ..AssertItemCount(2)
 ]]></Implementation>
 </Method>
 
 <Method name="Test : StandaardItem 2de maal in boom -&gt; item wordt overschreven">
 <Implementation><![CDATA[
-	#dim StandaardItem As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem= ..MaakStandaardItem("Std")
+	#dim StandaardItem As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem= ..Factory.MaakStandaardItem("Std")
 	do ..Boom.AddHalffabItem(StandaardItem)
 	do ..Boom.AddHalffabItem(StandaardItem)
 	
@@ -49,8 +61,8 @@
 
 <Method name="Test : StandaardItem en SamengesteldItem">
 <Implementation><![CDATA[
-	do ..Boom.AddHalffabItem(..MaakStandaardItem("Std"))
-	do ..Boom.AddHalffabItem(..MaakSamengesteldItem("Sam",1))
+	do ..Boom.AddHalffabItem(..Factory.MaakStandaardItem("Std"))
+	do ..Boom.AddHalffabItem(..Factory.MaakSamengesteldItem("Sam",1))
 	
 	do $$$AssertEquals(..Boom.HalffabItems.Count(),2)
 	
@@ -60,8 +72,8 @@
 
 <Method name="Test : Sub-item kan verkregen worden via het hierarchisch pad in &apos;-&gt;&apos; notatie">
 <Implementation><![CDATA[
-	do ..Boom.AddHalffabItem(..MaakSamengesteldItem("HoofdSam1",2,"Std"))
-	do ..Boom.AddHalffabItem(..MaakSamengesteldItem("HoofdSam2",2,"Sam"))
+	do ..Boom.AddHalffabItem(..Factory.MaakSamengesteldItem("HoofdSam1",2,"Std"))
+	do ..Boom.AddHalffabItem(..Factory.MaakSamengesteldItem("HoofdSam2",2,"Sam"))
 	
 	do $$$AssertTrue(..Boom.BevatRol("HoofdSam1->Std1"))
 	do $$$AssertEquals(..Boom.GeefHalffabItem("HoofdSam1->Std1").GeefVolledigeRolNaam(),"HoofdSam1.Std1")
@@ -86,10 +98,10 @@
 <Method name="Test : Sub-item kan verkregen worden via het hierarchisch pad in &apos;-&gt;&apos; notatie - ook als er een afwijkende rol naam is ingesteld">
 <Implementation><![CDATA[
 	set Hoofd = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("","Hoofd")
-	#dim ItemA As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ..MaakStandaardItem("ItemA")
+	#dim ItemA As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ..Factory.MaakStandaardItem("ItemA")
 	do Hoofd.VoegToe(ItemA)
 	
-	#dim ItemB As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ..MaakStandaardItem("ItemB")
+	#dim ItemB As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ..Factory.MaakStandaardItem("ItemB")
 	do ItemB.ZetVolledigeRolNaam("Afwijkende volledigerolnaam")
 	do Hoofd.VoegToe(ItemB)
 	
@@ -105,8 +117,8 @@
 
 <Method name="Test: GeefHalffabIterator met opgegeven rol">
 <Implementation><![CDATA[
-	do ..Boom.AddHalffabItem(..MaakSamengesteldItem("HoofdSam1",2,"Std"))
-	do ..Boom.AddHalffabItem(..MaakSamengesteldItem("HoofdSam2",2,"Sam"))
+	do ..Boom.AddHalffabItem(..Factory.MaakSamengesteldItem("HoofdSam1",2,"Std"))
+	do ..Boom.AddHalffabItem(..Factory.MaakSamengesteldItem("HoofdSam2",2,"Sam"))
 	
 	#dim Iterator = ..Boom.GeefHalffabItemsIterator("HoofdSam2")
 	
@@ -118,8 +130,8 @@
 
 <Method name="Test : Concrete halffabItem iterator">
 <Implementation><![CDATA[
-	do ..Boom.AddHalffabItem(..MaakSamengesteldItem("HoofdSam1",2,"Std"))
-	do ..Boom.AddHalffabItem(..MaakSamengesteldItem("HoofdSam2",2,"Sam"))
+	do ..Boom.AddHalffabItem(..Factory.MaakSamengesteldItem("HoofdSam1",2,"Std"))
+	do ..Boom.AddHalffabItem(..Factory.MaakSamengesteldItem("HoofdSam2",2,"Sam"))
 	
 	#dim Iterator = ..Boom.GeefConcreteHalffabItemsIterator()
 	
@@ -136,8 +148,8 @@
 
 <Method name="Test : Concrete halffabItem iterator - met opgegeven rol">
 <Implementation><![CDATA[
-	do ..Boom.AddHalffabItem(..MaakSamengesteldItem("HoofdSam1",2,"Std"))
-	do ..Boom.AddHalffabItem(..MaakSamengesteldItem("HoofdSam2",2,"Sam"))
+	do ..Boom.AddHalffabItem(..Factory.MaakSamengesteldItem("HoofdSam1",2,"Std"))
+	do ..Boom.AddHalffabItem(..Factory.MaakSamengesteldItem("HoofdSam2",2,"Sam"))
 	
 	#dim Iterator = ..Boom.GeefConcreteHalffabItemsIterator("Std1")
 	
@@ -153,7 +165,7 @@
 
 <Method name="aTest: Dezelfde rol toevoegen in een hiearchie is niet toegelaten">
 <Implementation><![CDATA[
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Dezelfde rolnaam toevoegen in een hierarchie is niet toegelaten")
+	#dim Substrings = ##class(TECH.ListFactory).CreateListOfDataTypes("Dezelfde rolnaam toevoegen in een hierarchie is niet toegelaten")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidInputException,Substrings))
 	
 	set SamengesteldItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("","Rol")
@@ -163,7 +175,7 @@
 
 <Method name="aTest: Dezelfde rolnaam toevoegen in een hiearchie is niet toegelaten">
 <Implementation><![CDATA[
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Dezelfde rolnaam toevoegen in een hierarchie is niet toegelaten")
+	#dim Substrings = ##class(TECH.ListFactory).CreateListOfDataTypes("Dezelfde rolnaam toevoegen in een hierarchie is niet toegelaten")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidInputException,Substrings))
 	
 	set SamengesteldItem1 = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("","Rol")
@@ -174,8 +186,8 @@
 
 <Method name="Test : Indien HalffabItem meerdere malen voorkomt zal GeefHalffabItem een error throwen">
 <Implementation><![CDATA[
-	do ..Boom.AddHalffabItem(..MaakStandaardItem("Std1"))
-	do ..Boom.AddHalffabItem(..MaakSamengesteldItem("Sam1",2,"Std"))
+	do ..Boom.AddHalffabItem(..Factory.MaakStandaardItem("Std1"))
+	do ..Boom.AddHalffabItem(..Factory.MaakSamengesteldItem("Sam1",2,"Std"))
 	
 	do $$$AssertTrue(..Boom.BevatRol("Std1"))
 	do $$$AssertTrue(..Boom.BevatRol("Sam1->Std1"))
@@ -184,31 +196,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MaakStandaardItem">
-<FormalSpec>Naam:%String,Aantal:%Integer=1</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	set StandaardItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", Naam, "")
-	quit StandaardItem
-]]></Implementation>
-</Method>
-
-<Method name="MaakSamengesteldItem">
-<FormalSpec>Naam:%String,AantalTeMakenItems:%Integer,ItemType:%String="Std",Aantal:%Integer=1</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	set SamengesteldItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("",Naam)
-	#dim Counter As %Integer
-	for Counter = 1 : 1 : AantalTeMakenItems {
-		#dim Item As DOM.PM.Maatwerk.Calc.HF.IHalffabItem
-		set:(ItemType = "Std") Item = ..MaakStandaardItem("Std"_Counter,Aantal_Counter) 
-		set:(ItemType = "Sam") Item = ..MaakSamengesteldItem("Sam"_Counter,1,"Std",Aantal_Counter) 
-		do SamengesteldItem.VoegToe(Item)
-	}
-	quit SamengesteldItem
-]]></Implementation>
-</Method>
-
 <Method name="AssertItemCount">
 <FormalSpec>VerwachtAantal:%Integer</FormalSpec>
 <Private>1</Private>
Index: DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem/GesorteerdOpRolIterator.cls.xml
===================================================================
diff -u -r30376 -r30381
--- DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem/GesorteerdOpRolIterator.cls.xml	(.../GesorteerdOpRolIterator.cls.xml)	(revision 30376)
+++ DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem/GesorteerdOpRolIterator.cls.xml	(.../GesorteerdOpRolIterator.cls.xml)	(revision 30381)
@@ -20,6 +20,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ItemIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>HalffabItems:%CacheString,HalffabItemsIndex:%CacheString</FormalSpec>
 <Private>1</Private>
@@ -52,9 +57,11 @@
 <Method name="Next">
 <ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
-	#dim IndexData As %List = ..IndexIterator.Next()
-	#dim Next As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = ..HalffabItems.GetAt($listget(IndexData))
-	quit Next
+	if $$$Not($IsObject(..ItemIterator)) || $$$Not(..ItemIterator.HasNext()) {
+		#dim IndexData As %List = ..IndexIterator.Next()
+		set ..ItemIterator = ##class(TECH.ListbuildIterator).%New(IndexData)
+	}	
+	quit ..HalffabItems.GetAt(..ItemIterator.Next())
 ]]></Implementation>
 </Method>
 
Index: vhTest/DOM/PM/Maatwerk/Calc/HF/Factory.cls.xml
===================================================================
diff -u
--- vhTest/DOM/PM/Maatwerk/Calc/HF/Factory.cls.xml	(revision 0)
+++ vhTest/DOM/PM/Maatwerk/Calc/HF/Factory.cls.xml	(revision 30381)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.DOM.PM.Maatwerk.Calc.HF.Factory">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="MaakStandaardItem">
+<FormalSpec>Naam:%String,Aantal:%Integer=1</FormalSpec>
+<Implementation><![CDATA[
+	set StandaardItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", Naam, "")
+	set StandaardItem.Aantal = Aantal
+	quit StandaardItem
+]]></Implementation>
+</Method>
+
+<Method name="MaakSamengesteldItem">
+<FormalSpec>Naam:%String,AantalTeMakenItems:%Integer,ItemType:%String="Std",Aantal:%Integer=1</FormalSpec>
+<Implementation><![CDATA[
+	set SamengesteldItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("",Naam)
+	#dim Counter As %Integer
+	for Counter = 1 : 1 : AantalTeMakenItems {
+		#dim Item As DOM.PM.Maatwerk.Calc.HF.IHalffabItem
+		set:(ItemType = "Std") Item = ..MaakStandaardItem("Std"_Counter,Aantal_Counter) 
+		set:(ItemType = "Sam") Item = ..MaakSamengesteldItem("Sam"_Counter,1,"Std",Aantal_Counter) 
+		do SamengesteldItem.VoegToe(Item)
+	}
+	quit SamengesteldItem
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>