Index: ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml
===================================================================
diff -u -r38634 -r38705
--- ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 38634)
+++ ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 38705)
@@ -1,7 +1,235 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="ECON.PM.Maatwerk.dto.TbxKenmerken">
-<Abstract>1</Abstract>
+<Super>%RegisteredObject</Super>
+
+<Property name="BodemKleur">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Bodemkleur"/>
+</Property>
+
+<Property name="CorpusBreedte">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Corpusbreedte"/>
+</Property>
+
+<Property name="CorpusWanddikte">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Corpuswanddikte"/>
+</Property>
+
+<Property name="DraagKracht">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Draagkracht"/>
+</Property>
+
+<Property name="DwarsverdelingAantal">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Dwarsverdelingaantal"/>
+</Property>
+
+<Property name="Familie">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Familie"/>
+</Property>
+
+<Property name="FrontBevestiging">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Frontbevestiging"/>
+</Property>
+
+<Property name="FrontHouderKleur">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Fronthouderkleur"/>
+</Property>
+
+<Property name="FrontOndersteuningAantal">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Frontondersteuningaantal"/>
+</Property>
+
+<Property name="FrontOndersteuningType">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Frontondersteuningtype"/>
+</Property>
+
+<Property name="GeleiderTechnologie">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Geleidertechnologie"/>
+</Property>
+
+<Property name="GreepEnMeenemer">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Greepenmeenemer"/>
+</Property>
+
+<Property name="HangmapBoringAantal">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Hangmapboringaantal"/>
+</Property>
+
+<Property name="HeeftAfwijkendeRughoogte">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Heeftafwijkenderughoogte"/>
+</Property>
+
+<Property name="HeeftOpvullijstLinks">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Heeftopvullijstlinks"/>
+</Property>
+
+<Property name="HeeftOpvullijstRechts">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Heeftopvullijstrechts"/>
+</Property>
+
+<Property name="HeeftZijstabilisering">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Heeftzijstabilisering"/>
+</Property>
+
+<Property name="IsBinnenbreedte">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Isbinnenbreedte"/>
+</Property>
+
+<Property name="IsBinnenlade">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Isbinnenlade"/>
+</Property>
+
+<Property name="LadeDesign">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Ladedesign"/>
+</Property>
+
+<Property name="LadeDiepte">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Ladediepte"/>
+</Property>
+
+<Property name="LadeHoogte">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Ladehoogte"/>
+</Property>
+
+<Property name="LadeKleur">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Ladekleur"/>
+</Property>
+
+<Property name="OpvullijstKleur">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Opvullijstkleur"/>
+</Property>
+
+<Property name="PlaatMateriaal">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Plaatmateriaal"/>
+</Property>
+
+<Property name="ProductieWijze">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Productiewijze"/>
+</Property>
+
+<Property name="RugKleur">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Rugkleur"/>
+</Property>
+
+<Property name="RughouderKleur">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Rughouderkleur"/>
+</Property>
+
+<Property name="RugwandMateriaal">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Rugwandmateriaal"/>
+</Property>
+
+<Property name="Toepassing">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Toepassing"/>
+</Property>
+
+<Property name="Variant">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Variant"/>
+</Property>
+
+<Property name="VerpakkingType">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Verpakkingtype"/>
+</Property>
+
+<Property name="ZijkantHoogte">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Zijkanthoogte"/>
+</Property>
+
+<Property name="ZijwandVerhogingInschuifelementKleur">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Zijwandverhoginginschuifelementkleur"/>
+</Property>
+
+<Property name="ZijwandVerhogingMateriaal">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Zijwandverhogingmateriaal"/>
+</Property>
+
+<Property name="ZijwandVerhogingRelingkleur">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Zijwandverhogingrelingkleur"/>
+</Property>
+
+<Property name="ZijwandVerhogingType">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="Zijwandverhogingtype"/>
+</Property>
+
+<Method name="FromStream">
+<FormalSpec>Stream:%Stream.Object</FormalSpec>
+<Implementation><![CDATA[
+	while '(Stream.AtEnd) {
+		#dim Line As %String = Stream.ReadLine()
+		#dim PropertyName As %String = ..GetPropertyName($piece(Line,"=",1))
+		if $length(PropertyName) {
+			set $property($this,PropertyName) = $piece(Line,"=",2)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ToStream">
+<ReturnType>%Stream.Object</ReturnType>
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	set PropertyIterator = ##class(TECH.ListIterator).%New(##class(TECH.ClassUtils).GeefProperties("ECON.PM.Maatwerk.dto.TbxKenmerken"))
+	while PropertyIterator.HasNext() {
+		#dim PropertyName As %String = PropertyIterator.Next()
+		#dim Value As %String = $property($this,PropertyName)
+		if $length(Value) {
+			set CompiledProperty = ##class(%Dictionary.CompiledProperty).%OpenId("ECON.PM.Maatwerk.dto.TbxKenmerken||"_PropertyName)
+			do:(Stream.Size>0) Stream.Write($char(13,10))
+			do Stream.Write(CompiledProperty.Parameters.GetAt("XMLNAME")_"="_Value)
+		}
+	}
+	quit Stream
+]]></Implementation>
+</Method>
+
+<Method name="GetPropertyName">
+<FormalSpec>PropertyName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set rs = ##class(TECH.ResultSet).%New()
+	do rs.Prepare("SELECT Name FROM %Dictionary.CompiledProperty WHERE parent = ? AND Parameters LIKE ?")
+	do rs.Execute("ECON.PM.Maatwerk.dto.TbxKenmerken","%"_",XMLNAME="_PropertyName_"%")
+	if rs.Next() quit rs.GetData(1) 
+	quit ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/ECON/PM/Maatwerk/dto/TbxKenmerken/ToStream/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/ECON/PM/Maatwerk/dto/TbxKenmerken/ToStream/Test.cls.xml	(revision 0)
+++ vhUnitTest/ECON/PM/Maatwerk/dto/TbxKenmerken/ToStream/Test.cls.xml	(revision 38705)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.ECON.PM.Maatwerk.dto.TbxKenmerken.ToStream.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Niet-hoofdletter gevoelige property">
+<Implementation><![CDATA[
+	set Object = ##class(ECON.PM.Maatwerk.dto.TbxKenmerken).%New()
+	set Object.Toepassing = "Lade"
+
+	#dim Stream As %Stream.Object = Object.ToStream()
+	do $$$AssertEquals(Stream.Read(),"Toepassing=Lade")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Hoofdletter gevoelige property">
+<Implementation><![CDATA[
+	set Object = ##class(ECON.PM.Maatwerk.dto.TbxKenmerken).%New()
+	set Object.CorpusWanddikte = 18
+
+	#dim Stream As %Stream.Object = Object.ToStream()
+	do $$$AssertEquals(Stream.Read(),"Corpuswanddikte=18")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Meerdere properties">
+<Implementation><![CDATA[
+	set Object = ##class(ECON.PM.Maatwerk.dto.TbxKenmerken).%New()
+	set Object.Toepassing = "Lade"
+	set Object.CorpusWanddikte = 18
+
+	#dim Stream As %Stream.Object = Object.ToStream()
+	do $$$AssertEquals(Stream.Read(),"Corpuswanddikte=18"_$$$CRLF_"Toepassing=Lade")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: ECONtools/PM/Maatwerk/dto/TbxKenmerkenGenerator.cls.xml
===================================================================
diff -u
--- ECONtools/PM/Maatwerk/dto/TbxKenmerkenGenerator.cls.xml	(revision 0)
+++ ECONtools/PM/Maatwerk/dto/TbxKenmerkenGenerator.cls.xml	(revision 38705)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="ECONtools.PM.Maatwerk.dto.TbxKenmerkenGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GenerateAll">
+<Implementation><![CDATA[
+	set PropertyIterator = ##class(TECH.ListIterator).%New(##class(TECH.ClassUtils).GeefProperties("ECON.PM.Maatwerk.dto.TbxKenmerken"))
+	while PropertyIterator.HasNext() {
+		#dim Property As %String = PropertyIterator.Next()
+		continue:(Property="Values")
+		do ..Generate(Property)		
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>Property:%String</FormalSpec>
+<Implementation><![CDATA[
+	w !,"Property "_Property_" As TECH.String (XMLNAME="""_##class(TECH.StringUtils).UpperCamelCase(Property)_""");"
+	
+	w !,"Method "_Property_"Get() As TECH.String {"_" quit ..Values.GetAt("""_##class(TECH.StringUtils).UpperCamelCase(Property)_""")  }"
+	
+	w !,"Method "_Property_"Set(Value As TECH.String) As %Status {"_" do ..Values.SetAt(Value,"""_##class(TECH.StringUtils).UpperCamelCase(Property)_""") } "
+]]></Implementation>
+</Method>
+
+<Method name="FixSetters">
+<Implementation><![CDATA[
+	#dim rs As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(##class(TECH.DynamicQuery).%New("SELECT ID FROM %Dictionary.MethodDefinition WHERE parent = 'ECON.PM.Maatwerk.dto.TbxKenmerken'"))
+	while rs.Next() {
+		set md = ##class(%Dictionary.MethodDefinition).%OpenId(rs.GetData(1))
+		continue:$$$Not(##class(TECH.StringUtils).EndsWith(md.Name,"Set"))
+		do ##class(%Dictionary.MethodDefinition).%DeleteId(rs.GetData(1))	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="FixGetters">
+<Implementation><![CDATA[
+	#dim rs As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(##class(TECH.DynamicQuery).%New("SELECT ID FROM %Dictionary.MethodDefinition WHERE parent = 'ECON.PM.Maatwerk.dto.TbxKenmerken'"))
+	while rs.Next() {
+		set md = ##class(%Dictionary.MethodDefinition).%OpenId(rs.GetData(1))
+		continue:$$$Not(##class(TECH.StringUtils).EndsWith(md.Name,"Get"))
+		do ##class(%Dictionary.MethodDefinition).%DeleteId(rs.GetData(1))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/ECON/PM/Maatwerk/dto/TbxKenmerken/FromStream/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/ECON/PM/Maatwerk/dto/TbxKenmerken/FromStream/Test.cls.xml	(revision 0)
+++ vhUnitTest/ECON/PM/Maatwerk/dto/TbxKenmerken/FromStream/Test.cls.xml	(revision 38705)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.ECON.PM.Maatwerk.dto.TbxKenmerken.FromStream.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Niet-hoofdletter gevoelige property">
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	do Stream.WriteLine("Toepassing=Lade")
+	
+	set Object = ##class(ECON.PM.Maatwerk.dto.TbxKenmerken).%New()
+	do Object.FromStream(Stream)
+	
+	do $$$AssertEquals(Object.Toepassing,"Lade")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Hoofdletter gevoelige property">
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	do Stream.WriteLine("Corpuswanddikte=18")
+	
+	set Object = ##class(ECON.PM.Maatwerk.dto.TbxKenmerken).%New()
+	do Object.FromStream(Stream)
+	
+	do $$$AssertEquals(Object.CorpusWanddikte,"18")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Meerdere properties">
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	do Stream.WriteLine("Corpuswanddikte=18")
+	do Stream.WriteLine("Toepassing=Lade")
+	
+	set Object = ##class(ECON.PM.Maatwerk.dto.TbxKenmerken).%New()
+	do Object.FromStream(Stream)
+	
+	do $$$AssertEquals(Object.CorpusWanddikte,"18")
+	do $$$AssertEquals(Object.Toepassing,"Lade")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>