Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/DoosBepaler/Test.cls.xml
===================================================================
diff -u -r55692 -r55999
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/DoosBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55692)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/DoosBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55999)
@@ -23,16 +23,28 @@
 <Default>1865975</Default>
 </Parameter>
 
+<Property name="DoosBepaler">
+<Type>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..DoosBepaler = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler).%New()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Doos is VPKDOOS390TAXBLKB - langste component">
 <Implementation><![CDATA[
 	#dim FrontLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Front).%New()
 	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front())
 	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefBreedteInMM").DanReturn(375)
 	
-	#dim DoosBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler = ..GeefDoosBepaler()
+	#dim DoosProductId As %String = ..DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
 	
-	#dim DoosProductId As %String = DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
-	
 	Do $$$AssertEquals(DoosProductId, ..#VPKDOOS390TAXBLKB)
 ]]></Implementation>
 </Method>
@@ -43,10 +55,8 @@
 	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front())
 	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefBreedteInMM").DanReturn(376)
 	
-	#dim DoosBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler = ..GeefDoosBepaler()
+	#dim DoosProductId As %String = ..DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
 	
-	#dim DoosProductId As %String = DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
-	
 	Do $$$AssertEquals(DoosProductId, ..#VPKDOOS590TAXBLKB)
 ]]></Implementation>
 </Method>
@@ -57,10 +67,8 @@
 	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front())
 	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefBreedteInMM").DanReturn(575)
 	
-	#dim DoosBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler = ..GeefDoosBepaler()
+	#dim DoosProductId As %String = ..DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
 	
-	#dim DoosProductId As %String = DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
-	
 	Do $$$AssertEquals(DoosProductId, ..#VPKDOOS590TAXBLKB)
 ]]></Implementation>
 </Method>
@@ -71,10 +79,8 @@
 	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front())
 	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefBreedteInMM").DanReturn(576)
 	
-	#dim DoosBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler = ..GeefDoosBepaler()
+	#dim DoosProductId As %String = ..DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
 	
-	#dim DoosProductId As %String = DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
-	
 	Do $$$AssertEquals(DoosProductId, ..#VPKDOOS760TAXBLKB)
 ]]></Implementation>
 </Method>
@@ -85,10 +91,8 @@
 	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front())
 	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefBreedteInMM").DanReturn(745)
 	
-	#dim DoosBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler = ..GeefDoosBepaler()
+	#dim DoosProductId As %String = ..DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
 	
-	#dim DoosProductId As %String = DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
-	
 	Do $$$AssertEquals(DoosProductId, ..#VPKDOOS760TAXBLKB)
 ]]></Implementation>
 </Method>
@@ -99,10 +103,8 @@
 	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front())
 	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefBreedteInMM").DanReturn(746)
 	
-	#dim DoosBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler = ..GeefDoosBepaler()
+	#dim DoosProductId As %String = ..DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
 	
-	#dim DoosProductId As %String = DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
-	
 	Do $$$AssertEquals(DoosProductId, ..#VPKDOOS1180TAXBLKB)
 ]]></Implementation>
 </Method>
@@ -113,10 +115,8 @@
 	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front())
 	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefBreedteInMM").DanReturn(1165)
 	
-	#dim DoosBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler = ..GeefDoosBepaler()
+	#dim DoosProductId As %String = ..DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
 	
-	#dim DoosProductId As %String = DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
-	
 	Do $$$AssertEquals(DoosProductId, ..#VPKDOOS1180TAXBLKB)
 ]]></Implementation>
 </Method>
@@ -130,31 +130,33 @@
 	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front())
 	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefBreedteInMM").DanReturn(1166)
 	
-	#dim DoosBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler = ..GeefDoosBepaler()
-	
-	#dim DoosProductId As %String = DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
+	#dim DoosProductId As %String = ..DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Voor zijkanten wordt de method GeefLengteInMM gebruikt op het LadeOnderdeel">
+<Method name="Test: Voor zijkant wordt de method GeefLengteInMM gebruikt op het LadeOnderdeel">
 <Implementation><![CDATA[
 	#dim ZijkantLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant).%New()
 	Do ZijkantLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant())
 	Do ZijkantLadeOnderdeelStub.VerwachtMethodCall("GeefLengteInMM").DanReturn(1165)
 	
-	#dim DoosBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler = ..GeefDoosBepaler()
+	#dim DoosProductId As %String = ..DoosBepaler.GeefDoosProductId(ZijkantLadeOnderdeelStub)
 	
-	#dim DoosProductId As %String = DoosBepaler.GeefDoosProductId(ZijkantLadeOnderdeelStub)
-	
 	Do $$$AssertEquals(DoosProductId, ..#VPKDOOS1180TAXBLKB)
 	Do ZijkantLadeOnderdeelStub.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDoosBepaler">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler).%New()
+<Method name="Test: Voor rug wordt de method GeefBreedteInMM gebruikt op het LadeOnderdeel">
+<Implementation><![CDATA[
+	#dim RugLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Rug).%New()
+	Do RugLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug())
+	Do RugLadeOnderdeelStub.VerwachtMethodCall("GeefBreedteInMM").DanReturn(1165)
+	
+	#dim DoosProductId As %String = ..DoosBepaler.GeefDoosProductId(RugLadeOnderdeelStub)
+	
+	Do $$$AssertEquals(DoosProductId, ..#VPKDOOS1180TAXBLKB)
+	Do RugLadeOnderdeelStub.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/SpacerBepaler/Test.cls.xml
===================================================================
diff -u -r55778 -r55999
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/SpacerBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55778)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/SpacerBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55999)
@@ -3,15 +3,27 @@
 <Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Property name="SpacerBepaler">
+<Type>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..SpacerBepaler = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler).%New()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Voor een rug moet de Spacer met ProductId 1865981 gebruikt worden">
 <Implementation><![CDATA[
 	#dim RugLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Rug).%New()
 	Do RugLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug())
 	
-	#dim SpacerBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler = ..GeefSpacerBepaler()
+	#dim SpacerProductId As %String = ..SpacerBepaler.GeefSpacerProductId(RugLadeOnderdeelStub)
 	
-	#dim SpacerProductId As %String = SpacerBepaler.GeefSpacerProductId(RugLadeOnderdeelStub)
-	
 	Do $$$AssertEquals(SpacerProductId, "1865981")
 ]]></Implementation>
 </Method>
@@ -21,10 +33,8 @@
 	#dim ZijkantLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant).%New()
 	Do ZijkantLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant())
 	
-	#dim SpacerBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler = ..GeefSpacerBepaler()
+	#dim SpacerProductId As %String = ..SpacerBepaler.GeefSpacerProductId(ZijkantLadeOnderdeelStub)
 	
-	#dim SpacerProductId As %String = SpacerBepaler.GeefSpacerProductId(ZijkantLadeOnderdeelStub)
-	
 	Do $$$AssertEquals(SpacerProductId, "1865981")
 ]]></Implementation>
 </Method>
@@ -34,10 +44,8 @@
 	#dim FrontLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Front).%New()
 	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front())
 	
-	#dim SpacerBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler = ..GeefSpacerBepaler()
+	#dim SpacerProductId As %String = ..SpacerBepaler.GeefSpacerProductId(FrontLadeOnderdeelStub)
 	
-	#dim SpacerProductId As %String = SpacerBepaler.GeefSpacerProductId(FrontLadeOnderdeelStub)
-	
 	Do $$$AssertEquals(SpacerProductId, "1865982")
 ]]></Implementation>
 </Method>
@@ -50,9 +58,7 @@
 	#dim BodemLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Bodem).%New()
 	Do BodemLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Bodem())
 	
-	#dim SpacerBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler = ..GeefSpacerBepaler()
-	
-	#dim SpacerProductId As %String = SpacerBepaler.GeefSpacerProductId(BodemLadeOnderdeelStub)
+	#dim SpacerProductId As %String = ..SpacerBepaler.GeefSpacerProductId(BodemLadeOnderdeelStub)
 ]]></Implementation>
 </Method>
 
@@ -63,10 +69,8 @@
 	#dim FrontLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Front).%New()
 	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front())
 	
-	#dim SpacerBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler = ..GeefSpacerBepaler()
+	#dim SpacersPerDoos As %String = ..SpacerBepaler.GeefAantalSpacersPerDoos(FrontLadeOnderdeelStub, BestelEenheid)
 	
-	#dim SpacersPerDoos As %String = SpacerBepaler.GeefAantalSpacersPerDoos(FrontLadeOnderdeelStub, BestelEenheid)
-	
 	Do $$$AssertEquals(SpacersPerDoos, 6)
 ]]></Implementation>
 </Method>
@@ -78,10 +82,8 @@
 	#dim ZijkantLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant).%New()
 	Do ZijkantLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant())
 	
-	#dim SpacerBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler = ..GeefSpacerBepaler()
+	#dim SpacersPerDoos As %String = ..SpacerBepaler.GeefAantalSpacersPerDoos(ZijkantLadeOnderdeelStub, BestelEenheid)
 	
-	#dim SpacersPerDoos As %String = SpacerBepaler.GeefAantalSpacersPerDoos(ZijkantLadeOnderdeelStub, BestelEenheid)
-	
 	Do $$$AssertEquals(SpacersPerDoos, 9)
 ]]></Implementation>
 </Method>
@@ -93,10 +95,8 @@
 	#dim RugLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Rug).%New()
 	Do RugLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug())
 	
-	#dim SpacerBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler = ..GeefSpacerBepaler()
+	#dim SpacersPerDoos As %String = ..SpacerBepaler.GeefAantalSpacersPerDoos(RugLadeOnderdeelStub, BestelEenheid)
 	
-	#dim SpacersPerDoos As %String = SpacerBepaler.GeefAantalSpacersPerDoos(RugLadeOnderdeelStub, BestelEenheid)
-	
 	Do $$$AssertEquals(SpacersPerDoos, 9)
 ]]></Implementation>
 </Method>
@@ -111,18 +111,9 @@
 	#dim BodemLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Bodem).%New()
 	Do BodemLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Bodem())
 	
-	#dim SpacerBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler = ..GeefSpacerBepaler()
-	
-	#dim SpacersPerDoos As %String = SpacerBepaler.GeefAantalSpacersPerDoos(BodemLadeOnderdeelStub, BestelEenheid)
+	#dim SpacersPerDoos As %String = ..SpacerBepaler.GeefAantalSpacersPerDoos(BodemLadeOnderdeelStub, BestelEenheid)
 ]]></Implementation>
 </Method>
-
-<Method name="GeefSpacerBepaler">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler).%New()
-]]></Implementation>
-</Method>
 </Class>