Index: ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml
===================================================================
diff -u -r56875 -r61919
--- ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 56875)
+++ ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 61919)
@@ -228,24 +228,32 @@
 <CodeMode>objectgenerator</CodeMode>
 <FormalSpec>KenmerkenArray:%ArrayOfDataTypes</FormalSpec>
 <Implementation><![CDATA[
-	#dim Code,Key,Keys,Properties,Property
+	#dim Code,Key,Keys,Properties,Property,PropertyType
 
 	do ##class(ECONimpl.PM.Maatwerk.EconConfiguratieKeysBuilder).%New().BuildKeys(%class.Name,.Keys, "Data.Kenmerken.")	
 	do arrProperties^vhLib.Class(%class.Name,.Properties,"A","A","A",1)
 	
 	set (Property,Key)=""
 	for { set Property = $order(Properties(Property)) set Key = $order(Keys(Key)) quit:Property=""
-		if ((Property = "Familie") || (Property = "Variant")) {
-			set Code = "set .."_Property_" = KenmerkenArray.GetAt(""Data.Kenmerken."_Property_""")"
-		} else {
-			set Code = "set .."_Property_" = KenmerkenArray.GetAt("""_Key_""")"
-		}
+		set PropertyType = $LG( $G(Properties(Property)), 1)
+		set Code = $$subFromArrayGenerateKenmerkCode(Property, Key, PropertyType)
 		do %code.WriteLine($$$TAB_Code)
 	}
 	
 	do %code.WriteLine($$$TAB_"quit")
 
 	quit $$$OK
+
+subFromArrayGenerateKenmerkCode(Property, Key, PropertyType)
+	Set Code = ""
+	If ((Property = "Familie") || (Property = "Variant")) {
+		Set Code = "Set .."_Property_" = KenmerkenArray.GetAt(""Data.Kenmerken."_Property_""")"
+	} ElseIf (PropertyType = "ECON.Boolean") {
+		Set Code = "Set .."_Property_" = $ZCVT(KenmerkenArray.GetAt("""_Key_"""),""L"")"
+	} Else {
+		Set Code = "Set .."_Property_" = KenmerkenArray.GetAt("""_Key_""")"
+	}
+	Quit Code
 ]]></Implementation>
 </Method>
 
Index: ECON/PM/Maatwerk/dto/TbxKenmerkenOld.cls.xml
===================================================================
diff -u -r56875 -r61919
--- ECON/PM/Maatwerk/dto/TbxKenmerkenOld.cls.xml	(.../TbxKenmerkenOld.cls.xml)	(revision 56875)
+++ ECON/PM/Maatwerk/dto/TbxKenmerkenOld.cls.xml	(.../TbxKenmerkenOld.cls.xml)	(revision 61919)
@@ -7,24 +7,32 @@
 <CodeMode>objectgenerator</CodeMode>
 <FormalSpec>KenmerkenArray:%ArrayOfDataTypes</FormalSpec>
 <Implementation><![CDATA[
-	#dim Code,Key,Keys,Properties,Property
+	#dim Code,Key,Keys,Properties,Property,PropertyType
 
-	do ##class(ECONimpl.PM.Maatwerk.EconConfiguratieKeysBuilder).%New().BuildKeys(%class.Name,.Keys)
+	do ##class(ECONimpl.PM.Maatwerk.EconConfiguratieKeysBuilder).%New().BuildKeys(%class.Name,.Keys,"Data.")
 	do arrProperties^vhLib.Class(%class.Name,.Properties,"A","A","A",1)
 	
 	set (Property,Key)=""
 	for { set Property = $order(Properties(Property)) set Key = $order(Keys(Key)) quit:Property=""
-		if ((Property = "Familie") || (Property = "Variant")) {
-			set Code = "set .."_Property_" = KenmerkenArray.GetAt(""Data.Kenmerken."_Property_""")"
-		} else {
-			set Code = "set .."_Property_" = KenmerkenArray.GetAt("""_Key_""")"
-		}
+		set PropertyType = $LG( $G(Properties(Property)), 1)
+		set Code = $$subFromArrayGenerateKenmerkCode(Property, Key, PropertyType)
 		do %code.WriteLine($$$TAB_Code)
 	}
 	
 	do %code.WriteLine($$$TAB_"quit")
 
 	quit $$$OK
+
+subFromArrayGenerateKenmerkCode(Property, Key, PropertyType)
+	Set Code = ""
+	If ((Property = "Familie") || (Property = "Variant")) {
+		Set Code = "Set .."_Property_" = KenmerkenArray.GetAt(""Data.Kenmerken."_Property_""")"
+	} ElseIf (PropertyType = "ECON.Boolean") {
+		Set Code = "Set .."_Property_" = $ZCVT(KenmerkenArray.GetAt("""_Key_"""),""L"")"
+	} Else {
+		Set Code = "Set .."_Property_" = KenmerkenArray.GetAt("""_Key_""")"
+	}
+	Quit Code
 ]]></Implementation>
 </Method>