Index: APPS/CHUI/enu/KlantRaadpleegScherm.cls.xml
===================================================================
diff -u -r48036 -r48037
--- APPS/CHUI/enu/KlantRaadpleegScherm.cls.xml	(.../KlantRaadpleegScherm.cls.xml)	(revision 48036)
+++ APPS/CHUI/enu/KlantRaadpleegScherm.cls.xml	(.../KlantRaadpleegScherm.cls.xml)	(revision 48037)
@@ -6,7 +6,7 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>,1</Default>
+<Default>,1,O</Default>
 </Parameter>
 
 <Method name="Algemeen">
@@ -15,6 +15,13 @@
 <Implementation><![CDATA[	quit "1"
 ]]></Implementation>
 </Method>
+
+<Method name="Order">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.CHUI.enu.KlantRaadpleegScherm</ReturnType>
+<Implementation><![CDATA[	quit "O"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/CHUI/enu/KlantRaadpleegScherm/AutoComplete.cls.xml
===================================================================
diff -u -r48036 -r48037
--- APPS/CHUI/enu/KlantRaadpleegScherm/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 48036)
+++ APPS/CHUI/enu/KlantRaadpleegScherm/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 48037)
@@ -15,6 +15,13 @@
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
+
+<Property name="Order">
+<Type>%String</Type>
+<InitialExpression>"O"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
 </Class>
 
 
Index: APPS/CHUI/enu/KlantRaadpleegScherm/Verwerker.cls.xml
===================================================================
diff -u -r48036 -r48037
--- APPS/CHUI/enu/KlantRaadpleegScherm/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 48036)
+++ APPS/CHUI/enu/KlantRaadpleegScherm/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 48037)
@@ -14,6 +14,8 @@
 <Implementation><![CDATA[
 	If KlantRaadpleegScherm = "1" {
 		Do ..VerwerkAlgemeen()
+	} ElseIf KlantRaadpleegScherm = "O" {
+		Do ..VerwerkOrder()
 	} Else {
 		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(KlantRaadpleegScherm,"APPS.CHUI.enu.KlantRaadpleegScherm",$classname())
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
@@ -26,6 +28,12 @@
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="VerwerkOrder">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
 </Class>