Index: TECH/ObjectUtils/ObjectConverterException.cls.xml
===================================================================
diff -u -r2202 -r2218
--- TECH/ObjectUtils/ObjectConverterException.cls.xml	(.../ObjectConverterException.cls.xml)	(revision 2202)
+++ TECH/ObjectUtils/ObjectConverterException.cls.xml	(.../ObjectConverterException.cls.xml)	(revision 2218)
@@ -8,6 +8,65 @@
 <Implementation><![CDATA[	Quit ##class(TECH.enu.ExceptionCode).GeneralError()
 ]]></Implementation>
 </Method>
+
+<Method name="ConverteerInputExceptionsNaarOutput">
+<Implementation><![CDATA[
+	Set ExceptionsIterator = ##class(TECH.ListIterator).%New(..GeefInnerExcepties())
+	While (ExceptionsIterator.HasNext()) {
+		#dim Exception As TECH.ObjectUtils.ObjectConverterPropertyException = ExceptionsIterator.Next()
+		If Exception.InputOutput = "input" {
+			Set Exception.InputOutput = "output"
+		}		
+		Set Exception.PropertyNameFrom = ""
+		Set Exception.PropertyNameTo = ""
+		Set Exception.ClassName = ""
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerOutputExceptionsNaarInput">
+<FormalSpec>ObjectConvertData:TECH.ObjectUtils.ObjectConvertData</FormalSpec>
+<Implementation><![CDATA[
+	Set ExceptionsIterator = ##class(TECH.ListIterator).%New(..GeefInnerExcepties())
+	While (ExceptionsIterator.HasNext()) {
+		#dim Exception As TECH.ObjectUtils.ObjectConverterPropertyException = ExceptionsIterator.Next()
+		If Exception.InputOutput = "output" {
+			Set Exception.InputOutput = "input"
+			Set Exception.PropertyName = ..GeefInputPropertyName(Exception, ObjectConvertData)
+		}		
+		Set Exception.PropertyNameFrom = Exception.PropertyName
+		Set Exception.PropertyNameTo = ""
+		Set Exception.ClassName = ""
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefInputPropertyName">
+<FormalSpec>Exception:TECH.ObjectUtils.ObjectConverterPropertyException,ObjectConvertData:TECH.ObjectUtils.ObjectConvertData</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim InputPropertyName As %String = ""
+	#dim PropertyName As %String = Exception.PropertyName
+
+	If (PropertyName = Exception.PropertyNameTo) && ($L(Exception.PropertyNameFrom)) {
+		// Aanpassen via ExceptionInfo 
+		Set InputPropertyName = Exception.PropertyNameFrom
+	}
+	Else {
+		// Aanpassen via ObjectConvertData 
+		Set Iterator = ##class(TECH.ListIterator).%New(ObjectConvertData.Conversions)
+		While (Iterator.HasNext()) && (InputPropertyName="") {
+			#dim Conversion As TECH.ObjectUtils.ObjectConverter.Conversion = Iterator.Next()
+			If Conversion.PropertyTo = PropertyName {
+				Set InputPropertyName = Conversion.PropertyFrom
+			}
+		}
+	}
+	
+	Quit InputPropertyName
+]]></Implementation>
+</Method>
 </Class>