Index: vhUnitTest/TECH/ClassUtils.cls.xml
===================================================================
diff -u -r1905 -r2137
--- vhUnitTest/TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1905)
+++ vhUnitTest/TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2137)
@@ -46,29 +46,62 @@
 
 <Method name="TestMethodReturnTypeValidation">
 <Implementation><![CDATA[
-
 	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1,"vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
+	
+	Set $ZTRAP = "Catch1"
 	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1.5,"vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
+Catch1 Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	do $$$AssertTrue(Exception.GeefOmschrijving()["Validate van TECH.Integer is niet gelukt.","Foutmelding is correct.")
+	
+	Set $ZTRAP = "Catch2"
 	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod("A","vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
-	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod("1-3","vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
+Catch2 Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	do $$$AssertTrue(Exception.GeefOmschrijving()["Validate van TECH.Integer is niet gelukt.","Foutmelding is correct.")
 	
+	Set $ZTRAP = "Catch3"	
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod("1-3","vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
+Catch3 Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	do $$$AssertTrue(Exception.GeefOmschrijving()["Validate van TECH.Integer is niet gelukt.","Foutmelding is correct.")
+		
+			
 	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1,"vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
+	
+	
+	
+	Set $ZTRAP = "Catch4"
+	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod("A","vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
+Catch4 Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	do $$$AssertTrue(Exception.GeefOmschrijving()["Validate van %Library.Float is niet gelukt.","Foutmelding is correct.")
+	
+	
 	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1.5,"vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
-	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod("A","vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
 	
 	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
 	set obj.Required = "required"
+	
 	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 1")
-
+	
+	
 	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
 	set obj.ValueList=""
+	Set $ZTRAP = "Catch5"
 	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 2")
-
+Catch5 Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	do $$$AssertTrue(Exception.GeefOmschrijving()["Validate van vhUnitTest.TECH.ClassUtilsTestObject is niet gelukt.","Foutmelding is correct.")	
+	Set $ZTRAP = "Catch6"
 	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
 	set obj.Required="required"
 	set obj.ValueList="InvalidValue"
 	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 3")
-
+Catch6 Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	do $$$AssertTrue(Exception.GeefOmschrijving()["Validatie van  '%Dictionary.CompiledProperty' is niet correct.","Foutmelding is correct.")
+	
 	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
 	set obj.Required="required"
 	set obj.ValueList="ValidValue"
@@ -80,13 +113,17 @@
 	do obj.Array.SetAt(15,"GeldigeIntegerWaarde")
 	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 5")
 
+	Set $ZTRAP = "Catch7"
 	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
 	set obj.Required="required"
 	set obj.ValueList="ValidValue"
 	do obj.Array.SetAt(15.5,"OnGeldigeIntegerWaarde")
 	do obj.Array.SetAt(15,"GeldigeIntegerWaarde")
 	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 6")
-
+Catch7 Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	do $$$AssertTrue(Exception.GeefOmschrijving()["Validate van vhUnitTest.TECH.ClassUtilsTestObject is niet gelukt.","Foutmelding is correct.")
+	
 	quit
 ]]></Implementation>
 </Method>
Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r2131 -r2137
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2131)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2137)
@@ -104,8 +104,9 @@
 		set result = $zobjClassMethod(ClassName,"IsValidDT",Value)
 	}
 	If ('result){
-		Set Message = "Validate van '"_Value_"' is niet gelukt."
-		Set:$G(%objlasterror)'="" Message = Message_" "_$$ParseStatus^vhLib(%objlasterror)
+		Set Message = "Validate van "_ ClassName_" is niet gelukt."
+		Set:('$IsObject(Value)) Message = Message_ " (Waarde : '"_Value_"')"
+		Set:(($G(%objlasterror)'="") && '(%objlasterror [ "ECODETRAP")) Message = Message_" "_$$ParseStatus^vhLib(%objlasterror)
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Message))	
 	}
 	quit result
@@ -132,20 +133,24 @@
 		set Property = itProperties.Next()
 		continue:Property.Calculated
 		set PropertyValue = $zobjProperty(Object,Property.Name)
-		if (Property.Collection || (Property.Collection = "list")) {
-			set itCollection = ##class(TECH.ListIterator).%New(PropertyValue)
+		if (Property.Collection || (Property.Collection = "list") || (Property.Collection = "array")) {
+			If (Property.Collection = "array"){
+				set itCollection = ##class(TECH.ArrayIterator).%New(PropertyValue)
+			}Else{
+				set itCollection = ##class(TECH.ListIterator).%New(PropertyValue)
+			}
 			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_"' met  waarde '"_PropertyValue_"' is niet correct, type: "_Property.Type))		
+					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 = ..ValueIsValid(PropertyValue,Property.Type)
+			set result = $zobjMethod(Object,Property.Name_"IsValidDT",PropertyValue)
 			If ('result){
-				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Validatie van  '"_Property_"' met  waarde '"_PropertyValue_"' is niet correct, type: "_Property.Type))		
+				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Validatie van  '"_Property.%ClassName(1)_"' is niet correct. (Waarde: '"_PropertyValue_"' is niet correct, Type: '"_Property.Type_"'"))		
 			}
 		}
 	}