Index: ECONtools/PM/Maatwerk/dto/ProductConverter.cls.xml
===================================================================
diff -u -r38833 -r38874
--- ECONtools/PM/Maatwerk/dto/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 38833)
+++ ECONtools/PM/Maatwerk/dto/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 38874)
@@ -3,12 +3,87 @@
 <Class name="ECONtools.PM.Maatwerk.dto.ProductConverter">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="Converter">
+<Type>TECH.ObjectUtils.impl.ObjectConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ConverterData">
+<Type>TECH.ObjectUtils.ObjectConvertData</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Converter = ##class(TECH.ObjectUtils.impl.ObjectConverter).%New()
+	Set ..ConverterData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Converteer">
 <FormalSpec>Product:ECON.PM.Maatwerk.dto.TbxKenmerken</FormalSpec>
 <ReturnType>APPS.EDI.common.dto.Product</ReturnType>
-<Implementation><![CDATA[	Quit
+<Implementation><![CDATA[
+	Set Eigenschappen = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Do ..Converter.Convert(Product,Eigenschappen,..LadeEigenschappenConverteerOptiesTBX)
+	
+	Set Eigenschappen.HeeftDwarsverdeling = $$$If(+Product.DwarsverdelingAantal>0,$$$True,$$$False)
+	Set Eigenschappen.HeeftMat = $$$If($$$HasLength(Product.MatMateriaal),$$$True,$$$False)
+	Set Eigenschappen.Klasse = Product.Toepassing
+	Set Eigenschappen.Type = "TBX"
+	Set Eigenschappen.GreepEnMeenemer = $Case(Product.GreepEnMeenemer,"Zonder":"No","Greep":"Handle","Meenemer":"HandleAndLatch",:"No")
+	Set Eigenschappen.ZijwandVerhogingType = $Case(Product.ZijwandVerhogingType,"Laag":"NoGallery","Reling":"SimpleGallery","InschuifElement":"DesignElement",:"NoGallery")
+	
+	Quit Eigenschappen
 ]]></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[
+	#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="AantalDwarsverdelingen"
+		Continue:PropertyName="HeeftDwarsverdeling"
+		Continue:PropertyName="HeeftMat"
+		Continue:PropertyName="Klasse"
+		Continue:PropertyName="TussenrugMateriaal"
+		Continue:PropertyName="Type"
+		Continue:PropertyName="UitsparingDataAantalUitsparingen"
+		Continue:PropertyName="UitsparingDataBreedteM"
+		Continue:PropertyName="UitsparingDataBreedteX"
+		Continue:PropertyName="UitsparingDataBreedteY"
+		Continue:PropertyName="UitsparingDataBreedteZ1"
+		Continue:PropertyName="UitsparingDataBreedteZ2"
+		Continue:PropertyName="ZijwandVerhogingKleur"
+		Continue:PropertyName="ZijwandVerhogingRelingKleur"
+		
+		Do ..ConverterData.Add(PropertyName,PropertyName)
+	}
+	
+	Quit ..ConverterData
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/ECONtools/PM/Maatwerk/dto/ProductConverter/Converteer/TestTBX.cls.xml
===================================================================
diff -u -r38833 -r38874
--- vhUnitTest/ECONtools/PM/Maatwerk/dto/ProductConverter/Converteer/TestTBX.cls.xml	(.../TestTBX.cls.xml)	(revision 38833)
+++ vhUnitTest/ECONtools/PM/Maatwerk/dto/ProductConverter/Converteer/TestTBX.cls.xml	(.../TestTBX.cls.xml)	(revision 38874)
@@ -8,9 +8,27 @@
 	#dim TeConverterenProduct As ECON.PM.Maatwerk.dto.TbxKenmerken = ##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TbxKenmerken).StandaardLade()
 	#dim ProductConverter = ##class(ECONtools.PM.Maatwerk.dto.ProductConverter).%New()
 	
-	//Do $$$AssertObject(ProductConverter.Converteer(TeConverterenProduct),##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).StandaardLade())
+	Do $$$AssertObject(ProductConverter.Converteer(TeConverterenProduct),##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).StandaardLade())
 ]]></Implementation>
 </Method>
+
+<Method name="Test: converteer DMZLade">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct As ECON.PM.Maatwerk.dto.TbxKenmerken = ##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TbxKenmerken).DMZLade()
+	#dim ProductConverter = ##class(ECONtools.PM.Maatwerk.dto.ProductConverter).%New()
+	
+	Do $$$AssertObject(ProductConverter.Converteer(TeConverterenProduct),##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).DMZLade())
+]]></Implementation>
+</Method>
+
+<Method name="aTest: converteer LadeMetVeelExtras">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct As ECON.PM.Maatwerk.dto.TbxKenmerken = ##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TbxKenmerken).LadeMetVeelExtras()
+	#dim ProductConverter = ##class(ECONtools.PM.Maatwerk.dto.ProductConverter).%New()
+	
+	Do $$$AssertObject(ProductConverter.Converteer(TeConverterenProduct),##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).LadeMetVeelExtras())
+]]></Implementation>
+</Method>
 </Class>