Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml
===================================================================
diff -u -r67461 -r67768
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml	(.../BladInhoudBuilderNieuweBomBol.cls.xml)	(revision 67461)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml	(.../BladInhoudBuilderNieuweBomBol.cls.xml)	(revision 67768)
@@ -38,7 +38,22 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
  	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ..Product.GeefIngegevenKenmerken()
- 	Quit IngegevenKenmerken.LegacyKenmerken.ItemLT
+ 	#dim LadeCode As %String = IngegevenKenmerken.LegacyKenmerken.ItemLT
+ 	
+ 	If (LadeCode = "") {
+	 	Set DomNaarAppsConvertor = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tbx).%New()
+		Set AppsNaarEconConvertor = ##class(ECONimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarEcon.Tbx).%New()
+		Set EdiConverter = ##class(ECONimpl.PM.Maatwerk.EdiConverter).%New()
+		Set LegacyConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
+		
+		#dim AppsKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerken = DomNaarAppsConvertor.Converteer(IngegevenKenmerken)
+		#dim EconKenmerken As ECON.PM.Maatwerk.dto.TbxKenmerken = AppsNaarEconConvertor.Converteer(AppsKenmerken)
+		#dim LegacyKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = LegacyConverter.ConverteerEdiNaarLegacy(EdiConverter.ConverteerEconNaarEdi(EconKenmerken))
+		
+		Set LadeCode = LegacyKenmerken.ItemLT
+ 	}
+ 	
+ 	Quit LadeCode
 ]]></Implementation>
 </Method>
 
@@ -47,7 +62,13 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
  	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ..Product.GeefIngegevenKenmerken()
-	Quit IngegevenKenmerken.LadeDiepte
+ 	#dim LadeDiepte As %String = IngegevenKenmerken.LadeDiepte
+ 	
+ 	If $$$Not(LadeDiepte > 0) {
+	 	Set LadeDiepte = IngegevenKenmerken.LegacyKenmerken.ItemLD
+ 	}
+ 	
+	Quit LadeDiepte
 ]]></Implementation>
 </Method>