Index: vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml
===================================================================
diff -u -r30074 -r33782
--- vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 30074)
+++ vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 33782)
@@ -59,7 +59,7 @@
 	Do ProductOrderLijn.ZetProjectReferentie("UT ProjectRef")
 	
 	#dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,Partij,1)
-	Do EtiketBuilder.VulInOrderInfo(Etiket,..Data.Order,Partij,ProductOrderLijn)
+	Do EtiketBuilder.VulInOrderInfo(Etiket,..Data.Order,Partij,ProductOrderLijn,"")
 	
 	Do $$$AssertEquals(Etiket.KlantBarcode,"","Standaard gebruiken klanten geen KlantBarcode.")
 	Do $$$AssertEquals(Etiket.VerzendWijze,"OD2")
@@ -82,19 +82,19 @@
 	Do ProductOrderLijn.ZetPakketReferentie("UT PakketRef")	
 	Do ProductOrderLijn.ZetProjectReferentie("")	
 	#dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,Partij,1)
-	Do ..EtiketBuilder.VulInOrderInfo(Etiket,..Data.Order,Partij,ProductOrderLijn)
+	Do ..EtiketBuilder.VulInOrderInfo(Etiket,..Data.Order,Partij,ProductOrderLijn,"")
 	Do $$$AssertEquals(Etiket.Info4,"UT PakketRef")
 	
 	Do ProductOrderLijn.ZetPakketReferentie("")	
 	Do ProductOrderLijn.ZetProjectReferentie("UT ProjectRef")	
 	Set Etiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,Partij,1)
-	Do ..EtiketBuilder.VulInOrderInfo(Etiket,..Data.Order,Partij,ProductOrderLijn)
+	Do ..EtiketBuilder.VulInOrderInfo(Etiket,..Data.Order,Partij,ProductOrderLijn,"")
 	Do $$$AssertEquals(Etiket.Info4,"UT ProjectRef")
 	
 	Do ProductOrderLijn.ZetPakketReferentie("UT PakketRef")
 	Do ProductOrderLijn.ZetProjectReferentie("UT ProjectRef")
 	Set Etiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,Partij,1)
-	Do ..EtiketBuilder.VulInOrderInfo(Etiket,..Data.Order,Partij,ProductOrderLijn)
+	Do ..EtiketBuilder.VulInOrderInfo(Etiket,..Data.Order,Partij,ProductOrderLijn,"")
 	Do $$$AssertEquals(Etiket.Info4,"UT PakketRef / UT ProjectRef")
 ]]></Implementation>
 </Method>
@@ -113,7 +113,7 @@
 	Do ProductOrderLijn.ZetPakketReferentie("UT PakketRef")	
 	Do ProductOrderLijn.ZetProjectReferentie("2B058108160")	
 	#dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,PartijMetKlantBarcode,1)
-	Do ..EtiketBuilder.VulInOrderInfo(Etiket,Order,PartijMetKlantBarcode,ProductOrderLijn)
+	Do ..EtiketBuilder.VulInOrderInfo(Etiket,Order,PartijMetKlantBarcode,ProductOrderLijn,"")
 	
 	Do $$$AssertEquals(Etiket.Info1,"UT Order Ref")
 	Do $$$AssertEquals(Etiket.Info2,"UT CommRef")
@@ -132,7 +132,7 @@
 	#dim Order As DOM.VKP.Order = ..Data.MaaktDataOrder(##class(DOM.VKP.enu.Klant).GroupNivelles())	
 	#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = Order.GeefOrderLijnViaVolgnummer(101)
 	#dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,PartijMetToonKlantNummer,1)
-	Do ..EtiketBuilder.VulInOrderInfo(Etiket,Order,PartijMetToonKlantNummer,ProductOrderLijn)
+	Do ..EtiketBuilder.VulInOrderInfo(Etiket,Order,PartijMetToonKlantNummer,ProductOrderLijn,"")
 	
 	Do $$$AssertEquals(Etiket.Info1,"@4451")
 	
@@ -150,7 +150,7 @@
 	Do Order.Save()
 	
 	#dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,PartijMetKlantOrderNummer,1)
-	Do ..EtiketBuilder.VulInOrderInfo(Etiket,Order,PartijMetKlantOrderNummer,ProductOrderLijn)
+	Do ..EtiketBuilder.VulInOrderInfo(Etiket,Order,PartijMetKlantOrderNummer,ProductOrderLijn,"")
 	
 	Do $$$AssertEquals(Etiket.Info1,"123456UT")
 	Do $$$AssertEquals(Etiket.Info2,"UT Order Ref")
@@ -167,7 +167,7 @@
 	#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = Order.GeefOrderLijnViaVolgnummer(101)
 	
 	#dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,PartijMetKlantOrderNummer,1)
-	Do ..EtiketBuilder.VulInOrderInfo(Etiket,Order,PartijMetKlantOrderNummer,ProductOrderLijn)
+	Do ..EtiketBuilder.VulInOrderInfo(Etiket,Order,PartijMetKlantOrderNummer,ProductOrderLijn,"")
 	
 	Do $$$AssertEquals(Etiket.LblInfo1,"Order Ref.","Als eigen logo aanwezig is, wordt de klantnaam niet meer getoond en schuift Order Referentie op naar boven.")
 	Do $$$AssertEquals(Etiket.LblInfo2,"Commissie Ref.","Commissie Ref schuift op naar boven.")
@@ -187,7 +187,7 @@
 	Do ..Data.Order.Save()
 	
 	#Dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,Partij,1)
-	Do ..EtiketBuilder.VulInOrderInfo(Etiket,..Data.Order,Partij,ProductOrderLijn)
+	Do ..EtiketBuilder.VulInOrderInfo(Etiket,..Data.Order,Partij,ProductOrderLijn,"")
 	
 	Do $$$AssertEquals(Etiket.LblInfo1,"Klant")
 	Do $$$AssertEquals(Etiket.Info1,"TestAdresNaam")
@@ -222,6 +222,77 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test VulProjectReferentieAanMetLadeNaamIndienSpaceTower geen SPT">
+<Implementation><![CDATA[
+	#Dim ProductOrderLijn As vhTest.Mock.DOM.VKP.ProductOrderlijn = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()
+	Do ProductOrderLijn.IndienMethodCall("GeefProductID").DanReturn(1)
+	
+	#Dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
+	Do ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(2)
+	
+	#Dim ProductTypeAPI As vhTest.Mock.DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).MockInstance()
+	Do ProductTypeAPI.IndienMethodCall("IsSpaceTowerProduct", 1).DanReturn(0)
+		
+	#Dim ProjectRefInfoItem As APPS.Halux.Docs.impl.InfoItem = ##class(APPS.Halux.Docs.impl.InfoItem).%New()
+	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 $$$AssertEquals("a", ProjectRefInfoItem.Waarde)
+]]></Implementation>
+</Method>
+
+<Method name="Test VulProjectReferentieAanMetLadeNaamIndienSpaceTower wel SPT">
+<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")
+]]></Implementation>
+</Method>
+
+<Method name="AssertVulProjectReferentieAanMetLadeNaamIndienSpaceTower">
+<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)
+	
+	#Dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
+	Do ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(2)
+	
+	#Dim ProductTypeAPI As vhTest.Mock.DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).MockInstance()
+	Do ProductTypeAPI.IndienMethodCall("IsSpaceTowerProduct", 1).DanReturn(OrderLijnProductIsSpaceTower)
+	
+	If OrderLijnProductIsSpaceTower {
+		
+		Do ProductTypeAPI.IndienMethodCall("IsLegraboxProduct", 2).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()
+			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()
+			Do Legrabox.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(LegraboxKenmerken)
+		
+			Do ProductTypeAPI.IndienMethodCall("GeefLegraboxProduct",2).DanReturn(Legrabox)	
+		}
+		
+	}
+	
+	#Dim ProjectRefInfoItem As APPS.Halux.Docs.impl.InfoItem = ##class(APPS.Halux.Docs.impl.InfoItem).%New()
+	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 $$$AssertEquals("a "_VerwachteReferentieSuffix, ProjectRefInfoItem.Waarde, OrderLijnProductIsSpaceTower_ToeleveringLijnProductIsLegrabox_LadeHoogte_VoorWandVerhogingHoogte)
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductOrderLijn">
 <Private>1</Private>
 <ReturnType>DOM.VKP.ProductOrderlijn</ReturnType>
Index: APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml
===================================================================
diff -u -r30801 -r33782
--- APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml	(.../LadeKlantEtiketBuilder.cls.xml)	(revision 30801)
+++ APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml	(.../LadeKlantEtiketBuilder.cls.xml)	(revision 33782)
@@ -92,7 +92,7 @@
 	If ToeleveringLijn.GeefOrderID()'="" {
 		#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(ToeleveringLijn.GeefOrderID())
 		#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = Order.GeefOrderLijnViaVolgnummer(ToeleveringLijn.GeefOrderLijnVolgnummer())
-		Set Etiket = ..VulInOrderInfo(Etiket,Order,Partij,ProductOrderLijn)
+		Set Etiket = ..VulInOrderInfo(Etiket,Order,Partij,ProductOrderLijn, ToeleveringLijn)
 	}Else{
 		Set InfoItems = ##class(%ListOfObjects).%New()
 			
@@ -114,7 +114,7 @@
 </Method>
 
 <Method name="VulInOrderInfo">
-<FormalSpec>Etiket:BL.Etiket.LadeKlantEtiket,Order:DOM.VKP.Order,Partij:DOM.PARTIJ.Partij,ProductOrderLijn:DOM.VKP.ProductOrderlijn</FormalSpec>
+<FormalSpec>Etiket:BL.Etiket.LadeKlantEtiket,Order:DOM.VKP.Order,Partij:DOM.PARTIJ.Partij,ProductOrderLijn:DOM.VKP.ProductOrderlijn,ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
 <ReturnType>BL.Etiket.LadeKlantEtiket</ReturnType>
 <Implementation><![CDATA[
 	Set Partij = ..GeefPartijVoorOrder(Order)
@@ -135,7 +135,7 @@
 	Set Etiket.OrderID = Order.GeefID()
 	Set Etiket.LogoImg = Klant.GeefLogo()
 
-	#dim InfoItems As %ListOfObjects = ..GeefInfoItems(Partij,ProductOrderLijn)	
+	#dim InfoItems As %ListOfObjects = ..GeefInfoItems(Partij, ProductOrderLijn, ToeleveringLijn)	
 	Do ..VoegToeInfoItems(Etiket,Partij,InfoItems)
 	
 	Quit Etiket
@@ -272,7 +272,7 @@
 </Method>
 
 <Method name="GeefInfoItems">
-<FormalSpec>Partij:DOM.PARTIJ.Partij,ProductOrderLijn:DOM.VKP.ProductOrderlijn</FormalSpec>
+<FormalSpec>Partij:DOM.PARTIJ.Partij,ProductOrderLijn:DOM.VKP.ProductOrderlijn,ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.Docs.impl.InfoItem"</ReturnTypeParams>
@@ -315,11 +315,37 @@
 	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:(InfoItem.Waarde'="") InfoItems.Insert(InfoItem)
 	
 	Quit InfoItems
 ]]></Implementation>
 </Method>
+
+<Method name="VulProjectReferentieAanMetLadeNaamIndienSpaceTower">
+<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 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() {
+				Set ProjectRefInfoItem.Waarde = ProjectRefInfoItem.Waarde _ " " _ "BOX1"
+			} Else {
+				If IngegevenKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Laag()
+				{
+					Set ProjectRefInfoItem.Waarde = ProjectRefInfoItem.Waarde _ " " _ "BOX2"
+				} Else {
+					Set ProjectRefInfoItem.Waarde = ProjectRefInfoItem.Waarde _ " " _ "BOX3"
+				}
+			}
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>