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>