Index: vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/Plaat/Factory/Test.cls.xml
===================================================================
diff -u -r56775 -r67700
--- vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/Plaat/Factory/Test.cls.xml	(.../Test.cls.xml)	(revision 56775)
+++ vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/Plaat/Factory/Test.cls.xml	(.../Test.cls.xml)	(revision 67700)
@@ -6,12 +6,13 @@
 <Method name="Test: ObjectApi wordt opgeroepen">
 <Implementation><![CDATA[
 	#dim Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol = ..Enum.Rol.BodemPlaat
+	Set DummyHalffabItem = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New()
 	
 	#dim ObjectApiMock As vhTest.Mock.TECH.Object.ObjectAPI = ##class(vhTest.Mock.TECH.Object.ObjectAPI).%New()
-	Do ObjectApiMock.VerwachtMethodCall("New", "DOM.PM.Maatwerk.LadeInfo.impl.TAX.BodemPlaat", "", "", "")
+	Do ObjectApiMock.VerwachtMethodCall("New", "DOM.PM.Maatwerk.LadeInfo.impl.TAX.BodemPlaat", "", DummyHalffabItem, "")
 	
 	#dim HalffabItemStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("", "DummyRol")
-	Do HalffabItemStub.IndienMethodCall("GeefHalffabItem", Rol)
+	Do HalffabItemStub.IndienMethodCall("GeefHalffabItem", Rol).DanReturn(DummyHalffabItem)
 	
 	#dim PlaatFactory As DOM.PM.Maatwerk.LadeInfo.impl.Plaat.Factory = ##class(DOM.PM.Maatwerk.LadeInfo.impl.Plaat.Factory).%New(ObjectApiMock)
 	Do PlaatFactory.GeefPlaten(Rol, "", HalffabItemStub, "")
@@ -23,7 +24,7 @@
 <Method name="Test: GeefPlaten voor Bodem">
 <Implementation><![CDATA[
 	#dim HalffabItemStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("", "DummyRol")
-	Do HalffabItemStub.IndienMethodCall("GeefHalffabItem", ..Enum.Rol.BodemPlaat)
+	Do HalffabItemStub.IndienMethodCall("GeefHalffabItem", ..Enum.Rol.BodemPlaat).DanReturn("")
 	
 	Do ..AssertPlaten(..Enum.Rol.BodemPlaat, HalffabItemStub, "DOM.PM.Maatwerk.LadeInfo.impl.TAX.BodemPlaat")
 ]]></Implementation>
@@ -32,15 +33,15 @@
 <Method name="Test: GeefPlaten voor Front">
 <Implementation><![CDATA[
 	#dim HalffabItemStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("", "DummyRol")
-	Do HalffabItemStub.IndienMethodCall("GeefHalffabItem", ..Enum.Rol.FrontPlaat)
+	Do HalffabItemStub.IndienMethodCall("GeefHalffabItem", ..Enum.Rol.FrontPlaat).DanReturn("")
 	Do ..AssertPlaten(..Enum.Rol.FrontPlaat, HalffabItemStub, "DOM.PM.Maatwerk.LadeInfo.impl.TAX.FrontPlaat")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: GeefPlaten voor Rug">
 <Implementation><![CDATA[
 	#dim HalffabItemStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("", "DummyRol")
-	Do HalffabItemStub.IndienMethodCall("GeefHalffabItem", ..Enum.Rol.RugPlaat)
+	Do HalffabItemStub.IndienMethodCall("GeefHalffabItem", ..Enum.Rol.RugPlaat).DanReturn("")
 	
 	Do ..AssertPlaten(..Enum.Rol.RugPlaat, HalffabItemStub, "DOM.PM.Maatwerk.LadeInfo.impl.TAX.RugPlaat")
 ]]></Implementation>
@@ -49,7 +50,6 @@
 <Method name="Test: GeefPlaten voor Zijkant">
 <Implementation><![CDATA[
 	#dim HalffabItemStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("", "DummyRol")
-	Do HalffabItemStub.IndienMethodCall("GeefHalffabItem", ..Enum.Rol.ZijkantPlaat)
 	Do HalffabItemStub.IndienMethodCall("GeefRol").DanReturn("DummyRol")
 
 	Do HalffabItemStub.IndienMethodCall("GeefKindIterator").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfDataTypes).%New()))
Index: DOM/PM/Maatwerk/Calc/HF/IHalffabItem.cls.xml
===================================================================
diff -u -r63883 -r67700
--- DOM/PM/Maatwerk/Calc/HF/IHalffabItem.cls.xml	(.../IHalffabItem.cls.xml)	(revision 63883)
+++ DOM/PM/Maatwerk/Calc/HF/IHalffabItem.cls.xml	(.../IHalffabItem.cls.xml)	(revision 67700)
@@ -123,7 +123,7 @@
 <Implementation><![CDATA[
 	quit:$length(..VolledigeRolNaam) ..VolledigeRolNaam
 	
-	#dim Item As  DOM.PM.Maatwerk.Calc.HF.HalffabItem = $this
+	#dim Item As  DOM.PM.Maatwerk.Calc.HF.IHalffabItem = $this
 	#dim VolledigeNaam As %String = ""
 	while $IsObject(Item) {
 		set VolledigeNaam = Item.GeefRol()_ $$$IfLength(VolledigeNaam,".","")