Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml
===================================================================
diff -u -r31723 -r32459
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml	(.../Test.cls.xml)	(revision 31723)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml	(.../Test.cls.xml)	(revision 32459)
@@ -12,7 +12,7 @@
 
 <Method name="TestLadeMetMat">
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).CLadeMetMat()
+	Set ..IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 	
 	Set ..IngegevenKenmerkenAPI = ##class(vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI).%New()
 	Do ..IngegevenKenmerkenAPI.IndienMethodCall("HeeftGekoppeldeMat", ..IngegevenKenmerken).DanReturn($$$True)
@@ -23,7 +23,7 @@
 
 <Method name="TestBinnenLadeMetMat">
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).CLadeMetMat()
+	Set ..IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 	Set ..IngegevenKenmerken.IsBinnenlade = $$$True
 	
 	Set ..IngegevenKenmerkenAPI = ##class(vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI).%New()
@@ -35,7 +35,7 @@
 
 <Method name="TestLadeMet2Dwarsverdelingen">
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).CLade()
+	Set ..IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 	Set ..IngegevenKenmerken.GUIKenmerken.HeeftDwarsverdeling = $$$True
 	Set ..IngegevenKenmerken.AantalDwarsverdelingen = 2
 	
@@ -47,11 +47,8 @@
 <Implementation><![CDATA[
 	Set ..IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
 	Set ..IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()
-	
-	Set BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken).%New()
-	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,"",##class(DOM.common.VanHoeckePersonality).Instance())
-	Set ..HalffabItemsBoom = BerekeningService.BerekenHalffabItemsBoom(..IngegevenKenmerken,BerekeningsSpecificatie)
-	
+
+	Do ..BerekenHalffabItemsBoom()
 	Do ..AssertInfo("R:Free")
 ]]></Implementation>
 </Method>
@@ -60,16 +57,25 @@
 <Implementation><![CDATA[
 	Set ..IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
 	Set ..IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()
-	Do ..IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).InschuifElementZijkant())
 	
-	Set BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken).%New()
-	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,"",##class(DOM.common.VanHoeckePersonality).Instance())
-	Set ..HalffabItemsBoom = BerekeningService.BerekenHalffabItemsBoom(..IngegevenKenmerken,BerekeningsSpecificatie)
-	
+	Do ..IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).InschuifElementZijkant())
+
+	Do ..BerekenHalffabItemsBoom()
 	Do ..AssertInfo("R:Free ZI")
 ]]></Implementation>
 </Method>
 
+<Method name="BerekenHalffabItemsBoom">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim BerekeningService As APPS.PM.Maatwerk.impl.BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken).%New()
+	#dim Personality As DOM.common.impl.Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1, "", Personality)
+	
+	Set ..HalffabItemsBoom = BerekeningService.BerekenHalffabItemsBoom(..IngegevenKenmerken, BerekeningsSpecificatie)
+]]></Implementation>
+</Method>
+
 <Method name="GeefInfo">
 <FormalSpec>InfoBepaler:APPS.Halux.PPS.Activiteit.impl.LBX.LBXLadePersen.InfoBepaler,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <Private>1</Private>