Index: DOM/VKP/enu/OrderType.cls.xml
===================================================================
diff -u -r29059 -r33156
--- DOM/VKP/enu/OrderType.cls.xml	(.../OrderType.cls.xml)	(revision 29059)
+++ DOM/VKP/enu/OrderType.cls.xml	(.../OrderType.cls.xml)	(revision 33156)
@@ -3,54 +3,61 @@
 <Class name="DOM.VKP.enu.OrderType">
 <ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
+<Super>TECH.Enumeration</Super>
 
-<Parameter name="VALUELIST">
-<Default>,M,P,Y,C,K,A,T</Default>
-</Parameter>
-
 <Parameter name="DISPLAYLIST">
 <Default><![CDATA[;Monster;Proforma;Cash&Carry;Contract;KlantGebonden;Afroep;Transfer]]></Default>
 </Parameter>
 
+<Parameter name="VALUELIST">
+<Default>,M,P,Y,C,K,A,T</Default>
+</Parameter>
+
 <Method name="Monster">
 <ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.OrderType</ReturnType>
 <Implementation><![CDATA[	Quit "M"
 ]]></Implementation>
 </Method>
 
 <Method name="Proforma">
 <ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.OrderType</ReturnType>
 <Implementation><![CDATA[	Quit "P"
 ]]></Implementation>
 </Method>
 
 <Method name="CashCarry">
 <ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.OrderType</ReturnType>
 <Implementation><![CDATA[	Quit "Y"
 ]]></Implementation>
 </Method>
 
 <Method name="Contract">
 <ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.OrderType</ReturnType>
 <Implementation><![CDATA[	Quit "C"
 ]]></Implementation>
 </Method>
 
 <Method name="KlantGebonden">
 <ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.OrderType</ReturnType>
 <Implementation><![CDATA[	Quit "K"
 ]]></Implementation>
 </Method>
 
 <Method name="Afroep">
 <ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.OrderType</ReturnType>
 <Implementation><![CDATA[	Quit "A"
 ]]></Implementation>
 </Method>
 
 <Method name="Transfer">
 <ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.OrderType</ReturnType>
 <Implementation><![CDATA[	Quit "T"
 ]]></Implementation>
 </Method>
Index: DOM/VKP/enu/OrderType/Verwerker.cls.xml
===================================================================
diff -u
--- DOM/VKP/enu/OrderType/Verwerker.cls.xml	(revision 0)
+++ DOM/VKP/enu/OrderType/Verwerker.cls.xml	(revision 33156)
@@ -0,0 +1,80 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.enu.OrderType.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>OrderType:DOM.VKP.enu.OrderType</FormalSpec>
+<Implementation><![CDATA[
+	If OrderType = "A" {
+		Do ..VerwerkAfroep()
+	} ElseIf OrderType = "Y" {
+		Do ..VerwerkCashCarry()
+	} ElseIf OrderType = "C" {
+		Do ..VerwerkContract()
+	} ElseIf OrderType = "K" {
+		Do ..VerwerkKlantGebonden()
+	} ElseIf OrderType = "M" {
+		Do ..VerwerkMonster()
+	} ElseIf OrderType = "P" {
+		Do ..VerwerkProforma()
+	} ElseIf OrderType = "T" {
+		Do ..VerwerkTransfer()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(OrderType,"DOM.VKP.enu.OrderType",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkAfroep">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkCashCarry">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkContract">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkKlantGebonden">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkMonster">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkProforma">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkTransfer">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/VKP/enu/OrderType/AutoComplete.cls.xml
===================================================================
diff -u
--- DOM/VKP/enu/OrderType/AutoComplete.cls.xml	(revision 0)
+++ DOM/VKP/enu/OrderType/AutoComplete.cls.xml	(revision 33156)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.enu.OrderType.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="Afroep">
+<Type>DOM.VKP.enu.OrderType</Type>
+<InitialExpression>"A"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="CashCarry">
+<Type>DOM.VKP.enu.OrderType</Type>
+<InitialExpression>"Y"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Contract">
+<Type>DOM.VKP.enu.OrderType</Type>
+<InitialExpression>"C"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="KlantGebonden">
+<Type>DOM.VKP.enu.OrderType</Type>
+<InitialExpression>"K"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Monster">
+<Type>DOM.VKP.enu.OrderType</Type>
+<InitialExpression>"M"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Proforma">
+<Type>DOM.VKP.enu.OrderType</Type>
+<InitialExpression>"P"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Transfer">
+<Type>DOM.VKP.enu.OrderType</Type>
+<InitialExpression>"T"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>