Index: EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappen/NietMeeleveren.cls.xml
===================================================================
diff -u -r36169 -r36174
--- EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappen/NietMeeleveren.cls.xml	(.../NietMeeleveren.cls.xml)	(revision 36169)
+++ EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappen/NietMeeleveren.cls.xml	(.../NietMeeleveren.cls.xml)	(revision 36174)
@@ -37,6 +37,24 @@
 <Parameter name="XMLNAME" value="TOBComponents"/>
 </Property>
 
+<Property name="Bodemsteun">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+<Parameter name="XMLNAME" value="BaseStabiliser"/>
+</Property>
+
+<Property name="Opvullijst">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+<Parameter name="XMLNAME" value="SupportPanel"/>
+</Property>
+
+<Property name="LadeZijkant">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+<Parameter name="XMLNAME" value="DesignElement"/>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>NietMeeleverenState</State>
@@ -57,6 +75,15 @@
 <Value name="5">
 <Value>TOBset</Value>
 </Value>
+<Value name="6">
+<Value>Bodemsteun</Value>
+</Value>
+<Value name="7">
+<Value>Opvullijst</Value>
+</Value>
+<Value name="8">
+<Value>LadeZijkant</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: EXT/Unishop/PurchaseOrder001/OrderConverter.cls.xml
===================================================================
diff -u -r35741 -r36174
--- EXT/Unishop/PurchaseOrder001/OrderConverter.cls.xml	(.../OrderConverter.cls.xml)	(revision 35741)
+++ EXT/Unishop/PurchaseOrder001/OrderConverter.cls.xml	(.../OrderConverter.cls.xml)	(revision 36174)
@@ -67,6 +67,18 @@
 		if OrderLine.Product.NietMeeleveren.GlijderType do LadeEigenschappen.NietMeeleveren.Insert("Glijder")
 		do ..Converter.Convert(OrderLine.Product,LadeEigenschappen,..LadeEigenschappenConverteerOptiesLBX)
 	}
+	ElseIf OrderLine.Product.%Extends(##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTBX).%ClassName($$$True)) {
+		set LadeEigenschappen = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+		if OrderLine.Product.NietMeeleveren.FrontBevestiging do LadeEigenschappen.NietMeeleveren.Insert("NMFS")
+		if OrderLine.Product.NietMeeleveren.GlijderType do LadeEigenschappen.NietMeeleveren.Insert("NMCP")
+		if OrderLine.Product.NietMeeleveren.Reling do LadeEigenschappen.NietMeeleveren.Insert("NMRL")
+		if OrderLine.Product.NietMeeleveren.Afdekkap do LadeEigenschappen.NietMeeleveren.Insert("NMAK")
+		if OrderLine.Product.NietMeeleveren.TOBset do LadeEigenschappen.NietMeeleveren.Insert("NMTOBSET")
+		if OrderLine.Product.NietMeeleveren.Bodemsteun do LadeEigenschappen.NietMeeleveren.Insert("NMBDS")
+		if OrderLine.Product.NietMeeleveren.Opvullijst do LadeEigenschappen.NietMeeleveren.Insert("NMOVL")
+		if OrderLine.Product.NietMeeleveren.LadeZijkant do LadeEigenschappen.NietMeeleveren.Insert("NMBS")
+		do ..Converter.Convert(OrderLine.Product,LadeEigenschappen,..LadeEigenschappenConverteerOptiesTBX)
+	}
 	
 	set ProductLijn.Product = LadeEigenschappen
 	
@@ -140,6 +152,39 @@
 ]]></Implementation>
 </Method>
 
+<Property name="LadeEigenschappenConverteerOptiesTBX">
+<Type>TECH.ObjectUtils.ObjectConvertData</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="LadeEigenschappenConverteerOptiesTBXGet">
+<Private>1</Private>
+<ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
+<Implementation><![CDATA[
+	set r%LadeEigenschappenConverteerOptiesTBX = $$$LazyLoad(r%LadeEigenschappenConverteerOptiesTBX,..VerzamelLadeEigenschappenConverteerOptiesTBX())
+	quit r%LadeEigenschappenConverteerOptiesTBX
+]]></Implementation>
+</Method>
+
+<Method name="VerzamelLadeEigenschappenConverteerOptiesTBX">
+<Implementation><![CDATA[
+	set ConverterData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+	#dim Properties As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties("APPS.EDI.common.dto.v001.LadeTBX")
+	set PropertyIterator = ##class(TECH.ListIterator).%New(Properties)
+	while PropertyIterator.HasNext() {
+		#dim PropertyName As %String = PropertyIterator.Next()
+		continue:PropertyName="NietMeeleveren"
+		continue:PropertyName="RugHoogte"
+		continue:PropertyName="AantalDwarsverdelingen"
+		
+		do ConverterData.Add(PropertyName,PropertyName)
+	}
+	do ConverterData.Add("LadeHoogte", "RugHoogte")
+	
+	quit ConverterData
+]]></Implementation>
+</Method>
+
 <Property name="OrderLijnConverteerOpties">
 <Type>TECH.ObjectUtils.ObjectConvertData</Type>
 <Private>1</Private>