Index: ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml
===================================================================
diff -u -r40906 -r40909
--- ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml	(.../Lbx.cls.xml)	(revision 40906)
+++ ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml	(.../Lbx.cls.xml)	(revision 40909)
@@ -11,7 +11,6 @@
 	Set LbxKenmerken = ..ConverteerGegenereerdeProperties(Kenmerken)
 	
 	Set LbxKenmerken.AantalDwarsverdelingen = Kenmerken.DwarsverdelingAantal
-	Do ..ConverteerBooleans(Kenmerken, .LbxKenmerken)
 	Do ..ConverteerNietMeeleveren(Kenmerken, .LbxKenmerken)
 	Do ..ConverteerUitsparingData(Kenmerken, .LbxKenmerken)
 	Do ..ConverteerMat(Kenmerken, .LbxKenmerken)
@@ -35,9 +34,13 @@
 		
 		continue:##class(TECH.StringUtils).Contains(Property,"UitsparingData.","NietMeeleveren.","NietIngegeven.","DwarsverdelingAantal")
 		continue:##class(TECH.StringUtils).Equals(Property,"Familie","Variant")
-		continue:##class(TECH.StringUtils).StartsWith(Property,"Mat","Heeft","IsBinnen")
+		continue:##class(TECH.StringUtils).StartsWith(Property,"Mat")
 		
-		Do %code.WriteLine($$$TAB_"Set LbxKenmerken."_Property_" = Kenmerken."_Property)
+		if $listget(Properties(Property),1)="ECON.Boolean" {
+			Do %code.WriteLine($$$TAB_"Set LbxKenmerken."_Property_" = $select(Kenmerken."_Property_"=""true"":""1"",1:""0"")")
+		} else { 
+			Do %code.WriteLine($$$TAB_"Set LbxKenmerken."_Property_" = Kenmerken."_Property)
+		}	
 	}
 	
 	Do %code.WriteLine($$$TAB_"Quit LbxKenmerken")
@@ -125,24 +128,6 @@
 	}
 ]]></Implementation>
 </Method>
-
-<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[
-	New Code, Iterator, Property, PropertyList
-	Set PropertyList = ##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>