Index: ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Tbx.cls.xml
===================================================================
diff -u -r55246 -r65321
--- ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Tbx.cls.xml	(.../Tbx.cls.xml)	(revision 55246)
+++ ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Tbx.cls.xml	(.../Tbx.cls.xml)	(revision 65321)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="ECONimpl.PM.Maatwerk.KenmerkenConverter.EconNaarApps.Tbx">
-<Super>ECONimpl.PM.Maatwerk.KenmerkenConverter.EconNaarApps</Super>
+<Super>ECONimpl.PM.Maatwerk.KenmerkenConverter.EconNaarApps,DOM.PM.Maatwerk.TBX.impl.Base</Super>
 
 <Property name="EdiConverter">
 <Type>ECONimpl.PM.Maatwerk.EdiConverter</Type>
@@ -13,6 +13,30 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LegacyKenmerken">
+<Type>APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy</Type>
+</Property>
+
+<Property name="LadeType">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Toepassing">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ZijkantHoogte">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LadeHoogte">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>EdiConverter:ECONimpl.PM.Maatwerk.EdiConverter="",LegacyConverter:APPS.EDI.common.impl.LegacyConverter=""</FormalSpec>
 <Private>1</Private>
@@ -31,15 +55,159 @@
 <FormalSpec>Kenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken</FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.dto.LadeKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerken = ##class(APPS.PM.Maatwerk.dto.TBXKenmerken).%New()
+	#dim TbxKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerken = ..ConverteerGegenereerdeProperties(Kenmerken)
 	
-	Set AppsKenmerken.LegacyKenmerken = ..LegacyConverter.ConverteerEdiNaarLegacy(..EdiConverter.ConverteerEconNaarEdi(Kenmerken))
-	Set AppsKenmerken.LadeVariant = "TBX_Antaro"
-	Set AppsKenmerken.VerpakkingType = Kenmerken.VerpakkingType
+	Set ..LegacyKenmerken = ..LegacyConverter.ConverteerEdiNaarLegacy(..EdiConverter.ConverteerEconNaarEdi(Kenmerken))
 	
-	Quit AppsKenmerken
+	Set TbxKenmerken.LegacyKenmerken 			= ..LegacyKenmerken
+	Set TbxKenmerken.LadeVariant 				= "TBX_Antaro"					//Later wordt Variant T design ook nog mogelijk, zal moeten aangepast worden
+	Set TbxKenmerken.VerpakkingType	 			= Kenmerken.VerpakkingType
+	
+	
+	If (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefBomBolOmleidingTbxNaarDotNet()) {
+		Do ..HaalInformatieUitLadeCode()
+		Set TbxKenmerken.IsBinnenlade 				= ..GeefIsBinnenLade()
+		Set TbxKenmerken.FrontHouderKleur 			= Kenmerken.LadeKleur		//Dit kenmerken moet mss hernoemd worden naar FrontKleur?
+		Set TbxKenmerken.FrontOndersteuningAantal 	= Kenmerken.FrontStabilisatorAantal
+		
+		Set TbxKenmerken.LadeHoogte 				= Kenmerken.ZijwandHoogte
+		Set TbxKenmerken.ProductieWijze 			= ..GeefProductieWijze(Kenmerken)
+		
+		Set TbxKenmerken.ZijkantHoogte 				= ..ZijkantHoogte		//wordt nog niet opgevuld?
+		
+		Set TbxKenmerken.NietMeeleveren = ..GeefNietMeeleveren(Kenmerken)	
+		
+		Do ..ConverteerMatKenmerken(Kenmerken, TbxKenmerken) // MatVervollediger nog aanvullen
+	}
+	
+	Quit TbxKenmerken
 ]]></Implementation>
 </Method>
+
+<Method name="ConverteerGegenereerdeProperties">
+<CodeMode>objectgenerator</CodeMode>
+<FormalSpec>Kenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.TBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim Properties
+	Do arrProperties^vhLib.Class("ECON.PM.Maatwerk.dto.TbxKenmerken",.Properties,"A","A","A",1)
+	
+	Do %code.WriteLine($$$TAB_"Set TbxKenmerken = ##class(APPS.PM.Maatwerk.dto.TBXKenmerken).%New()")
+	
+	#dim Property As %String = ""
+	For { set Property = $order(Properties(Property)) quit:Property=""
+		
+		continue:##class(TECH.StringUtils).Contains(Property,"UitsparingData.","NietMeeleveren.","NietIngegeven.")
+		continue:##class(TECH.StringUtils).Contains(Property,"LegacyKenmerken","FrontStabilisatorAantal","GreepEnMeenemer","HeeftAfwijkendeRughoogte","InbouwHoogte","LadeDesign")
+		continue:##class(TECH.StringUtils).Contains(Property,"RughouderKleur","VerpakkingType","ZijwandHoogte","ZijwandVerhogingInschuifelementKleur","ZijwandVerhogingRelingKleur","InterneBreedte")
+		continue:##class(TECH.StringUtils).Equals(Property,"Familie","Variant")
+		continue:##class(TECH.StringUtils).StartsWith(Property,"Mat")
+		
+		if $listget(Properties(Property),1)="ECON.Boolean" {
+			Do %code.WriteLine($$$TAB_"Set TbxKenmerken."_Property_" = $select(Kenmerken."_Property_"=""true"":""1"",1:""0"")")
+		} else { 
+			Do %code.WriteLine($$$TAB_"Set TbxKenmerken."_Property_" = Kenmerken."_Property)
+		}	
+	}
+	
+	Do %code.WriteLine($$$TAB_"Quit TbxKenmerken")
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefNietMeeleveren">
+<FormalSpec>Kenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren</ReturnType>
+<Implementation><![CDATA[
+	#dim NietMeeleveren As APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren).%New()
+	
+	If (Kenmerken.NietMeeleveren.Afdekkap = "true") Do NietMeeleveren.Insert("Afdekkap")
+	If (Kenmerken.NietMeeleveren.Antislipmat = "true") Do NietMeeleveren.Insert("Antislipmat")
+	If (Kenmerken.NietMeeleveren.Bodemsteun = "true") Do NietMeeleveren.Insert("Bodemsteun")
+	If (Kenmerken.NietMeeleveren.FrontBevestiging = "true") Do NietMeeleveren.Insert("FrontBevestiging")
+	If (Kenmerken.NietMeeleveren.Geleider = "true") Do NietMeeleveren.Insert("Geleider")
+	If (Kenmerken.NietMeeleveren.InschuifElement = "true") Do NietMeeleveren.Insert("InschuifElement")
+	If (Kenmerken.NietMeeleveren.Opvullijst = "true") Do NietMeeleveren.Insert("Opvullijst")
+	If (Kenmerken.NietMeeleveren.Reling = "true") Do NietMeeleveren.Insert("Reling")	
+	If (Kenmerken.NietMeeleveren.TiponBlumotionSet = "true") Do NietMeeleveren.Insert("TiponBlumotionSet")
+	If (Kenmerken.NietMeeleveren.TiponBlumotionSynchronisatieStang = "true") Do NietMeeleveren.Insert("TiponBlumotionSynchronisatieStang")
+	If (Kenmerken.NietMeeleveren.TiponBlumotionSynchronisatieToebehoren = "true") Do NietMeeleveren.Insert("TiponBlumotionSynchronisatieToebehoren")
+	If (Kenmerken.NietMeeleveren.TiponBlumotionOnderdelen = "true") Do NietMeeleveren.Insert("TiponBlumotionOnderdelen")	
+	
+	Quit NietMeeleveren
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductieWijze">
+<FormalSpec>Kenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.TBXProductieWijze</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductieWijze As DOM.PM.enu.TBXProductieWijze = ..Enum.ProductieWijze.Volledig
+	
+	If (Kenmerken.ProductieWijze = ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Bodem()) Set ProductieWijze = ..Enum.ProductieWijze.Bodem
+	If (Kenmerken.ProductieWijze = ##class(ECON.PM.Maatwerk.enu.ProductieWijze).BodemEnRug()) Set ProductieWijze = ..Enum.ProductieWijze.BodemEnRug
+	If (Kenmerken.ProductieWijze = ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Front()) Set ProductieWijze = ..Enum.ProductieWijze.Front
+	If (Kenmerken.ProductieWijze = ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Rug()) Set ProductieWijze = ..Enum.ProductieWijze.Rug
+	If (Kenmerken.ProductieWijze = ##class(ECON.PM.Maatwerk.enu.ProductieWijze).RugMetHouders()) Set ProductieWijze = ..Enum.ProductieWijze.RugMetHouders
+	
+	Quit ProductieWijze
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerMatKenmerken">
+<FormalSpec>Kenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken,TbxKenmerken:APPS.PM.Maatwerk.dto.TBXKenmerken</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim MatKenmerken = ##class(APPS.PM.Maatwerk.dto.MATKenmerken).%New()
+	
+	Set MatKenmerken.Materiaal = Kenmerken.MatMateriaal
+	Set MatKenmerken.Kleur = Kenmerken.MatKleur
+	
+	If $$$HasLength(MatKenmerken.Materiaal) {
+		Set GekoppeldIngegevenKenmerk = ##class(APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk).%New()
+		Set GekoppeldIngegevenKenmerk.IngegevenKenmerken = MatKenmerken
+		Set GekoppeldIngegevenKenmerk.Key = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).Mat()
+		
+		Do TbxKenmerken.GekoppeldeIngegevenKenmerken.Insert(GekoppeldIngegevenKenmerk)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeCode">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..LegacyKenmerken.ItemLT
+]]></Implementation>
+</Method>
+
+<Method name="HaalInformatieUitLadeCode">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim LCode As %String = ..GeefLadeCode()
+	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 ..Toepassing = arKenm("TBKlasse")
+	Set ..LadeType = arKenm("TBLadeType")
+	Set ..ZijkantHoogte = arKenm("TBZijwand")
+	Set ..LadeHoogte = arKenm("TBRugHoogte")
+]]></Implementation>
+</Method>
+
+<Method name="GeefIsBinnenLade">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..LadeType = "B")
+]]></Implementation>
+</Method>
 </Class>