Index: ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tax.cls.xml
===================================================================
diff -u -r50507 -r50687
--- ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tax.cls.xml	(.../Tax.cls.xml)	(revision 50507)
+++ ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tax.cls.xml	(.../Tax.cls.xml)	(revision 50687)
@@ -4,22 +4,21 @@
 <Super>ECONimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarEcon,DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
 <Method name="Converteer">
-<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken</FormalSpec>
+<FormalSpec>AppsKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken</FormalSpec>
 <ReturnType>ECON.PM.Maatwerk.dto.TaxKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim TaxKenmerken As ECON.PM.Maatwerk.dto.TaxKenmerken = ##class(ECON.PM.Maatwerk.dto.TaxKenmerken).%New()
+	#dim EconKenmerken As ECON.PM.Maatwerk.dto.TaxKenmerken = ..ConverteerGegenereerdeProperties(AppsKenmerken)
 	
-	Set TaxKenmerken = ..ConverteerGegenereerdeProperties(Kenmerken)
-	Set TaxKenmerken.GeleiderType = Kenmerken.GlijderType
-	Set TaxKenmerken.Toepassing = "L"
-	Set TaxKenmerken.Variant = "TAX"
-	Set TaxKenmerken.ProductieWijze = ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig()
+	Set EconKenmerken.GeleiderType = AppsKenmerken.GlijderType
+	Set EconKenmerken.Toepassing = "L"
+	Set EconKenmerken.Variant = "TAX"
+	Set EconKenmerken.ProductieWijze = ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig()
+	Set EconKenmerken.NietMeeleveren = ..GeefNietMeeleveren(AppsKenmerken)
 	
-	Do ..ConverteerBooleans(Kenmerken, .TaxKenmerken)
-	Do ..ConverteerMat(Kenmerken, .TaxKenmerken)
-	Do ..ConverteerNietMeeleveren(Kenmerken, .TaxKenmerken)	
+	Do ..ConverteerBooleans(AppsKenmerken, .EconKenmerken)
+	Do ..ConverteerMat(AppsKenmerken, .EconKenmerken)	
 	
-	Quit TaxKenmerken
+	Quit EconKenmerken
 ]]></Implementation>
 </Method>
 
@@ -46,26 +45,31 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerNietMeeleveren">
-<FormalSpec><![CDATA[Kenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken,&TaxKenmerken:ECON.PM.Maatwerk.dto.TaxKenmerken]]></FormalSpec>
+<Method name="GeefNietMeeleveren">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken</FormalSpec>
 <Private>1</Private>
+<ReturnType>ECON.PM.Maatwerk.dto.TaxKenmerken.NietMeeleveren</ReturnType>
 <Implementation><![CDATA[
-	Set TaxKenmerken.NietMeeleveren.AfdekkapBoven = $$$If(Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.AfdekkapBoven), "true", "false")
-	Set TaxKenmerken.NietMeeleveren.BodemOndersteuning = $$$If(Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.BodemOndersteuning), "true", "false")
-	Set TaxKenmerken.NietMeeleveren.FrontBevestiging = $$$If(Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.FrontBevestiging), "true", "false")
-	Set TaxKenmerken.NietMeeleveren.Geleider = $$$If(Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.Glijder), "true", "false")
-	Set TaxKenmerken.NietMeeleveren.Koppeling = $$$If(Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.Koppeling), "true", "false")
-	Set TaxKenmerken.NietMeeleveren.Opvullijst = $$$If(Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.Opvullijst), "true", "false")
+	#dim NietMeeleveren As ECON.PM.Maatwerk.dto.TaxKenmerken.NietMeeleveren = ##class(ECON.PM.Maatwerk.dto.TaxKenmerken.NietMeeleveren).%New()
 	
+	If (Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.AfdekkapBoven)) Set NietMeeleveren.AfdekkapBoven = "true"
+	If (Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.BodemOndersteuning)) Set NietMeeleveren.BodemOndersteuning = "true"
+	If (Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.FrontBevestiging)) Set NietMeeleveren.FrontBevestiging = "true"
+	If (Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.Glijder)) Set NietMeeleveren.Geleider = "true"
+	If (Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.Koppeling)) Set NietMeeleveren.Koppeling = "true"
+	If (Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.Opvullijst)) Set NietMeeleveren.Opvullijst = "true"
+		
+	If (Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers)) Set NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers = "true"
+	If (Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter)) Set NietMeeleveren.TiponBlumotionSynchronisatieAdapter = "true"
+	If (Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)) Set NietMeeleveren.TiponBlumotionSynchronisatieStang = "true"
+	
 	If (Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)) {
-		Set TaxKenmerken.NietMeeleveren.TiponBlumotionSet = "true"
-	} Else {
-		Set TaxKenmerken.NietMeeleveren.TiponBlumotionSynchronisatieAdapter = $$$If(Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter), "true", "false")
-		Set TaxKenmerken.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers = $$$If(Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers), "true", "false")
-		Set TaxKenmerken.NietMeeleveren.TiponBlumotionSynchronisatieStang = $$$If(Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang), "true", "false")
+		Set NietMeeleveren.TiponBlumotionSet = "true"	
 	}
 	
-	Set TaxKenmerken.NietMeeleveren.TiponSynchronisatieSet = $$$If(Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.TiponSynchronisatieStang _ ..Enum.NietMeeleveren.TiponSynchronisatieTandwiel), "true", "false")
+	If (Kenmerken.NietMeeleveren.Find(..Enum.NietMeeleveren.TiponSynchronisatieStang _ ..Enum.NietMeeleveren.TiponSynchronisatieTandwiel)) Set NietMeeleveren.TiponSynchronisatieSet = "true"	
+	
+	Quit NietMeeleveren
 ]]></Implementation>
 </Method>