Index: svn/InterfaceControleur.cls.xml
===================================================================
diff -u -r1649 -r1660
--- svn/InterfaceControleur.cls.xml	(.../InterfaceControleur.cls.xml)	(revision 1649)
+++ svn/InterfaceControleur.cls.xml	(.../InterfaceControleur.cls.xml)	(revision 1660)
@@ -25,6 +25,7 @@
 	;do ..ControleerInterface(Classname)
 	do ..ControleerMethods(Classname)
 	do ..ControleerProperties(Classname)
+	do ..ControleerEnumeratie(Classname)
 
 	do ..ToonWarnings()
 ]]></Implementation>
@@ -119,6 +120,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ControleerEnumeratie">
+<FormalSpec>Classname:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Klasse = ##class(%Dictionary.CompiledClass).%OpenId(Classname)	
+	#dim IsEnumeratie As %Boolean = ((Klasse.ClassType="datatype") && ('Klasse.System))
+	Set:IsEnumeratie IsEnumeratie = 'Klasse.%Extends("Res.Enumeration")
+	If IsEnumeratie && '..HeeftEigenVALUELIST(Klasse){
+		Do ..Warnings.Insert("Er is geen VALUELIST gedefinieerd voor klasse '"_Classname_"'")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="HeeftEigenVALUELIST">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Klasse:%Dictionary.CompiledClass</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim HeeftEigenVALUELIST As %Boolean = 0
+	Set ParameterIt = ##class(TECH.ListIterator).%New(Klasse.Parameters)
+	While ParameterIt.HasNext(){
+		#dim Parameter As %Dictionary.CompiledParameter = ParameterIt.Next()
+		If (Parameter.Name = "VALUELIST") && ##class(TECH.StringUtils).StartsWith(Parameter.Origin,Klasse.Name) {
+			Set HeeftEigenVALUELIST = 1
+		}
+	}
+	Quit HeeftEigenVALUELIST
+]]></Implementation>
+</Method>
+
 <Method name="ToonWarnings">
 <Implementation><![CDATA[
 	#dim Warnings As %ListOfDataTypes = ..GeefWarnings()