Index: WS/PM/ProductService.cls.xml
===================================================================
diff -u -r1604 -r2131
--- WS/PM/ProductService.cls.xml	(.../ProductService.cls.xml)	(revision 1604)
+++ WS/PM/ProductService.cls.xml	(.../ProductService.cls.xml)	(revision 2131)
@@ -25,7 +25,11 @@
 	$$$TECHErrorTrapOn
 	$$$chkRequiredParameter(Criteria)
 	$$$chkIsObject(Criteria)
-	Set Result = ##class(APPS.PM.ProductService).%New().ZoekProducten(Criteria)
+	
+	Set Result = ""
+	If (##class(TECH.ClassUtils).ValueIsValid(Criteria,"APPS.PM.dto.ZoekCriteria")){
+		Set Result = ##class(APPS.PM.ProductService).%New().ZoekProducten(Criteria)
+	}
 	$$$TECHErrorTrapOff
 	Quit Result
 ]]></Implementation>
Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r1905 -r2131
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1905)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2131)
@@ -92,12 +92,22 @@
 <Implementation><![CDATA[
 	if $isObject(Value) {
 		set result = ( $zobjMethod(Value,"%ValidateObject") = 1 )
-		if result { set result = $zobjMethod(Value,"%Extends",ClassName) }
+		if result { 
+			set result = $zobjMethod(Value,"%Extends",ClassName) 
+			If ('result){
+				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("'"_Value_"' is niet van de correcte klasse '"_ClassName_"'"))	
+			}
+		}
 		if result { set result = ..PropertiesValid(Value) }
 	}
 	else  { 
 		set result = $zobjClassMethod(ClassName,"IsValidDT",Value)
 	}
+	If ('result){
+		Set Message = "Validate van '"_Value_"' is niet gelukt."
+		Set:$G(%objlasterror)'="" Message = Message_" "_$$ParseStatus^vhLib(%objlasterror)
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Message))	
+	}
 	quit result
 ]]></Implementation>
 </Method>
@@ -122,15 +132,21 @@
 		set Property = itProperties.Next()
 		continue:Property.Calculated
 		set PropertyValue = $zobjProperty(Object,Property.Name)
-		if Property.Collection {
+		if (Property.Collection || (Property.Collection = "list")) {
 			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))		
+				}
 			}
 		}
 		elseif $length(PropertyValue) {
-			set result = $zobjMethod(Object,Property.Name_"IsValidDT",PropertyValue)
+			Set result = ..ValueIsValid(PropertyValue,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))		
+			}
 		}
 	}
 	quit result
Index: WS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r1735 -r2131
--- WS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1735)
+++ WS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2131)
@@ -44,6 +44,7 @@
 	$$$TECHErrorTrapOn
 	$$$chkRequiredParameter(PRNrs)
 	$$$chkIsObject(PRNrs)
+	
 	Set Result = ##class(APPS.PM.KenmerkenService).%New().GeefProductKenmerken(PRNrs,KenmerkGroepen)
 	$$$TECHErrorTrapOff
 	quit Result
@@ -79,7 +80,11 @@
 	$$$TECHErrorTrapOn
 	$$$chkRequiredParameter(ProductenKenmerken)
 	$$$chkIsObject(ProductenKenmerken)
-	set Result = ##class(APPS.PM.KenmerkenService).%New().BewaarProductenKenmerken(ProductenKenmerken)
+	
+	Set Result = ""
+	If (##class(TECH.ClassUtils).ValueIsValid(ProductenKenmerken,"APPS.PM.dto.Kenm.ProductenKenmerken")){
+		Set Result = ##class(APPS.PM.KenmerkenService).%New().BewaarProductenKenmerken(ProductenKenmerken)
+	}
 	$$$TECHErrorTrapOff
 	quit Result
 ]]></Implementation>