Index: ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Lbx.cls.xml
===================================================================
diff -u -r50472 -r50590
--- ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Lbx.cls.xml	(.../Lbx.cls.xml)	(revision 50472)
+++ ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Lbx.cls.xml	(.../Lbx.cls.xml)	(revision 50590)
@@ -1,24 +1,22 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="ECONimpl.PM.Maatwerk.KenmerkenConverter.EconNaarApps.Lbx">
-<Super>ECONimpl.PM.Maatwerk.KenmerkenConverter.EconNaarApps</Super>
+<Super>ECONimpl.PM.Maatwerk.KenmerkenConverter.EconNaarApps,DOM.PM.Maatwerk.LBX.impl.Base</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)
+	#dim LbxKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ..ConverteerGegenereerdeProperties(Kenmerken)
 	
 	Set LbxKenmerken.AantalDwarsverdelingen = Kenmerken.DwarsverdelingAantal
-	
-	Set LbxKenmerken.HeeftDwarsverdeling = (+Kenmerken.DwarsverdelingAantal>0)
-	
+	Set LbxKenmerken.HeeftDwarsverdeling = (+Kenmerken.DwarsverdelingAantal > 0)
 	Set LbxKenmerken.Klasse = Kenmerken.Toepassing
-	Do ..ConverteerNietMeeleveren(Kenmerken, .LbxKenmerken)
-	Do ..ConverteerUitsparingData(Kenmerken, .LbxKenmerken)
-	Do ..ConverteerMat(Kenmerken, .LbxKenmerken)
-	Do ..ConverteerProductieWijze(Kenmerken, .LbxKenmerken)
+	Set LbxKenmerken.NietMeeleveren = ..MaakNietMeeleveren(Kenmerken)
+	Set LbxKenmerken.ProductieWijze = ..GeefProductieWijze(Kenmerken)
+
+	Do ..ConverteerUitsparingData(Kenmerken, LbxKenmerken)
+	Do ..ConverteerMatKenmerken(Kenmerken, LbxKenmerken)
 	
 	Quit LbxKenmerken
 ]]></Implementation>
@@ -54,65 +52,73 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerNietMeeleveren">
-<FormalSpec><![CDATA[Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken,&LbxKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken]]></FormalSpec>
+<Method name="MaakNietMeeleveren">
+<FormalSpec>Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken</FormalSpec>
 <Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren</ReturnType>
 <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)}
+	#dim NietMeeleveren As APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren).%New()
+	
+	If (Kenmerken.NietMeeleveren.AfdekkapBinnen = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.AfdekkapBinnen)
+	If (Kenmerken.NietMeeleveren.AfdekkapBuiten = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.AfdekkapBuiten)
+	If (Kenmerken.NietMeeleveren.AfdekkapRugWandHouder = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.AfdekkapRugWandHouder)
+	If (Kenmerken.NietMeeleveren.BevestigingBodemFront = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.BevestigingBodemFront)
+	If (Kenmerken.NietMeeleveren.FrontBevestiging = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.FrontBevestiging)
+	If (Kenmerken.NietMeeleveren.Geleider = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.Geleider)
+	If (Kenmerken.NietMeeleveren.InschuifElementVoor = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.InschuifElementVoor)
+	If (Kenmerken.NietMeeleveren.InschuifElementZijkant = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.InschuifElementZijkant)
+	If (Kenmerken.NietMeeleveren.Opvullijst = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.Opvullijst)
+	If (Kenmerken.NietMeeleveren.TiponBlumotionSynchronisatieSet = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers)
+	If (Kenmerken.NietMeeleveren.TiponBlumotionSynchronisatieAdapter = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter)
+	If (Kenmerken.NietMeeleveren.TiponBlumotionSynchronisatieStang = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)
+	If (Kenmerken.NietMeeleveren.TiponSynchronisatieSetEnStang = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponSynchronisatieSet _ ..Enum.NietMeeleveren.TiponSynchronisatieStang)
+	If (Kenmerken.NietMeeleveren.Zijstabilisering = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.Zijstabilisering)
+	
+	Quit NietMeeleveren
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerProductieWijze">
-<FormalSpec><![CDATA[Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken,&LbxKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken]]></FormalSpec>
+<Method name="GeefProductieWijze">
+<FormalSpec>Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken</FormalSpec>
 <Private>1</Private>
+<ReturnType>DOM.PM.enu.LBXProductieWijze</ReturnType>
 <Implementation><![CDATA[
-	Set LbxKenmerken.ProductieWijze = $Case(Kenmerken.ProductieWijze,
-		##class(ECON.PM.Maatwerk.enu.ProductieWijze).Bodem():##class(DOM.PM.enu.LBXProductieWijze).Bodem(),
-		##class(ECON.PM.Maatwerk.enu.ProductieWijze).BodemEnRug():##class(DOM.PM.enu.LBXProductieWijze).BodemEnRug(),
-		##class(ECON.PM.Maatwerk.enu.ProductieWijze).Front():##class(DOM.PM.enu.LBXProductieWijze).Front(),
-		##class(ECON.PM.Maatwerk.enu.ProductieWijze).Rug():##class(DOM.PM.enu.LBXProductieWijze).Rug(),
-		##class(ECON.PM.Maatwerk.enu.ProductieWijze).RugMetHouders():##class(DOM.PM.enu.LBXProductieWijze).RugMetHouders(),
-		:##class(DOM.PM.enu.LBXProductieWijze).Volledig())
+	#dim ProductieWijze As DOM.PM.enu.LBXProductieWijze = ..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="ConverteerUitsparingData">
-<FormalSpec><![CDATA[Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken,&LbxKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken]]></FormalSpec>
+<FormalSpec>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() {
+	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
 		Set LbxKenmerken.RugWandMateriaal = Kenmerken.UitsparingData.X.Materiaal
-		If LbxKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Sifon(){
-			Set LbxKenmerken.UitsparingDataCodeZ1 = ..MaakUitsparingDataCode(Kenmerken.UitsparingData.Z1.Vorm,Kenmerken.UitsparingData.Z1.Hoogte,Kenmerken.UitsparingData.Z1.Diepte,Kenmerken.UitsparingData.Z1.Breedte)
+		
+		If (LbxKenmerken.Klasse = ..Enum.Klasse.Sifon) {
+			Set LbxKenmerken.UitsparingDataCodeZ1 = ..MaakUitsparingDataCode(Kenmerken.UitsparingData.Z1.Vorm, Kenmerken.UitsparingData.Z1.Hoogte,Kenmerken.UitsparingData.Z1.Diepte,Kenmerken.UitsparingData.Z1.Breedte)
 		}
-	} ElseIf Kenmerken.UitsparingData.UitsparingAantal = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel() {
+	} 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 = ..MaakUitsparingDataCode(Kenmerken.UitsparingData.Z1.Vorm,Kenmerken.UitsparingData.Z1.Hoogte,Kenmerken.UitsparingData.Z1.Diepte,Kenmerken.UitsparingData.Z1.Breedte)
-		Set LbxKenmerken.UitsparingDataCodeZ2 = ..MaakUitsparingDataCode(Kenmerken.UitsparingData.Z2.Vorm,Kenmerken.UitsparingData.Z2.Hoogte,Kenmerken.UitsparingData.Z2.Diepte,Kenmerken.UitsparingData.Z2.Breedte)
+		Set LbxKenmerken.UitsparingDataCodeZ1 = ..MaakUitsparingDataCode(Kenmerken.UitsparingData.Z1.Vorm, Kenmerken.UitsparingData.Z1.Hoogte, Kenmerken.UitsparingData.Z1.Diepte, Kenmerken.UitsparingData.Z1.Breedte)
+		Set LbxKenmerken.UitsparingDataCodeZ2 = ..MaakUitsparingDataCode(Kenmerken.UitsparingData.Z2.Vorm, Kenmerken.UitsparingData.Z2.Hoogte, Kenmerken.UitsparingData.Z2.Diepte, Kenmerken.UitsparingData.Z2.Breedte)
 	}
 ]]></Implementation>
 </Method>
@@ -122,29 +128,32 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set List = ##class(%ListOfDataTypes).%New()
-	do List.Insert(##class(DOM.PM.enu.LBXKlasse).Sifon())
-	do List.Insert(Vorm)
-	do List.Insert(Hoogte)
-	do List.Insert("D"_Diepte)
-	do List.Insert("B"_Breedte)
-	quit ##class(TECH.ListUtils).ListToPieces(List,"_")
+	#dim List As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	Do List.Insert(..Enum.Klasse.Sifon)
+	Do List.Insert(Vorm)
+	Do List.Insert(Hoogte)
+	Do List.Insert("D" _ Diepte)
+	Do List.Insert("B" _ Breedte)
+	
+	Quit ##class(TECH.ListUtils).ListToPieces(List, "_")
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerMat">
-<FormalSpec><![CDATA[Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken,&LbxKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken]]></FormalSpec>
+<Method name="ConverteerMatKenmerken">
+<FormalSpec>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()
+	#dim MatKenmerken = ##class(APPS.PM.Maatwerk.dto.MATKenmerken).%New()
 	
-	Set MATKenmerken.Materiaal = Kenmerken.MatMateriaal
-	Set MATKenmerken.Kleur = Kenmerken.MatKleur
+	Set MatKenmerken.Materiaal = Kenmerken.MatMateriaal
+	Set MatKenmerken.Kleur = Kenmerken.MatKleur
 	
-	If $$$HasLength(MATKenmerken.Materiaal) {
+	If $$$HasLength(MatKenmerken.Materiaal) {
 		Set GekoppeldIngegevenKenmerk = ##class(APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk).%New()
-		Set GekoppeldIngegevenKenmerk.IngegevenKenmerken = MATKenmerken
+		Set GekoppeldIngegevenKenmerk.IngegevenKenmerken = MatKenmerken
 		Set GekoppeldIngegevenKenmerk.Key = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).Mat()
+			
 		Do LbxKenmerken.GekoppeldeIngegevenKenmerken.Insert(GekoppeldIngegevenKenmerk)
 	}
 ]]></Implementation>