Index: DOM/PM/enu/RVGToepassing/Verwerker.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/RVGToepassing/Verwerker.cls.xml	(revision 0)
+++ DOM/PM/enu/RVGToepassing/Verwerker.cls.xml	(revision 68241)
@@ -0,0 +1,80 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.RVGToepassing.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>RVGToepassing:DOM.PM.enu.RVGToepassing</FormalSpec>
+<Implementation><![CDATA[
+	If RVGToepassing = "DuoDuo" {
+		Do ..VerwerkDuoDuo()
+	} ElseIf RVGToepassing = "DuoLinks" {
+		Do ..VerwerkDuoLinks()
+	} ElseIf RVGToepassing = "DuoRechts" {
+		Do ..VerwerkDuoRechts()
+	} ElseIf RVGToepassing = "DuoUno" {
+		Do ..VerwerkDuoUno()
+	} ElseIf RVGToepassing = "UnoDuo" {
+		Do ..VerwerkUnoDuo()
+	} ElseIf RVGToepassing = "UnoLinks" {
+		Do ..VerwerkUnoLinks()
+	} ElseIf RVGToepassing = "UnoRechts" {
+		Do ..VerwerkUnoRechts()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(RVGToepassing,"DOM.PM.enu.RVGToepassing",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDuoDuo">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkDuoLinks">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkDuoRechts">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkDuoUno">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkUnoDuo">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkUnoLinks">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkUnoRechts">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/enu/RVGToepassing.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/RVGToepassing.cls.xml	(revision 0)
+++ DOM/PM/enu/RVGToepassing.cls.xml	(revision 68241)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.RVGToepassing">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>;UnoLinks;UnoDuo;UnoRechts;DuoLinks;DuoUno;DuoRechts;DuoDuo</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;REVEGO uno links;REVEGO uno + duo;REVEGO uno rechts;REVEGO duo links;REVEGO duo + uno;REVEGO duo rechts;REVEGO duo + duo</Default>
+</Parameter>
+
+<Method name="UnoLinks">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.RVGToepassing</ReturnType>
+<Implementation><![CDATA[	Quit "UnoLinks"
+]]></Implementation>
+</Method>
+
+<Method name="UnoDuo">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.RVGToepassing</ReturnType>
+<Implementation><![CDATA[	Quit "UnoDuo"
+]]></Implementation>
+</Method>
+
+<Method name="UnoRechts">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.RVGToepassing</ReturnType>
+<Implementation><![CDATA[	Quit "UnoRechts"
+]]></Implementation>
+</Method>
+
+<Method name="DuoLinks">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.RVGToepassing</ReturnType>
+<Implementation><![CDATA[	Quit "DuoLinks"
+]]></Implementation>
+</Method>
+
+<Method name="DuoUno">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.RVGToepassing</ReturnType>
+<Implementation><![CDATA[	Quit "DuoUno"
+]]></Implementation>
+</Method>
+
+<Method name="DuoRechts">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.RVGToepassing</ReturnType>
+<Implementation><![CDATA[	Quit "DuoRechts"
+]]></Implementation>
+</Method>
+
+<Method name="DuoDuo">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.RVGToepassing</ReturnType>
+<Implementation><![CDATA[	Quit "DuoDuo"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/enu/RVGToepassing/AutoComplete.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/RVGToepassing/AutoComplete.cls.xml	(revision 0)
+++ DOM/PM/enu/RVGToepassing/AutoComplete.cls.xml	(revision 68241)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.RVGToepassing.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="DuoDuo">
+<Type>%String</Type>
+<InitialExpression>"DuoDuo"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="DuoLinks">
+<Type>%String</Type>
+<InitialExpression>"DuoLinks"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="DuoRechts">
+<Type>%String</Type>
+<InitialExpression>"DuoRechts"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="DuoUno">
+<Type>%String</Type>
+<InitialExpression>"DuoUno"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="UnoDuo">
+<Type>%String</Type>
+<InitialExpression>"UnoDuo"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="UnoLinks">
+<Type>%String</Type>
+<InitialExpression>"UnoLinks"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="UnoRechts">
+<Type>%String</Type>
+<InitialExpression>"UnoRechts"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>