Index: ECONimpl/PM/Maatwerk/AppsConverter.cls.xml
===================================================================
diff -u -r40514 -r40522
--- ECONimpl/PM/Maatwerk/AppsConverter.cls.xml	(.../AppsConverter.cls.xml)	(revision 40514)
+++ ECONimpl/PM/Maatwerk/AppsConverter.cls.xml	(.../AppsConverter.cls.xml)	(revision 40522)
@@ -37,128 +37,11 @@
 		Set IngegevenKenmerken.LegacyKenmerken = ..LegacyConverter.ConverteerEdiNaarLegacy(..EdiConverter.ConverteerEconNaarEdi(Kenmerken))
 		Set IngegevenKenmerken.LadeVariant = "TBX_Antaro"
 	} ElseIf Kenmerken.Variant [ "LBX"{
-		Set IngegevenKenmerken = ..ConverteerLbxEconNaarApps(Kenmerken)
+		Set IngegevenKenmerken = ##class(ECONimpl.PM.Maatwerk.AppsConverter.EconNaarApps.Lbx).%New().Converteer(Kenmerken)
 	}
 	Quit IngegevenKenmerken
 ]]></Implementation>
 </Method>
-
-<Method name="ConverteerLbxEconNaarApps">
-<FormalSpec>Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.PM.Maatwerk.dto.LBXKenmerken</ReturnType>
-<Implementation><![CDATA[
-	Set LbxKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
-	Set LbxKenmerken = ..ConverteerGegenereerdeProperties(Kenmerken)
-	
-	Set LbxKenmerken.AantalDwarsverdelingen = Kenmerken.DwarsverdelingAantal
-	Do ..ConverteerLbxNietMeeleveren(Kenmerken, .LbxKenmerken)
-	Do ..ConverteerUitsparingData(Kenmerken, .LbxKenmerken)
-	Do ..ConverteerLbxMat(Kenmerken, .LbxKenmerken)
-	
-	Quit LbxKenmerken
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerGegenereerdeProperties">
-<CodeMode>objectgenerator</CodeMode>
-<FormalSpec>Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken</FormalSpec>
-<ReturnType>APPS.PM.Maatwerk.dto.LBXKenmerken</ReturnType>
-<Implementation><![CDATA[
-	#dim Properties
-	Do arrProperties^vhLib.Class("ECON.PM.Maatwerk.dto.LbxKenmerken",.Properties,"A","A","A",1)
-	
-	Do %code.WriteLine($$$TAB_"Set LbxKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()")
-	
-	#dim Property As %String = ""
-	For { set Property = $order(Properties(Property)) quit:Property=""
-		If '(Property["UitsparingData.")&&'(Property="Familie")&&'(Property="Variant")&&'(Property["NietMeeleveren.")&&'(Property["DwarsverdelingAantal")&&'(##class(TECH.StringUtils).StartsWith(Property,"Mat")){
-			Do %code.WriteLine($$$TAB_"Set LbxKenmerken."_Property_" = Kenmerken."_Property)
-		}
-	}
-	
-	Do %code.WriteLine($$$TAB_"Quit LbxKenmerken")
-
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerLbxNietMeeleveren">
-<FormalSpec><![CDATA[Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken,&LbxKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken]]></FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set LBXEnum = ##class(DOM.PM.Maatwerk.LBX.impl.BaseEnums).%New()
-	If Kenmerken.NietMeeleveren.AfdekkapBinnen="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.AfdekkapBinnen)}
-	If Kenmerken.NietMeeleveren.AfdekkapBuiten="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.AfdekkapBuiten)}
-	If Kenmerken.NietMeeleveren.AfdekkapRugWandHouder="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.AfdekkapRugWandHouder)}
-	If Kenmerken.NietMeeleveren.BevestigingBodemFront="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.BevestigingBodemFront)}
-	If Kenmerken.NietMeeleveren.FrontBevestiging="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.FrontBevestiging)}
-	If Kenmerken.NietMeeleveren.Geleider="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.Geleider)}
-	If Kenmerken.NietMeeleveren.InschuifElementVoor="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.InschuifElementVoor)}
-	If Kenmerken.NietMeeleveren.InschuifElementZijkant="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.InschuifElementZijkant)}
-	If Kenmerken.NietMeeleveren.Opvullijst="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.Opvullijst)}
-	If Kenmerken.NietMeeleveren.TiponBlumotionSynchronisatieSet="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.TiponBlumotionSetEenhedenEnMeenemers)}
-	If Kenmerken.NietMeeleveren.TiponBlumotionSynchronisatieAdapter="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.TiponBlumotionSynchronisatieAdapter)}
-	If Kenmerken.NietMeeleveren.TiponBlumotionSynchronisatieStang="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.TiponBlumotionSynchronisatieStang)}
-	If Kenmerken.NietMeeleveren.TiponSynchronisatieSetEnStang="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.TiponSynchronisatieSet_LBXEnum.Rol.TiponSynchronisatieStang)}
-	If Kenmerken.NietMeeleveren.Zijstabilisering="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.Zijstabilisering)}
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerUitsparingData">
-<FormalSpec><![CDATA[Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken,&LbxKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken]]></FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	If Kenmerken.UitsparingData.UitsparingAantal = ##class(DOM.PM.enu.AantalUitsparingen).Enkel() {
-		Set LbxKenmerken.UitsparingDataAantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()
-		Set LbxKenmerken.UitsparingDataBreedteX = Kenmerken.UitsparingData.X.Breedte
-		Set LbxKenmerken.UitsparingDataBreedteY = Kenmerken.UitsparingData.Y.Breedte
-		Set LbxKenmerken.UitsparingDataBreedteZ1 = Kenmerken.UitsparingData.Z1.Breedte
-		If LbxKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Sifon(){
-			Set LbxKenmerken.RugWandMateriaal = Kenmerken.UitsparingData.Z1.Materiaal
-			Set LbxKenmerken.UitsparingDataCodeZ1 = ##class(DOM.PM.enu.LBXKlasse).Sifon()_"_Recht_"_Kenmerken.RugHoogte_"_D250_B"_Kenmerken.UitsparingData.Z1.Breedte
-		} Else {
-			Set LbxKenmerken.RugWandMateriaal = Kenmerken.UitsparingData.X.Materiaal
-		}
-	} ElseIf Kenmerken.UitsparingData.UitsparingAantal = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel() {
-		Set LbxKenmerken.UitsparingDataAantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()
-		Set LbxKenmerken.UitsparingDataBreedteM = Kenmerken.UitsparingData.M.Breedte
-		Set LbxKenmerken.UitsparingDataBreedteX = Kenmerken.UitsparingData.X.Breedte
-		Set LbxKenmerken.UitsparingDataBreedteY = Kenmerken.UitsparingData.Y.Breedte
-		Set LbxKenmerken.UitsparingDataBreedteZ1 = Kenmerken.UitsparingData.Z1.Breedte
-		Set LbxKenmerken.UitsparingDataBreedteZ2 = Kenmerken.UitsparingData.Z2.Breedte
-		Set LbxKenmerken.RugWandMateriaal = Kenmerken.UitsparingData.X.Materiaal
-		Set LbxKenmerken.UitsparingDataCodeZ1 = ##class(DOM.PM.enu.LBXKlasse).Sifon()_"_Recht_"_Kenmerken.RugHoogte_"_D250_B"_Kenmerken.UitsparingData.Z1.Breedte
-		Set LbxKenmerken.UitsparingDataCodeZ2 = ##class(DOM.PM.enu.LBXKlasse).Sifon()_"_Recht_"_Kenmerken.RugHoogte_"_D250_B"_Kenmerken.UitsparingData.Z2.Breedte
-	}
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerLbxMat">
-<FormalSpec><![CDATA[Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken,&LbxKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken]]></FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set MATKenmerken = ##class(APPS.PM.Maatwerk.dto.MATKenmerken).%New()
-	
-	If $$$HasLength(Kenmerken.MatAntislipFiberKleur) {
-		Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()	
-		Set MATKenmerken.Kleur = Kenmerken.MatAntislipFiberKleur
-	} ElseIf $$$HasLength(Kenmerken.MatAntislipKleur) {
-		Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).Antislip()
-		Set MATKenmerken.Kleur = Kenmerken.MatAntislipKleur
-	} ElseIf $$$HasLength(Kenmerken.MatVinylFiberglassKleur) {
-		Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).VinylFiberglass()
-		Set MATKenmerken.Kleur = Kenmerken.MatVinylFiberglassKleur
-	} ElseIf $$$HasLength(Kenmerken.MatWolviltKleur) {
-		Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).Wolvilt()
-		Set MATKenmerken.Kleur = Kenmerken.MatWolviltKleur
-	}
-	
-	If $$$HasLength(MATKenmerken.Materiaal) {
-		Do LbxKenmerken.GekoppeldeIngegevenKenmerken.Insert(MATKenmerken)
-	}
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Mock/ECONimpl/PM/Maatwerk/AppsConverter.cls.xml
===================================================================
diff -u -r40517 -r40522
--- vhTest/Mock/ECONimpl/PM/Maatwerk/AppsConverter.cls.xml	(.../AppsConverter.cls.xml)	(revision 40517)
+++ vhTest/Mock/ECONimpl/PM/Maatwerk/AppsConverter.cls.xml	(.../AppsConverter.cls.xml)	(revision 40522)
@@ -15,13 +15,6 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("ConverteerEconNaarApps",Kenmerken)
 ]]></Implementation>
 </Method>
-
-<Method name="ConverteerGegenereerdeProperties">
-<FormalSpec>Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken</FormalSpec>
-<ReturnType>APPS.PM.Maatwerk.dto.LBXKenmerken</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("ConverteerGegenereerdeProperties",Kenmerken)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml
===================================================================
diff -u
--- ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml	(revision 0)
+++ ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml	(revision 40522)
@@ -0,0 +1,124 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="ECONimpl.PM.Maatwerk.AppsConverter.EconNaarApps.Lbx">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Converteer">
+<FormalSpec>Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set LbxKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
+	Set LbxKenmerken = ..ConverteerGegenereerdeProperties(Kenmerken)
+	
+	Set LbxKenmerken.AantalDwarsverdelingen = Kenmerken.DwarsverdelingAantal
+	Do ..ConverteerNietMeeleveren(Kenmerken, .LbxKenmerken)
+	Do ..ConverteerUitsparingData(Kenmerken, .LbxKenmerken)
+	Do ..ConverteerMat(Kenmerken, .LbxKenmerken)
+	
+	Quit LbxKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerGegenereerdeProperties">
+<CodeMode>objectgenerator</CodeMode>
+<FormalSpec>Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim Properties
+	Do arrProperties^vhLib.Class("ECON.PM.Maatwerk.dto.LbxKenmerken",.Properties,"A","A","A",1)
+	
+	Do %code.WriteLine($$$TAB_"Set LbxKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()")
+	
+	#dim Property As %String = ""
+	For { set Property = $order(Properties(Property)) quit:Property=""
+		If '(Property["UitsparingData.")&&'(Property="Familie")&&'(Property="Variant")&&'(Property["NietMeeleveren.")&&'(Property["DwarsverdelingAantal")&&'(##class(TECH.StringUtils).StartsWith(Property,"Mat")){
+			Do %code.WriteLine($$$TAB_"Set LbxKenmerken."_Property_" = Kenmerken."_Property)
+		}
+	}
+	
+	Do %code.WriteLine($$$TAB_"Quit LbxKenmerken")
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerNietMeeleveren">
+<FormalSpec><![CDATA[Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken,&LbxKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set LBXEnum = ##class(DOM.PM.Maatwerk.LBX.impl.BaseEnums).%New()
+	If Kenmerken.NietMeeleveren.AfdekkapBinnen="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.AfdekkapBinnen)}
+	If Kenmerken.NietMeeleveren.AfdekkapBuiten="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.AfdekkapBuiten)}
+	If Kenmerken.NietMeeleveren.AfdekkapRugWandHouder="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.AfdekkapRugWandHouder)}
+	If Kenmerken.NietMeeleveren.BevestigingBodemFront="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.BevestigingBodemFront)}
+	If Kenmerken.NietMeeleveren.FrontBevestiging="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.FrontBevestiging)}
+	If Kenmerken.NietMeeleveren.Geleider="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.Geleider)}
+	If Kenmerken.NietMeeleveren.InschuifElementVoor="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.InschuifElementVoor)}
+	If Kenmerken.NietMeeleveren.InschuifElementZijkant="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.InschuifElementZijkant)}
+	If Kenmerken.NietMeeleveren.Opvullijst="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.Opvullijst)}
+	If Kenmerken.NietMeeleveren.TiponBlumotionSynchronisatieSet="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.TiponBlumotionSetEenhedenEnMeenemers)}
+	If Kenmerken.NietMeeleveren.TiponBlumotionSynchronisatieAdapter="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.TiponBlumotionSynchronisatieAdapter)}
+	If Kenmerken.NietMeeleveren.TiponBlumotionSynchronisatieStang="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.TiponBlumotionSynchronisatieStang)}
+	If Kenmerken.NietMeeleveren.TiponSynchronisatieSetEnStang="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.TiponSynchronisatieSet_LBXEnum.Rol.TiponSynchronisatieStang)}
+	If Kenmerken.NietMeeleveren.Zijstabilisering="true" {Do LbxKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.Zijstabilisering)}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerUitsparingData">
+<FormalSpec><![CDATA[Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken,&LbxKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If Kenmerken.UitsparingData.UitsparingAantal = ##class(DOM.PM.enu.AantalUitsparingen).Enkel() {
+		Set LbxKenmerken.UitsparingDataAantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()
+		Set LbxKenmerken.UitsparingDataBreedteX = Kenmerken.UitsparingData.X.Breedte
+		Set LbxKenmerken.UitsparingDataBreedteY = Kenmerken.UitsparingData.Y.Breedte
+		Set LbxKenmerken.UitsparingDataBreedteZ1 = Kenmerken.UitsparingData.Z1.Breedte
+		If LbxKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Sifon(){
+			Set LbxKenmerken.RugWandMateriaal = Kenmerken.UitsparingData.Z1.Materiaal
+			Set LbxKenmerken.UitsparingDataCodeZ1 = ##class(DOM.PM.enu.LBXKlasse).Sifon()_"_Recht_"_Kenmerken.RugHoogte_"_D250_B"_Kenmerken.UitsparingData.Z1.Breedte
+		} Else {
+			Set LbxKenmerken.RugWandMateriaal = Kenmerken.UitsparingData.X.Materiaal
+		}
+	} ElseIf Kenmerken.UitsparingData.UitsparingAantal = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel() {
+		Set LbxKenmerken.UitsparingDataAantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()
+		Set LbxKenmerken.UitsparingDataBreedteM = Kenmerken.UitsparingData.M.Breedte
+		Set LbxKenmerken.UitsparingDataBreedteX = Kenmerken.UitsparingData.X.Breedte
+		Set LbxKenmerken.UitsparingDataBreedteY = Kenmerken.UitsparingData.Y.Breedte
+		Set LbxKenmerken.UitsparingDataBreedteZ1 = Kenmerken.UitsparingData.Z1.Breedte
+		Set LbxKenmerken.UitsparingDataBreedteZ2 = Kenmerken.UitsparingData.Z2.Breedte
+		Set LbxKenmerken.RugWandMateriaal = Kenmerken.UitsparingData.X.Materiaal
+		Set LbxKenmerken.UitsparingDataCodeZ1 = ##class(DOM.PM.enu.LBXKlasse).Sifon()_"_Recht_"_Kenmerken.RugHoogte_"_D250_B"_Kenmerken.UitsparingData.Z1.Breedte
+		Set LbxKenmerken.UitsparingDataCodeZ2 = ##class(DOM.PM.enu.LBXKlasse).Sifon()_"_Recht_"_Kenmerken.RugHoogte_"_D250_B"_Kenmerken.UitsparingData.Z2.Breedte
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerMat">
+<FormalSpec><![CDATA[Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken,&LbxKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set MATKenmerken = ##class(APPS.PM.Maatwerk.dto.MATKenmerken).%New()
+	
+	If $$$HasLength(Kenmerken.MatAntislipFiberKleur) {
+		Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()	
+		Set MATKenmerken.Kleur = Kenmerken.MatAntislipFiberKleur
+	} ElseIf $$$HasLength(Kenmerken.MatAntislipKleur) {
+		Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).Antislip()
+		Set MATKenmerken.Kleur = Kenmerken.MatAntislipKleur
+	} ElseIf $$$HasLength(Kenmerken.MatVinylFiberglassKleur) {
+		Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).VinylFiberglass()
+		Set MATKenmerken.Kleur = Kenmerken.MatVinylFiberglassKleur
+	} ElseIf $$$HasLength(Kenmerken.MatWolviltKleur) {
+		Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).Wolvilt()
+		Set MATKenmerken.Kleur = Kenmerken.MatWolviltKleur
+	}
+	
+	If $$$HasLength(MATKenmerken.Materiaal) {
+		Do LbxKenmerken.GekoppeldeIngegevenKenmerken.Insert(MATKenmerken)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>