Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/SamengesteldKostItemBuilder/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/SamengesteldKostItemBuilder/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/SamengesteldKostItemBuilder/Test.cls.xml	(revision 30397)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestSamengesteldKostItemBuilder">
+<Implementation><![CDATA[
+	Set SamengesteldKostItemBuilder = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder).%New("")
+	Do ##class(vhUnitTest.DOM.PM.Maatwerk.Kost.impl.KostItemBuilderA).%New(SamengesteldKostItemBuilder)
+	Do ##class(vhUnitTest.DOM.PM.Maatwerk.Kost.impl.KostItemBuilderB).%New(SamengesteldKostItemBuilder)
+	
+	#dim KostItemBuildersIterator As TECH.Iterator = SamengesteldKostItemBuilder.GeefKostItemBuildersIterator()
+	Do $$$AssertTrue(KostItemBuildersIterator.HasNext(),"KostItemBuilderA is toegevoegd")
+	Do KostItemBuildersIterator.Next()
+	Do $$$AssertTrue(KostItemBuildersIterator.HasNext(),"KostItemBuilderB is toegevoegd")
+	
+	#dim SamengesteldKostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = SamengesteldKostItemBuilder.Bereken("","","")
+	#dim KostItemsIterator As TECH.Iterator = SamengesteldKostItem.GeefKostItemsIterator()
+	Do $$$AssertEquals(KostItemsIterator.Next().GeefNaam(),"KostItemA","Het eerste kostitem")
+	Do $$$AssertEquals(KostItemsIterator.Next().GeefNaam(),"KostItemB","Het tweede kostitem")
+	do $$$AssertFalse(KostItemsIterator.HasNext())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/Kost/HalffabKostItemBuilder.cls.xml
===================================================================
diff -u -r29059 -r30397
--- DOM/PM/Maatwerk/Calc/Kost/HalffabKostItemBuilder.cls.xml	(.../HalffabKostItemBuilder.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/Kost/HalffabKostItemBuilder.cls.xml	(.../HalffabKostItemBuilder.cls.xml)	(revision 30397)
@@ -36,7 +36,7 @@
 <Property name="VorigeKostItem">
 <Description>
 Mag alleen gebruikt worden voor de Visitor </Description>
-<Type>DOM.PM.Maatwerk.Calc.Kost.KostItem</Type>
+<Type>DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</Type>
 <Private>1</Private>
 <Transient>1</Transient>
 </Property>
@@ -57,11 +57,10 @@
 Loopt de items van de HalffabItemsBoom af en maakt voor ieder HalffabItem een KostItem aan.
 Resultaat is een samengesteld KostItem, dat dezelfde Boom-structuur heeft als de HalffabItems (builders). </Description>
 <FormalSpec>Context:DOM.PM.Maatwerk.Calc.Kost.KostContext,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.Kost.KostItem</ReturnType>
+<ReturnType>DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</ReturnType>
 <Implementation><![CDATA[
-	Set SamengesteldKostItem = ""
-	If ($IsObject(HalffabItemsBoom.Wortel))
-	{
+	#dim SamengesteldKostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = ""
+	If ($IsObject(HalffabItemsBoom.Wortel)) {
 		Set ..Context = Context
 		Set ..HalffabKostItemWortel=##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New(..Naam)
 		Set ..VorigeKostItem=..HalffabKostItemWortel
@@ -86,13 +85,14 @@
 <Implementation><![CDATA[
 	// Nieuw samengesteld kostitem maken 
 	Set SamengesteldKostItem=##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New(Item.GeefRol())
+	
 	Do ..VorigeKostItem.VoegToe(SamengesteldKostItem)
 
 	// Het vorige kostitem bewaren voor na afloop van de method (om recursieve redenen) 
-	Set VorigeKostItem = ..VorigeKostItem
+	#dim VorigeKostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = ..VorigeKostItem
 	
 	// Het "vorige" item instellen op het huidige 
-	Set ..VorigeKostItem=SamengesteldKostItem
+	Set ..VorigeKostItem = SamengesteldKostItem
 	// Alle items overlopen 
 	Do ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemVisitor)##this.VerwerkSamengesteldHalffabItem(Item)
 	
Index: DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem/GesorteerdOpRolIterator.cls.xml
===================================================================
diff -u -r30381 -r30397
--- DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem/GesorteerdOpRolIterator.cls.xml	(.../GesorteerdOpRolIterator.cls.xml)	(revision 30381)
+++ DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem/GesorteerdOpRolIterator.cls.xml	(.../GesorteerdOpRolIterator.cls.xml)	(revision 30397)
@@ -44,7 +44,7 @@
 <Description>
 Returns true if the iteration has more elements.</Description>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit ..IndexIterator.HasNext()
+<Implementation><![CDATA[	quit ..IndexIterator.HasNext() || ( $IsObject(..ItemIterator) && ..ItemIterator.HasNext())
 ]]></Implementation>
 </Method>
 
@@ -60,6 +60,7 @@
 	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>
Index: DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem.cls.xml
===================================================================
diff -u -r30379 -r30397
--- DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem.cls.xml	(.../SamengesteldHalffabItem.cls.xml)	(revision 30379)
+++ DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem.cls.xml	(.../SamengesteldHalffabItem.cls.xml)	(revision 30397)
@@ -11,13 +11,11 @@
 <Property name="HalffabItems">
 <Type>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</Type>
 <Collection>list</Collection>
-<Private>1</Private>
 </Property>
 
 <Property name="HalffabItemsIndex">
 <Type>%List</Type>
 <Collection>array</Collection>
-<Private>1</Private>
 </Property>
 
 <Method name="GeefHalffabItemsIterator">
Index: vhTest/DOM/PM/Maatwerk/Calc/HF/Factory.cls.xml
===================================================================
diff -u -r30381 -r30397
--- vhTest/DOM/PM/Maatwerk/Calc/HF/Factory.cls.xml	(.../Factory.cls.xml)	(revision 30381)
+++ vhTest/DOM/PM/Maatwerk/Calc/HF/Factory.cls.xml	(.../Factory.cls.xml)	(revision 30397)
@@ -13,7 +13,7 @@
 </Method>
 
 <Method name="MaakSamengesteldItem">
-<FormalSpec>Naam:%String,AantalTeMakenItems:%Integer,ItemType:%String="Std",Aantal:%Integer=1</FormalSpec>
+<FormalSpec>Naam:%String,AantalTeMakenItems:%Integer,ItemType:%String="Std",Aantal:%Integer=0</FormalSpec>
 <Implementation><![CDATA[
 	set SamengesteldItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("",Naam)
 	#dim Counter As %Integer
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem/GesorteerdOpRolIterator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem/GesorteerdOpRolIterator/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem/GesorteerdOpRolIterator/Test.cls.xml	(revision 30397)
@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem.GesorteerdOpRolIterator.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: 0 Items - geen HasNext">
+<Implementation><![CDATA[
+	#dim SamengesteldHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ..Factory.MaakSamengesteldItem("Samengesteld",0)
+	#dim HalffabItemsIterator As TECH.Iterator = SamengesteldHalffabItem.GeefHalffabItemsIterator()
+	do $$$AssertFalse(HalffabItemsIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test: 0 Items - Next raised een exceptie">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen volgend item meer, einde van lijst is bereikt.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.BaseException,Substrings))
+	
+	#dim SamengesteldHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ..Factory.MaakSamengesteldItem("Samengesteld",0)
+	#dim HalffabItemsIterator As TECH.Iterator = SamengesteldHalffabItem.GeefHalffabItemsIterator()
+	do HalffabItemsIterator.Next()
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1 Item">
+<Implementation><![CDATA[
+	#dim SamengesteldHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ..Factory.MaakSamengesteldItem("Samengesteld",0)
+	do SamengesteldHalffabItem.VoegToe(..Factory.MaakStandaardItem("StandaardItem"))
+	
+	#dim HalffabItemsIterator As TECH.Iterator = SamengesteldHalffabItem.GeefHalffabItemsIterator()
+	do $$$AssertTrue(HalffabItemsIterator.HasNext())
+	do $$$AssertEquals(HalffabItemsIterator.Next().GeefRol(),"StandaardItem")
+	do $$$AssertFalse(HalffabItemsIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Item meerdere malen toegevoegd">
+<Implementation><![CDATA[
+	#dim SamengesteldHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ..Factory.MaakSamengesteldItem("Samengesteld",0)
+	#dim StandaardHalffabItem As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ..Factory.MaakStandaardItem("StandaardItem")
+	do SamengesteldHalffabItem.VoegToe(StandaardHalffabItem)
+	do SamengesteldHalffabItem.VoegToe(StandaardHalffabItem)
+	
+	#dim HalffabItemsIterator As TECH.Iterator = SamengesteldHalffabItem.GeefHalffabItemsIterator()
+	do $$$AssertTrue(HalffabItemsIterator.HasNext())
+	do $$$AssertEquals(HalffabItemsIterator.Next().GeefRol(),"StandaardItem")
+	do $$$AssertTrue(HalffabItemsIterator.HasNext())
+	do $$$AssertEquals(HalffabItemsIterator.Next().GeefRol(),"StandaardItem")
+	do $$$AssertFalse(HalffabItemsIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verschillende rollen - gesorteerd">
+<Implementation><![CDATA[
+	#dim SamengesteldHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ..Factory.MaakSamengesteldItem("Samengesteld",0)
+	do SamengesteldHalffabItem.VoegToe(..Factory.MaakStandaardItem("StandaardItem2"))
+	do SamengesteldHalffabItem.VoegToe(..Factory.MaakStandaardItem("StandaardItem1"))
+	
+	#dim HalffabItemsIterator As TECH.Iterator = SamengesteldHalffabItem.GeefHalffabItemsIterator()
+	do $$$AssertTrue(HalffabItemsIterator.HasNext())
+	do $$$AssertEquals(HalffabItemsIterator.Next().GeefRol(),"StandaardItem1")
+	do $$$AssertTrue(HalffabItemsIterator.HasNext())
+	do $$$AssertEquals(HalffabItemsIterator.Next().GeefRol(),"StandaardItem2")
+	do $$$AssertFalse(HalffabItemsIterator.HasNext())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 30397 refers to a dead (removed) revision in file `vhUnitTest/DOM/PM/Maatwerk/Kost/TestHalffabKostItemBuilder.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?