Index: ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Tax.cls.xml
===================================================================
diff -u -r50588 -r50592
--- ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Tax.cls.xml	(.../Tax.cls.xml)	(revision 50588)
+++ ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Tax.cls.xml	(.../Tax.cls.xml)	(revision 50592)
@@ -3,26 +3,19 @@
 <Class name="ECONimpl.PM.Maatwerk.KenmerkenConverter.EconNaarApps.Tax">
 <Super>ECONimpl.PM.Maatwerk.KenmerkenConverter.EconNaarApps,DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
-<UDLText name="T">
-<Content><![CDATA[
-// Property NietMeeleveren As DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren.AutoComplete [ Private ];
-
-]]></Content>
-</UDLText>
-
 <Method name="Converteer">
 <FormalSpec>Kenmerken:ECON.PM.Maatwerk.dto.TaxKenmerken</FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.dto.TAORKenmerken</ReturnType>
 <Implementation><![CDATA[
-	Set TaxKenmerken = ##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%New()
-	Set TaxKenmerken = ..ConverteerGegenereerdeProperties(Kenmerken)
-	Do ..ConverteerBooleans(Kenmerken, .TaxKenmerken)
-	Do ..ConverteerMat(Kenmerken, .TaxKenmerken)
-	Do ..ConverteerNietMeeleveren(Kenmerken, .TaxKenmerken)
+	#dim TaxKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ..ConverteerGegenereerdeProperties(Kenmerken)
 	
 	Set TaxKenmerken.GlijderType = Kenmerken.GeleiderType
-	Set TaxKenmerken.Uittrekbaarheid = "V"
+	Set TaxKenmerken.Uittrekbaarheid = ..Enum.Uittrekbaarheid.Volledig
+	Set TaxKenmerken.NietMeeleveren = ..MaakNietMeeleveren(Kenmerken)
 	
+	Do ..ConverteerBooleans(Kenmerken, TaxKenmerken)
+	Do ..ConverteerMatKenmerken(Kenmerken, TaxKenmerken)
+	
 	Quit TaxKenmerken
 ]]></Implementation>
 </Method>
@@ -51,49 +44,55 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerNietMeeleveren">
-<FormalSpec><![CDATA[Kenmerken:ECON.PM.Maatwerk.dto.TaxKenmerken,&TaxKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken]]></FormalSpec>
+<Method name="MaakNietMeeleveren">
+<FormalSpec>Kenmerken:ECON.PM.Maatwerk.dto.TaxKenmerken</FormalSpec>
 <Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren</ReturnType>
 <Implementation><![CDATA[
-	If (Kenmerken.NietMeeleveren.AfdekkapBoven = "true") Do TaxKenmerken.NietMeeleveren.InsertOrdered(..Enum.NietMeeleveren.AfdekkapBoven)
-	If (Kenmerken.NietMeeleveren.BodemOndersteuning = "true") Do TaxKenmerken.NietMeeleveren.InsertOrdered(..Enum.NietMeeleveren.BodemOndersteuning)
-	If (Kenmerken.NietMeeleveren.FrontBevestiging = "true") Do TaxKenmerken.NietMeeleveren.InsertOrdered(..Enum.NietMeeleveren.FrontBevestiging)
-	If (Kenmerken.NietMeeleveren.Geleider = "true") Do TaxKenmerken.NietMeeleveren.InsertOrdered(..Enum.NietMeeleveren.Glijder)
-	If (Kenmerken.NietMeeleveren.Koppeling = "true") Do TaxKenmerken.NietMeeleveren.InsertOrdered(..Enum.NietMeeleveren.Koppeling)
-	If (Kenmerken.NietMeeleveren.Opvullijst = "true") Do TaxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.Opvullijst)
+	#dim NietMeeleveren As APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren).%New()
+
+	If (Kenmerken.NietMeeleveren.AfdekkapBoven = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.AfdekkapBoven)
+	If (Kenmerken.NietMeeleveren.BodemOndersteuning = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.BodemOndersteuning)
+	If (Kenmerken.NietMeeleveren.FrontBevestiging = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.FrontBevestiging)
+	If (Kenmerken.NietMeeleveren.Geleider = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.Glijder)
+	If (Kenmerken.NietMeeleveren.Koppeling = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.Koppeling)
+	If (Kenmerken.NietMeeleveren.Opvullijst = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.Opvullijst)
 	
 	If (Kenmerken.NietMeeleveren.TiponBlumotionSet = "true") {
-		Do TaxKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)
+		Do NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)
 	} Else {
-		If (Kenmerken.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers = "true") Do TaxKenmerken.NietMeeleveren.InsertOrdered(..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers)
-		If (Kenmerken.NietMeeleveren.TiponBlumotionSynchronisatieAdapter = "true") Do TaxKenmerken.NietMeeleveren.InsertOrdered(..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter)
-		If (Kenmerken.NietMeeleveren.TiponBlumotionSynchronisatieStang = "true") Do TaxKenmerken.NietMeeleveren.InsertOrdered(..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)
+		If (Kenmerken.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers = "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.TiponSynchronisatieSet = "true") Do TaxKenmerken.NietMeeleveren.InsertOrdered(..Enum.NietMeeleveren.TiponSynchronisatieStang _ ..Enum.NietMeeleveren.TiponSynchronisatieTandwiel)
+	If (Kenmerken.NietMeeleveren.TiponSynchronisatieSet = "true") Do NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponSynchronisatieStang _ ..Enum.NietMeeleveren.TiponSynchronisatieTandwiel)
+	
+	Quit NietMeeleveren
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerMat">
-<FormalSpec><![CDATA[Kenmerken:ECON.PM.Maatwerk.dto.TaxKenmerken,&TaxKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken]]></FormalSpec>
+<Method name="ConverteerMatKenmerken">
+<FormalSpec>Kenmerken:ECON.PM.Maatwerk.dto.TaxKenmerken,TaxKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set MATKenmerken = ##class(APPS.PM.Maatwerk.dto.MATKenmerken).%New()
+	#dim MatKenmerken As APPS.PM.Maatwerk.dto.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 TaxKenmerken.GekoppeldeIngegevenKenmerken.Insert(GekoppeldIngegevenKenmerk)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerBooleans">
-<FormalSpec><![CDATA[Kenmerken:ECON.PM.Maatwerk.dto.TaxKenmerken,&TaxKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken]]></FormalSpec>
+<FormalSpec>Kenmerken:ECON.PM.Maatwerk.dto.TaxKenmerken,TaxKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[