Index: ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx.cls.xml
===================================================================
diff -u -r51015 -r53844
--- ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx.cls.xml	(.../Tbx.cls.xml)	(revision 51015)
+++ ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx.cls.xml	(.../Tbx.cls.xml)	(revision 53844)
@@ -31,12 +31,149 @@
 <FormalSpec>AppsKenmerken:APPS.PM.Maatwerk.dto.LadeKenmerken</FormalSpec>
 <ReturnType>ECON.PM.Maatwerk.dto.EconConfiguratieKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim EdiKenmerken As APPS.EDI.common.dto.v001.LadeTBX = ..LegacyConverter.ConverteerLegacyNaarEdi(AppsKenmerken.LegacyKenmerken)
-	#dim EconKenmerken As ECON.PM.Maatwerk.dto.TbxKenmerken = ..EdiConverter.ConverteerEdiNaarEcon(EdiKenmerken)
+	#dim EconKenmerken As ECON.PM.Maatwerk.dto.TbxKenmerken
+	If $IsObject(AppsKenmerken.LegacyKenmerken) {
+		#dim EdiKenmerken As APPS.EDI.common.dto.v001.LadeTBX = ..LegacyConverter.ConverteerLegacyNaarEdi(AppsKenmerken.LegacyKenmerken)
+		Set EconKenmerken = ..EdiConverter.ConverteerEdiNaarEcon(EdiKenmerken)
+	} Else {
+		Set EconKenmerken = ..ConverteerGegenereerdeProperties(AppsKenmerken)
+		Set:(AppsKenmerken.CorpusWandDikte = "") EconKenmerken.CorpusWandDikte = "0"
+		Set EconKenmerken.Familie = "Lade"
+		Set EconKenmerken.HangmapBoringAantal = "0"
+		Set EconKenmerken.HeeftAfwijkendeRughoogte = "false"
+		Set EconKenmerken.Variant = "TBX"
+		Set EconKenmerken.ProductieWijze = ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig()
+		Set EconKenmerken.RugwandMateriaal = $$$If(+AppsKenmerken.UitsparingBreedte1=0, ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), "")
+		Set EconKenmerken.ZijwandHoogte = AppsKenmerken.LadeHoogte
+		
+		Do ..ConverteerFrontOndersteuning(AppsKenmerken, .EconKenmerken)
+		Do ..ConvertereGreepEnMeenemer(AppsKenmerken, .EconKenmerken)
+		Do ..ConverteerInbouwHoogte(AppsKenmerken, .EconKenmerken)
+		Do ..ConverteerInterneBreedte(AppsKenmerken, .EconKenmerken)
+		Do ..ConverteerLadeDesign(AppsKenmerken, .EconKenmerken)
+		Do ..ConverteerZijwand(AppsKenmerken, .EconKenmerken)
+	}
 	
 	Quit EconKenmerken
 ]]></Implementation>
 </Method>
+
+<Method name="ConverteerFrontOndersteuning">
+<FormalSpec><![CDATA[AppsKenmerken:APPS.PM.Maatwerk.dto.LadeKenmerken,&EconKenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (AppsKenmerken.FrontOndersteuningAantal = "") {
+		Set EconKenmerken.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).Auto()
+		Set EconKenmerken.FrontStabilisatorAantal = ""
+	}
+	If ##class(TECH.StringUtils).Equals(AppsKenmerken.FrontOndersteuningAantal, "1", "2", "3") {
+		Set EconKenmerken.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontStabilisator()
+		Set EconKenmerken.FrontStabilisatorAantal = AppsKenmerken.FrontOndersteuningAantal
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConvertereGreepEnMeenemer">
+<FormalSpec><![CDATA[AppsKenmerken:APPS.PM.Maatwerk.dto.LadeKenmerken,&EconKenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set EconKenmerken.GreepEnMeenemer = "Zonder"
+	If AppsKenmerken.VoorwandMetGreep {
+		Set EconKenmerken.GreepEnMeenemer = "Handle"
+		If AppsKenmerken.VoorwandMetMeenemer {
+			Set EconKenmerken.GreepEnMeenemer = "HandleAndLatch"
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerInbouwHoogte">
+<FormalSpec><![CDATA[AppsKenmerken:APPS.PM.Maatwerk.dto.LadeKenmerken,&EconKenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set:(##class(TECH.StringUtils).Equals(AppsKenmerken.LadeHoogte, "N", "M", "K", "B")) EconKenmerken.InbouwHoogte = AppsKenmerken.LadeHoogte
+	Set:(##class(TECH.StringUtils).Equals(AppsKenmerken.LadeHoogte, "C", "D")) EconKenmerken.InbouwHoogte = AppsKenmerken.LadeHoogte _ AppsKenmerken.ZijkantHoogte
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerInterneBreedte">
+<FormalSpec><![CDATA[AppsKenmerken:APPS.PM.Maatwerk.dto.LadeKenmerken,&EconKenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim AantalOpvullijsten As %Integer = 0
+	Set:AppsKenmerken.HeeftOpvullijstLinks AantalOpvullijsten = AantalOpvullijsten + 1
+	Set:AppsKenmerken.HeeftOpvullijstRechts AantalOpvullijsten = AantalOpvullijsten + 1
+	Set EconKenmerken.InterneBreedte = AppsKenmerken.CorpusBreedte - (2 * AppsKenmerken.CorpusWandDikte) - (AantalOpvullijsten * 25)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerLadeDesign">
+<FormalSpec><![CDATA[AppsKenmerken:APPS.PM.Maatwerk.dto.LadeKenmerken,&EconKenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken]]></FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeKleur As Prod.GAMeta.BT.TBLadeKleur = ##class(Prod.GAMeta.BT.TBLadeKleur).OpenViaItemCode(AppsKenmerken.LadeKleur, ##class(DOM.PM.enu.TBXDesigncode).Antaro(), 1)
+	Set EconKenmerken.LadeDesign = LadeKleur.BepaalDesignID(##class(DOM.PM.enu.TBXDesigncode).Antaro())
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerZijwand">
+<FormalSpec><![CDATA[AppsKenmerken:APPS.PM.Maatwerk.dto.LadeKenmerken,&EconKenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set EconKenmerken.ZijwandVerhogingType = $Case(AppsKenmerken.ZijwandVerhogingType,"NoGallery":"Zonder","SimpleGallery":"Reling","DesignElement":"InschuifElement",:"Zonder")
+	
+	If AppsKenmerken.ZijwandVerhogingType = "SimpleGallery" {
+		Set EconKenmerken.ZijwandVerhogingRelingKleur = AppsKenmerken.ZijwandVerhogingKleur
+		Set EconKenmerken.ZijwandVerhogingMateriaal = AppsKenmerken.ZijwandVerhogingMateriaal
+	} ElseIf AppsKenmerken.ZijwandVerhogingType = "DesignElement" {
+		Set EconKenmerken.ZijwandVerhogingRelingKleur = AppsKenmerken.LadeKleur
+		Set EconKenmerken.ZijwandVerhogingMateriaal = $Case(AppsKenmerken.ZijwandVerhogingMateriaal,
+															##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas():##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementMateriaal).Glas(),
+															##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium():##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementMateriaal).Aluminium(),
+															##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Geen():##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementMateriaal).ZonderVerhoging(),
+															:##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementMateriaal).ZonderVerhoging())
+		Set EconKenmerken.ZijwandVerhogingInschuifelementKleur = $Case(AppsKenmerken.ZijwandVerhogingKleur,
+														##class(DOM.PM.enu.TBXZijwandVerhogingKleur).MetallicGrijs():##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementKleur).AluMetallicGrijs(),
+														##class(DOM.PM.enu.TBXZijwandVerhogingKleur).ZijdeWit():##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementKleur).AluZijdeWit(),
+														##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart():##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementKleur).AluTerraZwart(),
+														##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatHelder8mm():##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementKleur).FloatHelder8mm(),
+														##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd8mm():##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementKleur).FloatGezuurd8mm(),
+														:"")
+		
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerGegenereerdeProperties">
+<CodeMode>objectgenerator</CodeMode>
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.TBXKenmerken</FormalSpec>
+<ReturnType>ECON.PM.Maatwerk.dto.TbxKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim Properties
+	Do arrProperties^vhLib.Class("APPS.PM.Maatwerk.dto.TBXKenmerken",.Properties,"A","A","A",1)
+	
+	Do %code.WriteLine($$$TAB_"Set TbxKenmerken = ##class(ECON.PM.Maatwerk.dto.TbxKenmerken).%New()")
+	
+	#dim Property As %String = ""
+	For { set Property = $order(Properties(Property)) quit:Property=""
+		continue:(##class(TECH.StringUtils).Contains(Property,"Antislipmat","ExplicietGekozenKenmerken","FrontOndersteuningAantal","GekoppeldeIngegevenKenmerken","LadeHoogte","LadeVariant","LegacyKenmerken","Omschrijving","RugHouderKleur"))
+		continue:(##class(TECH.StringUtils).Contains(Property,"SpoelbakBinnenzijwandHoogte","TussenrugMateriaal","VersieNr","ZijkantDesign","ZijwandVerhogingAantal","ZijwandVerhogingKleur"))
+		continue:(##class(TECH.StringUtils).StartsWith(Property,"Mat","Niet","Uitsparing","Voorwand"))
+		
+		if $listget(Properties(Property),1)="%Library.Boolean" { 
+			Do %code.WriteLine($$$TAB_"Set TbxKenmerken."_Property_" = $select(Kenmerken."_Property_":""true"",1:""false"")")
+		} else {
+			Do %code.WriteLine($$$TAB_"Set TbxKenmerken."_Property_" = Kenmerken."_Property)
+		}
+		
+	}
+	
+	Do %code.WriteLine($$$TAB_"Quit TbxKenmerken")
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx/Test.cls.xml
===================================================================
diff -u -r50494 -r53844
--- vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx/Test.cls.xml	(.../Test.cls.xml)	(revision 50494)
+++ vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx/Test.cls.xml	(.../Test.cls.xml)	(revision 53844)
@@ -3,6 +3,19 @@
 <Class name="vhUnitTest.ECONimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarEcon.Tbx.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Property name="Differenciator">
+<Type>TECH.ObjectUtils.impl.DifferenciatorXmlBased</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..Differenciator = ##class(TECH.ObjectUtils.impl.DifferenciatorXmlBased).%New()
+]]></Implementation>
+</Method>
+
 <Method name="Test: EdiConverter en LegacyConverter worden opgeroepen">
 <Implementation><![CDATA[
 	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerken).StandaardLade()
@@ -23,6 +36,22 @@
 	Do EdiConverterMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Standaardlade zonder LegacyKenmerken">
+<Implementation><![CDATA[
+	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerken).StandaardLade()
+	Set AppsKenmerken.LegacyKenmerken = ""
+	
+	#dim Converter As ECONimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarEcon.Tbx = ##class(ECONimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarEcon.Tbx).%New()
+	#dim EconKenmerken As ECON.PM.Maatwerk.dto.TbxKenmerken = Converter.Converteer(AppsKenmerken)
+	
+	
+	Do ##class(Tools.Wlip).%New(127).ObjToXML(EconKenmerken)
+	Do ##class(Tools.Wlip).%New(127).ObjToXML(##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TbxKenmerken).StandaardLade())
+	
+	Do $$$AssertEmptyList(..Differenciator.GetDifferences(EconKenmerken, $ClassMethod(##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TbxKenmerken).%ClassName($$$True), "StandaardLade")))
+]]></Implementation>
+</Method>
 </Class>