Index: APPS/Halux/common/impl/SequentieService/HoekprofielPositieBepaler.cls.xml
===================================================================
diff -u -r57008 -r57148
--- APPS/Halux/common/impl/SequentieService/HoekprofielPositieBepaler.cls.xml	(.../HoekprofielPositieBepaler.cls.xml)	(revision 57008)
+++ APPS/Halux/common/impl/SequentieService/HoekprofielPositieBepaler.cls.xml	(.../HoekprofielPositieBepaler.cls.xml)	(revision 57148)
@@ -30,8 +30,8 @@
 	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = TAORbox.GeefHalffabItemsBoom()
 	
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..MaatwerkCalcAPI.GeefLadeInfo(HalffabItemsBoom, IngegevenKenmerken)
-	#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = ..GeefLadeOnderdeel(Lade.GeefBodemIterator())
-	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = ..GeefLadeOnderdeel(Lade.GeefZijkantIterator())
+	#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = Lade.GeefBodemIterator().Next()
+	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = Lade.GeefZijkantIterator().Next()
 	
 	#dim BreedteInMmBodem As TECH.Decimal = Bodem.GeefBreedteInMM()
 	#dim HoogteInMmZijkant As TECH.Decimal = Zijkant.GeefHoogteInMM()
@@ -48,21 +48,6 @@
 	Quit HoekprofielPositieCode
 ]]></Implementation>
 </Method>
-
-<Method name="GeefLadeOnderdeel">
-<FormalSpec>LadeOnderdeelIterator:TECH.Iterator</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</ReturnType>
-<Implementation><![CDATA[
-	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel
-	
-	While (LadeOnderdeelIterator.HasNext()) {
-		Set LadeOnderdeel = LadeOnderdeelIterator.Next()
-	}
-	
-	Quit LadeOnderdeel
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/common/impl/SequentieService/HoekprofielPositieBepaler/Test.cls.xml
===================================================================
diff -u -r57008 -r57148
--- vhUnitTest/APPS/Halux/common/impl/SequentieService/HoekprofielPositieBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 57008)
+++ vhUnitTest/APPS/Halux/common/impl/SequentieService/HoekprofielPositieBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 57148)
@@ -32,11 +32,9 @@
 	Set ..TAORKenmerken.CorpusBinnenbreedte = 400
 	Set ..TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
 	
-	Do ..SetupHalffabItemsBoom()
+	Do ..SetupHalffabItemsBoom(..TAORKenmerken)
 	
-	#dim TAORboxStub As DOM.PM.TAORProduct.TAORLade = ##class(vhTest.Mock.DOM.PM.TAORProduct.TAORLade).%New(..#ProductId)
-	Do TAORboxStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(..TAORKenmerken)
-	Do TAORboxStub.IndienMethodCall("GeefHalffabItemsBoom").DanReturn(..HalffabItemsBoom)
+	#dim TAORboxStub As DOM.PM.TAORProduct.TAORLade = ..GeefTaorboxLadeMock(..TAORKenmerken)
 		
 	#dim HoekprofielPositieBepaler As APPS.Halux.common.impl.SequentieService.HoekprofielPositieBepaler = ..GeefHoekprofielPositieBepaler()
 	
@@ -49,11 +47,9 @@
 	Set ..TAORKenmerken.CorpusBinnenbreedte = 500
 	Set ..TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
 	
-	Do ..SetupHalffabItemsBoom()
+	Do ..SetupHalffabItemsBoom(..TAORKenmerken)
 	
-	#dim TAORboxStub As DOM.PM.TAORProduct.TAORLade = ##class(vhTest.Mock.DOM.PM.TAORProduct.TAORLade).%New(..#ProductId)
-	Do TAORboxStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(..TAORKenmerken)
-	Do TAORboxStub.IndienMethodCall("GeefHalffabItemsBoom").DanReturn(..HalffabItemsBoom)
+	#dim TAORboxStub As DOM.PM.TAORProduct.TAORLade = ..GeefTaorboxLadeMock(..TAORKenmerken)
 		
 	#dim HoekprofielPositieBepaler As APPS.Halux.common.impl.SequentieService.HoekprofielPositieBepaler = ..GeefHoekprofielPositieBepaler()
 	
@@ -66,11 +62,9 @@
 	Set ..TAORKenmerken.CorpusBinnenbreedte = 600
 	Set ..TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
 	
-	Do ..SetupHalffabItemsBoom()
+	Do ..SetupHalffabItemsBoom(..TAORKenmerken)
 	
-	#dim TAORboxStub As DOM.PM.TAORProduct.TAORLade = ##class(vhTest.Mock.DOM.PM.TAORProduct.TAORLade).%New(..#ProductId)
-	Do TAORboxStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(..TAORKenmerken)
-	Do TAORboxStub.IndienMethodCall("GeefHalffabItemsBoom").DanReturn(..HalffabItemsBoom)
+	#dim TAORboxStub As DOM.PM.TAORProduct.TAORLade = ..GeefTaorboxLadeMock(..TAORKenmerken)
 		
 	#dim HoekprofielPositieBepaler As APPS.Halux.common.impl.SequentieService.HoekprofielPositieBepaler = ..GeefHoekprofielPositieBepaler()
 	
@@ -86,6 +80,7 @@
 </Method>
 
 <Method name="SetupHalffabItemsBoom">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim KlantID As DOM.VKP.VanHoeckeKlant = "K||7587"
@@ -95,10 +90,24 @@
 	#dim Variant As DOM.PM.enu.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TAOR()
 	
 	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie, Variant, BerekeningsSpecificatie)
-	Do Context.GeefHalffabSpec().BerekenHalffabDetails(Context, ..TAORKenmerken)
+	Do Context.GeefHalffabSpec().BerekenHalffabDetails(Context, TAORKenmerken)
 	Set ..HalffabItemsBoom = Context.HalffabItemsBoom
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTaorboxLadeMock">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.PM.TAORProduct.TAORLade</ReturnType>
+<Implementation><![CDATA[
+	#dim TAORboxStub As DOM.PM.TAORProduct.TAORLade = ##class(vhTest.Mock.DOM.PM.TAORProduct.TAORLade).%New(..#ProductId)
+	
+	Do TAORboxStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(TAORKenmerken)
+	Do TAORboxStub.IndienMethodCall("GeefHalffabItemsBoom").DanReturn(..HalffabItemsBoom)
+	
+	Quit TAORboxStub
+]]></Implementation>
+</Method>
 </Class>