Index: DOM/PM/enu/LBXRugHoogte/AutoComplete.cls.xml
===================================================================
diff -u -r30962 -r38429
--- DOM/PM/enu/LBXRugHoogte/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 30962)
+++ DOM/PM/enu/LBXRugHoogte/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 38429)
@@ -10,35 +10,35 @@
 <Super>%SerialObject</Super>
 
 <Property name="C">
-<Type>DOM.PM.enu.LBXRugHoogte</Type>
+<Type>%String</Type>
 <InitialExpression>"C"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
 
 <Property name="F">
-<Type>DOM.PM.enu.LBXRugHoogte</Type>
+<Type>%String</Type>
 <InitialExpression>"F"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
 
 <Property name="K">
-<Type>DOM.PM.enu.LBXRugHoogte</Type>
+<Type>%String</Type>
 <InitialExpression>"K"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
 
 <Property name="M">
-<Type>DOM.PM.enu.LBXRugHoogte</Type>
+<Type>%String</Type>
 <InitialExpression>"M"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
 
 <Property name="N">
-<Type>DOM.PM.enu.LBXRugHoogte</Type>
+<Type>%String</Type>
 <InitialExpression>"N"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
Index: DOM/PM/enu/LBXRugHoogte.cls.xml
===================================================================
diff -u -r29059 -r38429
--- DOM/PM/enu/LBXRugHoogte.cls.xml	(.../LBXRugHoogte.cls.xml)	(revision 29059)
+++ DOM/PM/enu/LBXRugHoogte.cls.xml	(.../LBXRugHoogte.cls.xml)	(revision 38429)
@@ -49,6 +49,23 @@
 <Implementation><![CDATA[	Quit "F"
 ]]></Implementation>
 </Method>
+
+<Method name="RandomValue">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ValueToBeIgnored...:TECH.String</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Value As TECH.String = ""
+	#dim ValueList As TECH.Iterator = ..ValueList()
+	#dim ValueToBeIgnoredIterator As TECH.Iterator = ##class(TECH.ArrayOneDimIterator).%New(.ValueToBeIgnored)
+	While ( Value = "" ) || ( ( ValueToBeIgnoredIterator.HasNext() ) && (##class(TECH.ListUtils).IsValueInIterator(Value,ValueToBeIgnoredIterator)) ) {
+		Set Value = ValueList.GetAt($random(ValueList.Count()+1))
+		Do ValueToBeIgnoredIterator.Reset()
+	}
+
+	Quit Value
+]]></Implementation>
+</Method>
 </Class>