Index: ECONimpl/PM/Maatwerk/AppsConverter/AppsNaarEcon/Tax.cls.xml
===================================================================
diff -u -r40677 -r40706
--- ECONimpl/PM/Maatwerk/AppsConverter/AppsNaarEcon/Tax.cls.xml	(.../Tax.cls.xml)	(revision 40677)
+++ ECONimpl/PM/Maatwerk/AppsConverter/AppsNaarEcon/Tax.cls.xml	(.../Tax.cls.xml)	(revision 40706)
@@ -45,13 +45,18 @@
 <Method name="ConverteerBooleans">
 <FormalSpec><![CDATA[Kenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken,&TaxKenmerken:ECON.PM.Maatwerk.dto.TaxKenmerken]]></FormalSpec>
 <Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	Set TaxKenmerken.HeeftDiepteVerstelling = $Select(Kenmerken.HeeftDiepteVerstelling="1":"true",1:"false")
-	Set TaxKenmerken.HeeftOpvullijstLinks = $Select(Kenmerken.HeeftOpvullijstLinks="1":"true",1:"false")
-	Set TaxKenmerken.HeeftOpvullijstRechts = $Select(Kenmerken.HeeftOpvullijstRechts="1":"true",1:"false")
-	Set TaxKenmerken.HeeftZijstabilisering = $Select(Kenmerken.HeeftZijstabilisering="1":"true",1:"false")
-	Set TaxKenmerken.IsBinnenlade = $Select(Kenmerken.IsBinnenlade="1":"true",1:"false")
-	Set TaxKenmerken.IsBinnenbreedte = $Select(Kenmerken.IsBinnenbreedte="1":"true",1:"false")
+	New Code, Iterator, Property
+	#dim PropertyList As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties($classname(Kenmerken))
+	Set Iterator = ##class(TECH.ListIterator).%New(PropertyList)
+	While Iterator.HasNext() {
+		Set Property = ##class(%CompiledProperty).%OpenId($classname(Kenmerken)_":"_Iterator.Next())
+		If ##class(TECH.ClassUtils).IsBoolean(Property.Type) {
+			#dim Code As %String = "Set TaxKenmerken."_Property.Name_" = $Select(Kenmerken."_Property.Name_"=""1"":""true"",1:""false"")" 
+			xecute Code
+		}
+	}
 ]]></Implementation>
 </Method>
 </Class>
Index: ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml
===================================================================
diff -u -r40678 -r40706
--- ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml	(.../Lbx.cls.xml)	(revision 40678)
+++ ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml	(.../Lbx.cls.xml)	(revision 40706)
@@ -123,13 +123,18 @@
 <Method name="ConverteerBooleans">
 <FormalSpec><![CDATA[Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken,&LbxKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken]]></FormalSpec>
 <Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	Set LbxKenmerken.HeeftDwarsverdeling = $Select(Kenmerken.HeeftDwarsverdeling="true":"1",1:"0")
-	Set LbxKenmerken.HeeftOpvullijstLinks = $Select(Kenmerken.HeeftOpvullijstLinks="true":"1",1:"0")
-	Set LbxKenmerken.HeeftOpvullijstRechts = $Select(Kenmerken.HeeftOpvullijstRechts="true":"1",1:"0")
-	Set LbxKenmerken.HeeftZijstabilisering = $Select(Kenmerken.HeeftZijstabilisering="true":"1",1:"0")
-	Set LbxKenmerken.IsBinnenbreedte = $Select(Kenmerken.IsBinnenbreedte="true":"1",1:"0")
-	Set LbxKenmerken.IsBinnenlade = $Select(Kenmerken.IsBinnenlade="true":"1",1:"0")
+	New Code, Iterator, Property
+	#dim PropertyList As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties($classname(LbxKenmerken))
+	Set Iterator = ##class(TECH.ListIterator).%New(PropertyList)
+	While Iterator.HasNext() {
+		Set Property = ##class(%CompiledProperty).%OpenId($classname(LbxKenmerken)_":"_Iterator.Next())
+		If ##class(TECH.ClassUtils).IsBoolean(Property.Type) {
+			#dim Code As %String = "Set LbxKenmerken."_Property.Name_" = $Select(Kenmerken."_Property.Name_"=""true"":""1"",1:""0"")"
+			xecute Code
+		}
+	}
 ]]></Implementation>
 </Method>
 </Class>
Index: ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Tax.cls.xml
===================================================================
diff -u -r40677 -r40706
--- ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Tax.cls.xml	(.../Tax.cls.xml)	(revision 40677)
+++ ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Tax.cls.xml	(.../Tax.cls.xml)	(revision 40706)
@@ -42,15 +42,20 @@
 </Method>
 
 <Method name="ConverteerBooleans">
-<FormalSpec><![CDATA[Kenmerken:ECON.PM.Maatwerk.dto.LbxKenmerken,&TaxKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken]]></FormalSpec>
+<FormalSpec><![CDATA[Kenmerken:ECON.PM.Maatwerk.dto.TaxKenmerken,&TaxKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken]]></FormalSpec>
 <Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	Set TaxKenmerken.HeeftDiepteVerstelling = $Select(Kenmerken.HeeftDiepteVerstelling="true":"1",1:"0")
-	Set TaxKenmerken.HeeftOpvullijstLinks = $Select(Kenmerken.HeeftOpvullijstLinks="true":"1",1:"0")
-	Set TaxKenmerken.HeeftOpvullijstRechts = $Select(Kenmerken.HeeftOpvullijstRechts="true":"1",1:"0")
-	Set TaxKenmerken.HeeftZijstabilisering = $Select(Kenmerken.HeeftZijstabilisering="true":"1",1:"0")
-	Set TaxKenmerken.IsBinnenlade = $Select(Kenmerken.IsBinnenlade="true":"1",1:"0")
-	Set TaxKenmerken.IsBinnenbreedte = $Select(Kenmerken.IsBinnenbreedte="true":"1",1:"0")
+	New Code, Iterator, Property
+	#dim PropertyList As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties($classname(TaxKenmerken))
+	Set Iterator = ##class(TECH.ListIterator).%New(PropertyList)
+	While Iterator.HasNext() {
+		Set Property = ##class(%CompiledProperty).%OpenId($classname(TaxKenmerken)_":"_Iterator.Next())
+		If ##class(TECH.ClassUtils).IsBoolean(Property.Type) {
+			#dim Code As %String = "Set TaxKenmerken."_Property.Name_" = $Select(Kenmerken."_Property.Name_"=""true"":""1"",1:""0"")"
+			xecute Code
+		}
+	}
 ]]></Implementation>
 </Method>
 </Class>