Index: vhUnitTest/TECH/ObjectUtils/ObjectConverter.cls.xml
===================================================================
diff -u -r2202 -r2209
--- vhUnitTest/TECH/ObjectUtils/ObjectConverter.cls.xml	(.../ObjectConverter.cls.xml)	(revision 2202)
+++ vhUnitTest/TECH/ObjectUtils/ObjectConverter.cls.xml	(.../ObjectConverter.cls.xml)	(revision 2209)
@@ -88,7 +88,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Onbekende property -&gt; Runtime exception">
+<Method name="Test: Onbekende property in input-&gt; Runtime exception">
 <Implementation><![CDATA[
 	try {
 		set ConversionData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
@@ -113,14 +113,39 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Onbekende property in output-&gt; Runtime exception">
+<Implementation><![CDATA[
+	try {
+		set ConversionData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+		do ConversionData.Add("AsInteger","OnbestaandeProperty")
+		
+		set ObjectTo = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
+		
+		do ..ObjectConverter.Convert(..GetObjectFrom(),ObjectTo,ConversionData)
+		
+		do ..Fail("Er was een exeptie verwacht")
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		do $$$AssertEquals(Exception.%ClassName(1),"TECH.ObjectUtils.ObjectConverterException")
+		
+		#dim ExceptionList As TECH.ExceptionList = Exception.GeefInnerExcepties()
+		if $$$AssertEquals(ExceptionList.Count(),1) {
+			do $$$AssertEquals(ExceptionList.GetAt(1).%ClassName(1),"TECH.Exceptions.RuntimeException")
+			do $$$AssertContains(ExceptionList.GetAt(1).GeefOmschrijving(),"<PROPERTY DOES NOT EXIST>")
+			do $$$AssertContains(ExceptionList.GetAt(1).GeefOmschrijving(),"*OnbestaandeProperty")	
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="Test: Ongeldige waarde in opgegeven object -&gt; Object Converter Property Exception - Input">
 <Implementation><![CDATA[
 	try {
 		set ObjectFrom = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
 		set ObjectFrom.AsEnumeration = "InvalidValue"
 		
 		set ConversionData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
-		do ConversionData.Add("AsEnumeration","AsEnumeration")
+		do ConversionData.Add("AsEnumeration","AsString")
 		
 		set ObjectTo = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
 
@@ -137,8 +162,11 @@
 		if $$$AssertEquals(ExceptionList.Count(),1) {
 			do $$$AssertEquals(ExceptionList.GetAt(1).%ClassName(1),"TECH.ObjectUtils.ObjectConverterPropertyException")
 			do $$$AssertEquals(ExceptionList.GetAt(1).GeefOmschrijving(),"Invalid input validation. Value 'InvalidValue' not valid for 'AsEnumeration' on 'vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object'.")
+			do $$$AssertEquals(ExceptionList.GetAt(1).PropertyNameFrom,"AsEnumeration")
+			do $$$AssertEquals(ExceptionList.GetAt(1).PropertyNameTo,"AsString")
 			do $$$AssertFalse(ExceptionList.GetAt(1).IsOutput())
 			do $$$AssertTrue(ExceptionList.GetAt(1).IsInput())
+			
 		}
 	}
 ]]></Implementation>
@@ -168,9 +196,10 @@
 		if $$$AssertEquals(ExceptionList.Count(),1) {
 			do $$$AssertEquals(ExceptionList.GetAt(1).%ClassName(1),"TECH.ObjectUtils.ObjectConverterPropertyException")
 			do $$$AssertEquals(ExceptionList.GetAt(1).GeefOmschrijving(),"Invalid output validation. Value 'InvalidValue' not valid for 'AsEnumeration' on 'vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object'.")
+			do $$$AssertEquals(ExceptionList.GetAt(1).PropertyNameFrom,"AsString")
+			do $$$AssertEquals(ExceptionList.GetAt(1).PropertyNameTo,"AsEnumeration")
 			do $$$AssertTrue(ExceptionList.GetAt(1).IsOutput())
 			do $$$AssertFalse(ExceptionList.GetAt(1).IsInput())
-			
 		}
 	}
 ]]></Implementation>
Index: TECH/ObjectUtils/impl/ObjectConverter.cls.xml
===================================================================
diff -u -r2202 -r2209
--- TECH/ObjectUtils/impl/ObjectConverter.cls.xml	(.../ObjectConverter.cls.xml)	(revision 2202)
+++ TECH/ObjectUtils/impl/ObjectConverter.cls.xml	(.../ObjectConverter.cls.xml)	(revision 2209)
@@ -31,7 +31,7 @@
 		try {
 			#dim Output As %CacheString = ""
 		
-			do ..Validate(ObjectFrom,Conversion.PropertyFrom,1)
+			do ..Validate(ObjectFrom,Conversion,1)
 		    
 		    #dim Input As %CacheString = $property(ObjectFrom,Conversion.PropertyFrom)
 		    
@@ -43,7 +43,7 @@
 			
 			set $property(ObjectTo,Conversion.PropertyTo) = Output
 			
-			do ..Validate(ObjectTo,Conversion.PropertyTo,0)
+			do ..Validate(ObjectTo,Conversion,0)
 			
 
 		} catch {
@@ -61,12 +61,13 @@
 </Method>
 
 <Method name="Validate">
-<FormalSpec>Object:%Base,PropertyName:%String,IsInput:%Boolean</FormalSpec>
+<FormalSpec>Object:%Base,Conversion:TECH.ObjectUtils.ObjectConverter.Conversion,IsInput:%Boolean</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	#dim PropertyName As %CacheString = $select(IsInput:Conversion.PropertyFrom,1:Conversion.PropertyTo)
 	#dim PropertyValue As %CacheString = $property(Object,PropertyName)
-	if $$$Not($method(Object,PropertyName_"IsValid",PropertyValue)) {
-		set Exception = ##class(TECH.ObjectUtils.ObjectConverterPropertyException).%New($select(IsInput:"input",1:"output"),$classname(Object),PropertyName,PropertyValue)
+	if ($$$HasLength(PropertyValue)) && ($$$Not($method(Object,PropertyName_"IsValid",PropertyValue))) {
+		set Exception = ##class(TECH.ObjectUtils.ObjectConverterPropertyException).%New($select(IsInput:"input",1:"output"),$classname(Object),PropertyName,PropertyValue,Conversion.PropertyFrom,Conversion.PropertyTo)
 		do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 ]]></Implementation>
Index: TECH/ObjectUtils/ObjectConverterPropertyException.cls.xml
===================================================================
diff -u -r2202 -r2209
--- TECH/ObjectUtils/ObjectConverterPropertyException.cls.xml	(.../ObjectConverterPropertyException.cls.xml)	(revision 2202)
+++ TECH/ObjectUtils/ObjectConverterPropertyException.cls.xml	(.../ObjectConverterPropertyException.cls.xml)	(revision 2209)
@@ -19,8 +19,16 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="PropertyNameFrom">
+<Type>%String</Type>
+</Property>
+
+<Property name="PropertyNameTo">
+<Type>%String</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>InputOutput:%String,ClassName:%String,PropertyName:%String,Value:%CacheString</FormalSpec>
+<FormalSpec>InputOutput:%String,ClassName:%String,PropertyName:%String,Value:%CacheString,PropertyNameFrom:%String,PropertyNameTo:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -30,6 +38,8 @@
 	set ..ClassName = ClassName
 	set ..PropertyName = PropertyName
 	set ..Value = Value
+	set ..PropertyNameFrom = PropertyNameFrom
+	set ..PropertyNameTo = PropertyNameTo
 	Quit $$$OK
 ]]></Implementation>
 </Method>