Index: DOM/PM/enu/TBXRugHouderKleur.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/TBXRugHouderKleur.cls.xml	(revision 0)
+++ DOM/PM/enu/TBXRugHouderKleur.cls.xml	(revision 39116)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.TBXRugHouderKleur">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+
+<Parameter name="VALUELIST">
+<Default>;MG;WI;SW;BZ;IN;BA;BI;AL;SA</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;MG;WI;SW;BZ;IN;BA;BI;AL;SA</Default>
+</Parameter>
+
+<Method name="MG">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXRugHouderKleur</ReturnType>
+<Implementation><![CDATA[	Quit "MG"
+]]></Implementation>
+</Method>
+
+<Method name="WI">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXRugHouderKleur</ReturnType>
+<Implementation><![CDATA[	Quit "WI"
+]]></Implementation>
+</Method>
+
+<Method name="SW">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXRugHouderKleur</ReturnType>
+<Implementation><![CDATA[	Quit "SW"
+]]></Implementation>
+</Method>
+
+<Method name="BZ">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXRugHouderKleur</ReturnType>
+<Implementation><![CDATA[	Quit "BZ"
+]]></Implementation>
+</Method>
+
+<Method name="IN">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXRugHouderKleur</ReturnType>
+<Implementation><![CDATA[	Quit "IN"
+]]></Implementation>
+</Method>
+
+<Method name="BA">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXRugHouderKleur</ReturnType>
+<Implementation><![CDATA[	Quit "BA"
+]]></Implementation>
+</Method>
+
+<Method name="BI">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXRugHouderKleur</ReturnType>
+<Implementation><![CDATA[	Quit "BI"
+]]></Implementation>
+</Method>
+
+<Method name="AL">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXRugHouderKleur</ReturnType>
+<Implementation><![CDATA[	Quit "AL"
+]]></Implementation>
+</Method>
+
+<Method name="SA">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXRugHouderKleur</ReturnType>
+<Implementation><![CDATA[	Quit "SA"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml
===================================================================
diff -u -r39074 -r39116
--- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 39074)
+++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 39116)
@@ -16,7 +16,7 @@
 	Set TbxKenmerken.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht30()
 	Set TbxKenmerken.DwarsverdelingAantal = ##class(DOM.PM.enu.TBXDwarsverdeling).Zonder()
 	Set TbxKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Inserta()
-	Set TbxKenmerken.FrontHouderKleur = "SW"
+	Set TbxKenmerken.FrontHouderKleur = ##class(DOM.PM.enu.TBXFrontHouderKleur).SW()
 	Set TbxKenmerken.FrontOndersteuningAantal = 0
 	Set TbxKenmerken.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).Geen()
 	Set TbxKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).Blumotion()
@@ -32,8 +32,8 @@
 	Set TbxKenmerken.LadeKleur = ##class(DOM.PM.enu.TBXLadeKleur).SW()
 	Set TbxKenmerken.LadeVariant = "TBX_Antaro"
 	Set TbxKenmerken.RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).M()
-	Set TbxKenmerken.RugHouderKleur = "SW"
-	Set TbxKenmerken.RugKleur = "WI"
+	Set TbxKenmerken.RugHouderKleur = ##class(DOM.PM.enu.TBXRugHouderKleur).SW()
+	Set TbxKenmerken.RugKleur = ##class(DOM.PM.enu.TBXRugKleur).Wit()
 	Set TbxKenmerken.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
 	Set TbxKenmerken.TipOn = $$$False
 	Set TbxKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).Lade()
Index: DOM/PM/enu/TBXFrontHouderKleur.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/TBXFrontHouderKleur.cls.xml	(revision 0)
+++ DOM/PM/enu/TBXFrontHouderKleur.cls.xml	(revision 39116)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.TBXFrontHouderKleur">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+
+<Parameter name="VALUELIST">
+<Default>;MG;WI;SW;BZ;IN;BA;BI;AL;SA</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;MG;WI;SW;BZ;IN;BA;BI;AL;SA</Default>
+</Parameter>
+
+<Method name="MG">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXFrontHouderKleur</ReturnType>
+<Implementation><![CDATA[	Quit "MG"
+]]></Implementation>
+</Method>
+
+<Method name="WI">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXFrontHouderKleur</ReturnType>
+<Implementation><![CDATA[	Quit "WI"
+]]></Implementation>
+</Method>
+
+<Method name="SW">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXFrontHouderKleur</ReturnType>
+<Implementation><![CDATA[	Quit "SW"
+]]></Implementation>
+</Method>
+
+<Method name="BZ">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXFrontHouderKleur</ReturnType>
+<Implementation><![CDATA[	Quit "BZ"
+]]></Implementation>
+</Method>
+
+<Method name="IN">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXFrontHouderKleur</ReturnType>
+<Implementation><![CDATA[	Quit "IN"
+]]></Implementation>
+</Method>
+
+<Method name="BA">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXFrontHouderKleur</ReturnType>
+<Implementation><![CDATA[	Quit "BA"
+]]></Implementation>
+</Method>
+
+<Method name="BI">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXFrontHouderKleur</ReturnType>
+<Implementation><![CDATA[	Quit "BI"
+]]></Implementation>
+</Method>
+
+<Method name="AL">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXFrontHouderKleur</ReturnType>
+<Implementation><![CDATA[	Quit "AL"
+]]></Implementation>
+</Method>
+
+<Method name="SA">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXFrontHouderKleur</ReturnType>
+<Implementation><![CDATA[	Quit "SA"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/enu/TBXRugKleur/AutoComplete.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/TBXRugKleur/AutoComplete.cls.xml	(revision 0)
+++ DOM/PM/enu/TBXRugKleur/AutoComplete.cls.xml	(revision 39116)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.TBXRugKleur.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Donkergrijs">
+<Type>%String</Type>
+<InitialExpression>"DG"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Lichtgrijs">
+<Type>%String</Type>
+<InitialExpression>"LG"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Terrazwart">
+<Type>%String</Type>
+<InitialExpression>"BZ"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Wit">
+<Type>%String</Type>
+<InitialExpression>"WI"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: DOM/PM/enu/TBXRugKleur.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/TBXRugKleur.cls.xml	(revision 0)
+++ DOM/PM/enu/TBXRugKleur.cls.xml	(revision 39116)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.TBXRugKleur">
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>;WI;LG;DG;BZ</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Wit;Lichtgrijs;Donkergrijs;Terrazwart</Default>
+</Parameter>
+
+<Method name="Wit">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXRugKleur</ReturnType>
+<Implementation><![CDATA[	Quit "WI"
+]]></Implementation>
+</Method>
+
+<Method name="Lichtgrijs">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXRugKleur</ReturnType>
+<Implementation><![CDATA[	Quit "LG"
+]]></Implementation>
+</Method>
+
+<Method name="Donkergrijs">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXRugKleur</ReturnType>
+<Implementation><![CDATA[	Quit "DG"
+]]></Implementation>
+</Method>
+
+<Method name="Terrazwart">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.TBXRugKleur</ReturnType>
+<Implementation><![CDATA[	Quit "BZ"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/enu/TBXRugKleur/Verwerker.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/TBXRugKleur/Verwerker.cls.xml	(revision 0)
+++ DOM/PM/enu/TBXRugKleur/Verwerker.cls.xml	(revision 39116)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.TBXRugKleur.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>TBXRugKleur:DOM.PM.enu.TBXRugKleur</FormalSpec>
+<Implementation><![CDATA[
+	If TBXRugKleur = "DG" {
+		Do ..VerwerkDonkergrijs()
+	} ElseIf TBXRugKleur = "LG" {
+		Do ..VerwerkLichtgrijs()
+	} ElseIf TBXRugKleur = "BZ" {
+		Do ..VerwerkTerrazwart()
+	} ElseIf TBXRugKleur = "WI" {
+		Do ..VerwerkWit()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TBXRugKleur,"DOM.PM.enu.TBXRugKleur",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDonkergrijs">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkLichtgrijs">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkTerrazwart">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkWit">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>