Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml
===================================================================
diff -u -r39026 -r39033
--- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml	(.../LegacyNaarEdi.cls.xml)	(revision 39026)
+++ APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml	(.../LegacyNaarEdi.cls.xml)	(revision 39033)
@@ -13,6 +13,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Klasse">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Zijwand">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Rughoogte">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>TBXLadeCodeBepaler:APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler</FormalSpec>
 <Private>1</Private>
@@ -31,7 +46,7 @@
 <Implementation><![CDATA[
 	Set TBXProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	
-	//Do ..PeuterLadeCodeOpen(Product.ItemLT)
+	Do ..PeuterLadeCodeOpen(Product.ItemLT)
 	
 	Do ..ObjectConverter.Convert(Product,TBXProduct,..GeefConvertDataTBX())
 	
@@ -40,6 +55,7 @@
 	Do ..ConvertFrontOndersteuningAantal(Product,TBXProduct)
 	Do ..ConvertInschuifElement(Product,TBXProduct)
 	Do ..ConvertCorpusWandDikte(Product,TBXProduct)
+	Do ..ConvertLadeType(Product,TBXProduct)
 	
 	/*Do ..ConvertDesignEnKleuren(Product,TBXProduct)
 
@@ -145,6 +161,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertLadeType">
+<FormalSpec><![CDATA[Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,&TBXProduct:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TBXProduct.Klasse = ..Klasse
+	Set TBXProduct.Type = "TBX"
+	Set TBXProduct.RugHoogte = ..Rughoogte
+	Set TBXProduct.IsBinnenlade = (..LadeType = "B")
+]]></Implementation>
+</Method>
+
 <Method name="GeefConvertDataTBX">
 <Private>1</Private>
 <ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
@@ -164,6 +191,24 @@
 	Quit ConvertData
 ]]></Implementation>
 </Method>
+
+<Method name="PeuterLadeCodeOpen">
+<FormalSpec>LCodeID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set LCode=##class(Prod.GAMeta.BT.LadeCode).%OpenId(LCodeID)
+	Quit:('LCode)
+	#dim Key As %String = ""
+	#dim TBVal As %String = ""
+	#dim arKenm
+	For  Set TBVal=LCode.TBKenm.GetNext(.Key) Quit:(Key="")  Do
+	. Set arKenm(Key)=TBVal
+	
+	Set ..Klasse = arKenm("TBKlasse")
+	Set ..LadeType = arKenm("TBLadeType")
+	Set ..Zijwand = arKenm("TBZijwand")
+	Set ..Rughoogte = arKenm("TBRugHoogte")
+]]></Implementation>
+</Method>
 </Class>