Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r2153 -r2156
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2153)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2156)
@@ -86,14 +86,10 @@
 </Method>
 
 <Method name="ValueIsValid">
-<Description><![CDATA[
-[ Review CSC -> JBL ]
-Heeft het zin om een boolean terug te geven als er excepties worden gethrowed bij result = false?
-Method zal enkel true teruggeven. Meer zinvol zou zijn om het ValidateValue() te noemen zonder resultaat (enkel excepties bij foutief).
-Zo kan iedereen er van uitgaan dat hij de return value niet moet controleren.]]></Description>
+<Description>
+Throwt foutmelding indien niet geldig. </Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[&Value:%CacheString,ClassName:%String]]></FormalSpec>
-<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	if $isObject(Value) {
 		set result = ( $zobjMethod(Value,"%ValidateObject") = 1 )
@@ -114,17 +110,15 @@
 		Set:(($G(%objlasterror)'="") && '(%objlasterror [ "ECODETRAP")) Message = Message_" "_$$ParseStatus^vhLib(%objlasterror)
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Message))	
 	}
-	quit result
+	quit
 ]]></Implementation>
 </Method>
 
 <Method name="PropertiesValid">
-<Description><![CDATA[
-[ Review CSC -> JBL ]
-Idem als hierboven.]]></Description>
+<Description>
+Throwt foutmelding indien niet geldig. </Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[&Object:%CacheString]]></FormalSpec>
-<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#define CalculatedPropertiesNotIncluded 0
 	
@@ -154,6 +148,11 @@
 					Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Validatie van  '"_Property.%ClassName(1)_"' met  waarde '"_PropertyValue_"' is niet correct, type: "_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))		
+			}
 		}
 		elseif $length(PropertyValue) {
 			set result = $zobjMethod(Object,Property.Name_"IsValidDT",PropertyValue)
@@ -162,7 +161,7 @@
 			}
 		}
 	}
-	quit result
+	quit
 ]]></Implementation>
 </Method>
 </Class>