Index: vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml
===================================================================
diff -u -r65403 -r65404
--- vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 65403)
+++ vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 65404)
@@ -369,7 +369,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test VulAanProjectReferentieMetLadeNaamIndienSpaceTower doet de juiste aanvulling indien wel Space Tower op de orderlijn">
+<Method name="Test: VulAanProjectReferentieMetLadeNaamIndienSpaceTower doet de juiste aanvulling indien wel Space Tower op de orderlijn">
 <Implementation><![CDATA[
 	Do ..AssertVulAanProjectReferentieMetLadeNaamIndienSpaceTower(/*SPT*/ 0, /*LBX*/ 0, "", 	"", 	"")
 	Do ..AssertVulAanProjectReferentieMetLadeNaamIndienSpaceTower(/*SPT*/ 1, /*LBX*/ 0, "", 	"", 	"")
@@ -383,39 +383,36 @@
 <FormalSpec>OrderLijnProductIsSpaceTower:%Boolean,ToeleveringLijnProductIsLegrabox:%Boolean,LadeHoogte:%String,VoorWandVerhogingHoogte:%String,VerwachteReferentieSuffix:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#Define DummyProductIDSpaceTower "Dummy Space Tower ProductID"
-	#Dim OrderLijn As vhTest.Mock.DOM.VKP.ProductOrderlijn = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()
+	#define DummyProductIDSpaceTower "Dummy Space Tower ProductID"
+	#dim OrderLijn As vhTest.Mock.DOM.VKP.ProductOrderlijn = ..GeefStandaardProductOrderLijn("")
 	Do OrderLijn.IndienMethodCall("GeefProductID").DanReturn($$$DummyProductIDSpaceTower)
 	
-	#Define DummyProductIDKindVanSpaceTower "Dummy ProductID van kind van Space Tower"
-	#Dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
+	#define DummyProductIDKindVanSpaceTower "Dummy ProductID van kind van Space Tower"
+	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
 	Do ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn($$$DummyProductIDKindVanSpaceTower)
 	
-	#Dim ProductTypeAPI As vhTest.Mock.DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).MockInstance()
-	Do ProductTypeAPI.IndienMethodCall("IsSpaceTowerProduct", $$$DummyProductIDSpaceTower).DanReturn(OrderLijnProductIsSpaceTower)
+	Do ..ProductTypeApiMock.IndienMethodCall("IsSpaceTowerProduct", $$$DummyProductIDSpaceTower).DanReturn(OrderLijnProductIsSpaceTower)
 	
 	If OrderLijnProductIsSpaceTower {
+		Do ..ProductTypeApiMock.IndienMethodCall("IsLegraboxProduct", $$$DummyProductIDKindVanSpaceTower).DanReturn(ToeleveringLijnProductIsLegrabox)
 		
-		Do ProductTypeAPI.IndienMethodCall("IsLegraboxProduct", $$$DummyProductIDKindVanSpaceTower).DanReturn(ToeleveringLijnProductIsLegrabox)
-		
 		If ToeleveringLijnProductIsLegrabox {
-			#Dim LegraboxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+			#dim LegraboxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
 			Set LegraboxKenmerken.LadeHoogte = LadeHoogte
 			Set LegraboxKenmerken.VoorWandVerhogingHoogte = VoorWandVerhogingHoogte
 	
-			#Dim Legrabox As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ##class(vhTest.Mock.DOM.PM.LBXProduct.LBXLade).%New()
+			#dim Legrabox As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ##class(vhTest.Mock.DOM.PM.LBXProduct.LBXLade).%New()
 			Do Legrabox.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(LegraboxKenmerken)
 		
-			Do ProductTypeAPI.IndienMethodCall("GeefLegraboxProduct", $$$DummyProductIDKindVanSpaceTower).DanReturn(Legrabox)	
-		}
-		
+			Do ..ProductTypeApiMock.IndienMethodCall("GeefLegraboxProduct", $$$DummyProductIDKindVanSpaceTower).DanReturn(Legrabox)	
+		}	
 	}
 	
-	#Define ProjectReferentieVanopOrderLijn "ProjectReferentieVanopOrderLijn"
-	#Dim ProjectRefInfoItem As APPS.Halux.Docs.impl.InfoItem = ##class(APPS.Halux.Docs.impl.InfoItem).%New()
+	#define ProjectReferentieVanopOrderLijn "ProjectReferentieVanopOrderLijn"
+	#dim ProjectRefInfoItem As APPS.Halux.Docs.impl.InfoItem = ##class(APPS.Halux.Docs.impl.InfoItem).%New()
 	Set ProjectRefInfoItem.Waarde = $$$ProjectReferentieVanopOrderLijn
 	
-	#Dim EtiketBuilder As APPS.Halux.Docs.impl.LadeKlantEtiketBuilder = ##class(APPS.Halux.Docs.impl.LadeKlantEtiketBuilder).%New()
+	#dim EtiketBuilder As APPS.Halux.Docs.impl.LadeKlantEtiketBuilder = ##class(APPS.Halux.Docs.impl.LadeKlantEtiketBuilder).%New(..ProductTypeApiMock)
 	Do EtiketBuilder.VulAanProjectReferentieMetLadeNaamIndienSpaceTower(OrderLijn, ToeleveringLijn, .ProjectRefInfoItem)
 	
 	Do $$$AssertEquals($$$ProjectReferentieVanopOrderLijn_VerwachteReferentieSuffix, ProjectRefInfoItem.Waarde, "Geval : "_OrderLijnProductIsSpaceTower_ToeleveringLijnProductIsLegrabox_LadeHoogte_VoorWandVerhogingHoogte)