Index: DOM/PM/enu/TBXDraagkracht/Verwerker.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/TBXDraagkracht/Verwerker.cls.xml	(revision 0)
+++ DOM/PM/enu/TBXDraagkracht/Verwerker.cls.xml	(revision 38282)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.TBXDraagkracht.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>TBXDraagkracht:DOM.PM.enu.TBXDraagkracht</FormalSpec>
+<Implementation><![CDATA[
+	If TBXDraagkracht = "20" {
+		Do ..VerwerkDraagkracht20()
+	} ElseIf TBXDraagkracht = "30" {
+		Do ..VerwerkDraagkracht30()
+	} ElseIf TBXDraagkracht = "50" {
+		Do ..VerwerkDraagkracht50()
+	} ElseIf TBXDraagkracht = "65" {
+		Do ..VerwerkDraagkracht65()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TBXDraagkracht,"DOM.PM.enu.TBXDraagkracht",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDraagkracht20">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkDraagkracht30">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkDraagkracht50">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkDraagkracht65">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/enu/TBXDraagkracht/AutoComplete.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/TBXDraagkracht/AutoComplete.cls.xml	(revision 0)
+++ DOM/PM/enu/TBXDraagkracht/AutoComplete.cls.xml	(revision 38282)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.TBXDraagkracht.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="Draagkracht20">
+<Type>%String</Type>
+<InitialExpression>"20"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Draagkracht30">
+<Type>%String</Type>
+<InitialExpression>"30"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Draagkracht50">
+<Type>%String</Type>
+<InitialExpression>"50"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Draagkracht65">
+<Type>%String</Type>
+<InitialExpression>"65"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: DOM/PM/enu/TBXDraagkracht.cls.xml
===================================================================
diff -u -r29059 -r38282
--- DOM/PM/enu/TBXDraagkracht.cls.xml	(.../TBXDraagkracht.cls.xml)	(revision 29059)
+++ DOM/PM/enu/TBXDraagkracht.cls.xml	(.../TBXDraagkracht.cls.xml)	(revision 38282)
@@ -1,22 +1,20 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.enu.TBXDraagkracht">
-<ClassType>datatype</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%Integer</Super>
+<Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>;25;30;50;65</Default>
+<Default>;20;30;50;65</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;25;30;50;65</Default>
+<Default>;20;30;50;65</Default>
 </Parameter>
 
-<Method name="Draagkracht25">
+<Method name="Draagkracht20">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.enu.TBXDraagkracht</ReturnType>
-<Implementation><![CDATA[	Quit "25"
+<Implementation><![CDATA[	Quit "20"
 ]]></Implementation>
 </Method>