Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r2202 -r2206
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2202)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2206)
@@ -5,6 +5,50 @@
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="ControleerParameters">
+<Description>
+Controleer van de webmethod zijn parameters adhv een deep-validation uit te voeren.
+Oproepen via 'Do ..ControleerParameters()'
+Smijt een Exception als validatie niet gelukt is. </Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set CallingMethod = ##class(TECH.ClassUtils).GetCallingMethod()
+	Set ClassName = $LI(CallingMethod,1)	
+	Set MethodName = $LI(CallingMethod,2)
+	
+	/// Aflopen van parameters
+	Set Class = ##class(TECH.ClassInfo.ClassDefinition).%New(ClassName)
+	If ($IsObject(Class)){
+		Set Method = Class.GeefMethod(MethodName)
+		Set DefaultArgs = ##class(%Dictionary.CompiledMethod).%OpenId(ClassName_"||"_MethodName).DefaultArgs
+		If ($IsObject(Method)){
+			Set CurrentParameter = 1
+			Set ParameterIt = Method.GeefParameters()
+			While (ParameterIt.HasNext()){
+				Set Parameter = ParameterIt.Next()
+				
+				/// Valideren van parameters
+				
+				Set ParameterName = Parameter.GeefNaam()
+				Set DefaultArg = $LG(DefaultArgs,CurrentParameter)
+				Set HeeftParameterInhoud = $length($get(@ParameterName))				
+				
+				/// Required
+				If (($length(DefaultArg)=0) & ('HeeftParameterInhoud)) {
+					Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Parameter '"_ParameterName_"' is required voor '"_ClassName_"."_MethodName_"(..)'"))			
+				}
+				/// Deep validate 
+				Set HeeftDefaultArg = ($length(DefaultArg)>0)
+				If ('HeeftDefaultArg || (HeeftDefaultArg && HeeftParameterInhoud)){
+					Do ##class(TECH.ClassUtils).ValueIsValid(@ParameterName,Parameter.GeefType())
+				}
+				Set CurrentParameter = CurrentParameter + 1
+			}			
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GetCurrentMethod">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%List</ReturnType>