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>