Index: vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml
===================================================================
diff -u -r33793 -r33816
--- vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 33793)
+++ vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 33816)
@@ -222,7 +222,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test VulProjectReferentieAanMetLadeNaamIndienSpaceTower geen SPT">
+<Method name="Test VulAanProjectReferentieMetLadeNaamIndienSpaceTower doet niets indien geen Space Tower op de orderlijn">
 <Implementation><![CDATA[
 	#Dim ProductOrderLijn As vhTest.Mock.DOM.VKP.ProductOrderlijn = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()
 	Do ProductOrderLijn.IndienMethodCall("GeefProductID").DanReturn(1)
@@ -237,38 +237,40 @@
 	Set ProjectRefInfoItem.Waarde = "a"
 	
 	#Dim EtiketBuilder As APPS.Halux.Docs.impl.LadeKlantEtiketBuilder = ##class(APPS.Halux.Docs.impl.LadeKlantEtiketBuilder).%New()
-	Do EtiketBuilder.VulProjectReferentieAanMetLadeNaamIndienSpaceTower(ProductOrderLijn, ToeleveringLijn, .ProjectRefInfoItem)
+	Do EtiketBuilder.VulAanProjectReferentieMetLadeNaamIndienSpaceTower(ProductOrderLijn, ToeleveringLijn, .ProjectRefInfoItem)
 	
 	Do $$$AssertEquals("a", ProjectRefInfoItem.Waarde)
 ]]></Implementation>
 </Method>
 
-<Method name="Test VulProjectReferentieAanMetLadeNaamIndienSpaceTower wel SPT">
+<Method name="Test VulAanProjectReferentieMetLadeNaamIndienSpaceTower doet de juiste aanvulling indien wel Space Tower op de orderlijn">
 <Implementation><![CDATA[
-	Do ..AssertVulProjectReferentieAanMetLadeNaamIndienSpaceTower(/*SPT*/ 0, /*LBX*/ 0, "", 	"", 	"")
-	Do ..AssertVulProjectReferentieAanMetLadeNaamIndienSpaceTower(/*SPT*/ 1, /*LBX*/ 0, "", 	"", 	"")
-	Do ..AssertVulProjectReferentieAanMetLadeNaamIndienSpaceTower(/*SPT*/ 1, /*LBX*/ 1, "M", 	"", 	" BOX1")
-	Do ..AssertVulProjectReferentieAanMetLadeNaamIndienSpaceTower(/*SPT*/ 1, /*LBX*/ 1, "C", 	"Laag", " BOX2")
-	Do ..AssertVulProjectReferentieAanMetLadeNaamIndienSpaceTower(/*SPT*/ 1, /*LBX*/ 1, "C", 	"Hoog", " BOX3")
+	Do ..AssertVulAanProjectReferentieMetLadeNaamIndienSpaceTower(/*SPT*/ 0, /*LBX*/ 0, "", 	"", 	"")
+	Do ..AssertVulAanProjectReferentieMetLadeNaamIndienSpaceTower(/*SPT*/ 1, /*LBX*/ 0, "", 	"", 	"")
+	Do ..AssertVulAanProjectReferentieMetLadeNaamIndienSpaceTower(/*SPT*/ 1, /*LBX*/ 1, "M", 	"", 	" BOX1")
+	Do ..AssertVulAanProjectReferentieMetLadeNaamIndienSpaceTower(/*SPT*/ 1, /*LBX*/ 1, "C", 	"Laag", " BOX2")
+	Do ..AssertVulAanProjectReferentieMetLadeNaamIndienSpaceTower(/*SPT*/ 1, /*LBX*/ 1, "C", 	"Hoog", " BOX3")
 ]]></Implementation>
 </Method>
 
-<Method name="AssertVulProjectReferentieAanMetLadeNaamIndienSpaceTower">
+<Method name="AssertVulAanProjectReferentieMetLadeNaamIndienSpaceTower">
 <FormalSpec>OrderLijnProductIsSpaceTower:%Boolean,ToeleveringLijnProductIsLegrabox:%Boolean,LadeHoogte:%String,VoorWandVerhogingHoogte:%String,VerwachteReferentieSuffix:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#Dim ProductOrderLijn As vhTest.Mock.DOM.VKP.ProductOrderlijn = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()
-	Do ProductOrderLijn.IndienMethodCall("GeefProductID").DanReturn(1)
+	#Define DummyProductIDSpaceTower "Dummy Space Tower ProductID"
+	#Dim OrderLijn As vhTest.Mock.DOM.VKP.ProductOrderlijn = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()
+	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()
-	Do ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(2)
+	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", 1).DanReturn(OrderLijnProductIsSpaceTower)
+	Do ProductTypeAPI.IndienMethodCall("IsSpaceTowerProduct", $$$DummyProductIDSpaceTower).DanReturn(OrderLijnProductIsSpaceTower)
 	
 	If OrderLijnProductIsSpaceTower {
 		
-		Do ProductTypeAPI.IndienMethodCall("IsLegraboxProduct", 2).DanReturn(ToeleveringLijnProductIsLegrabox)
+		Do ProductTypeAPI.IndienMethodCall("IsLegraboxProduct", $$$DummyProductIDKindVanSpaceTower).DanReturn(ToeleveringLijnProductIsLegrabox)
 		
 		If ToeleveringLijnProductIsLegrabox {
 			#Dim LegraboxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).DummyLade()
@@ -278,18 +280,19 @@
 			#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",2).DanReturn(Legrabox)	
+			Do ProductTypeAPI.IndienMethodCall("GeefLegraboxProduct", $$$DummyProductIDKindVanSpaceTower).DanReturn(Legrabox)	
 		}
 		
 	}
 	
+	#Define ProjectReferentieVanopOrderLijn "ProjectReferentieVanopOrderLijn"
 	#Dim ProjectRefInfoItem As APPS.Halux.Docs.impl.InfoItem = ##class(APPS.Halux.Docs.impl.InfoItem).%New()
-	Set ProjectRefInfoItem.Waarde = "a"
+	Set ProjectRefInfoItem.Waarde = $$$ProjectReferentieVanopOrderLijn
 	
 	#Dim EtiketBuilder As APPS.Halux.Docs.impl.LadeKlantEtiketBuilder = ##class(APPS.Halux.Docs.impl.LadeKlantEtiketBuilder).%New()
-	Do EtiketBuilder.VulProjectReferentieAanMetLadeNaamIndienSpaceTower(ProductOrderLijn, ToeleveringLijn, .ProjectRefInfoItem)
+	Do EtiketBuilder.VulAanProjectReferentieMetLadeNaamIndienSpaceTower(OrderLijn, ToeleveringLijn, .ProjectRefInfoItem)
 	
-	Do $$$AssertEquals("a"_VerwachteReferentieSuffix, ProjectRefInfoItem.Waarde, OrderLijnProductIsSpaceTower_ToeleveringLijnProductIsLegrabox_LadeHoogte_VoorWandVerhogingHoogte)
+	Do $$$AssertEquals($$$ProjectReferentieVanopOrderLijn_VerwachteReferentieSuffix, ProjectRefInfoItem.Waarde, "Geval : "_OrderLijnProductIsSpaceTower_ToeleveringLijnProductIsLegrabox_LadeHoogte_VoorWandVerhogingHoogte)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml
===================================================================
diff -u -r33793 -r33816
--- APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml	(.../LadeKlantEtiketBuilder.cls.xml)	(revision 33793)
+++ APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml	(.../LadeKlantEtiketBuilder.cls.xml)	(revision 33816)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.Docs.impl.LadeKlantEtiketBuilder">
+<IncludeCode>vhLib.Macro</IncludeCode>
 <Super>%RegisteredObject</Super>
 
 <Parameter name="AantalInfosOpEtiket">
@@ -20,14 +21,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductTypeAPI">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
+<FormalSpec>ProductTypeAPI:DOM.PM.ProductTypeAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..AfleverAdresNaamBepaler = ##class(APPS.Halux.Docs.impl.AfleverAdresNaamBepaler).%New()
 	Set ..OrderReferentieBepaler = ##class(APPS.Halux.Docs.impl.OrderReferentieBepaler).%New()
+	Set ..ProductTypeAPI = $$$Inject(ProductTypeAPI, ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -315,21 +323,19 @@
 	Set InfoItem = ##class(APPS.Halux.Docs.impl.InfoItem).%New()
 	Set InfoItem.Naam = "Project Ref."
 	Set InfoItem.Waarde = ProductOrderLijn.GeefProjectReferentie()
-	Do ..VulProjectReferentieAanMetLadeNaamIndienSpaceTower(ProductOrderLijn, .InfoItem, ToeleveringLijn)
+	Do ..VulAanProjectReferentieMetLadeNaamIndienSpaceTower(ProductOrderLijn, .InfoItem, ToeleveringLijn)
 	Do:(InfoItem.Waarde'="") InfoItems.Insert(InfoItem)
 	
 	Quit InfoItems
 ]]></Implementation>
 </Method>
 
-<Method name="VulProjectReferentieAanMetLadeNaamIndienSpaceTower">
+<Method name="VulAanProjectReferentieMetLadeNaamIndienSpaceTower">
 <FormalSpec><![CDATA[ProductOrderLijn:DOM.VKP.ProductOrderlijn,ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,&ProjectRefInfoItem:APPS.Halux.Docs.impl.InfoItem]]></FormalSpec>
 <Implementation><![CDATA[
-	#Dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
-	
-	If ProductTypeAPI.IsSpaceTowerProduct(ProductOrderLijn.GeefProductID()) {
-		If (ToeleveringLijn '= "") && (ProductTypeAPI.IsLegraboxProduct(ToeleveringLijn.GeefProductID())) {
-			#Dim Legrabox As DOM.PM.LBXProduct.LBXLade = ProductTypeAPI.GeefLegraboxProduct(ToeleveringLijn.GeefProductID())
+	If ..ProductTypeAPI.IsSpaceTowerProduct(ProductOrderLijn.GeefProductID()) {
+		If $IsObject(ToeleveringLijn) && (..ProductTypeAPI.IsLegraboxProduct(ToeleveringLijn.GeefProductID())) {
+			#Dim Legrabox As DOM.PM.LBXProduct.LBXLade = ..ProductTypeAPI.GeefLegraboxProduct(ToeleveringLijn.GeefProductID())
 			#Dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = Legrabox.GeefIngegevenKenmerken()
 			
 			If IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M() {