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() {