Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r2156 -r2157
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2156)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2157)
@@ -71,7 +71,9 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	set Type = ..GetMethodParameterType(ClassName,Method,Parameter)
-	quit ..ValueIsValid(.Value,Type)
+	Do ..ValueIsValid(.Value,Type)
+	/// Indien ValueIsValid niet geldig is, wordt een fout gethrowed, dus hieronder mag $$$OK weergegeven worden
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -81,7 +83,9 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	set Type = ..GetMethodReturnType(ClassName,Method)
-	quit ..ValueIsValid(.Value,Type)
+	Do ..ValueIsValid(.Value,Type)
+	/// Indien ValueIsValid niet geldig is, wordt een fout gethrowed, dus hieronder mag $$$OK weergegeven worden
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -99,7 +103,10 @@
 				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("'"_Value_"' is niet van de correcte klasse '"_ClassName_"'"))	
 			}
 		}
-		if result { set result = ..PropertiesValid(Value) }
+		if result { 
+			Do ..PropertiesValid(Value)
+			set result = $$$OK
+		 }
 	}
 	else  { 
 		set result = $zobjClassMethod(ClassName,"IsValidDT",Value)
@@ -143,16 +150,9 @@
 			}
 			while (result) && (itCollection.HasNext()) {
 				set CollectionValue = itCollection.Next()
-				set result = ..ValueIsValid(CollectionValue,Property.Type)
-				If ('result){
-					Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Validatie van  '"_Property.%ClassName(1)_"' met  waarde '"_PropertyValue_"' is niet correct, type: "_Property.Type))		
-				}
-			}
+				Do ..ValueIsValid(CollectionValue,Property.Type)			}
 		}ElseIf($IsObject(PropertyValue)){
-			set result = ..ValueIsValid(PropertyValue,Property.Type)
-			If ('result){
-				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Validatie van  '"_Property.%ClassName(1)_"' met  waarde '"_PropertyValue_"' is niet correct, type: "_Property.Type))		
-			}
+			Do ..ValueIsValid(PropertyValue,Property.Type)
 		}
 		elseif $length(PropertyValue) {
 			set result = $zobjMethod(Object,Property.Name_"IsValidDT",PropertyValue)