Index: vhUnitTest/TECH/ObjectUtils/ObjectConverterException/ConverteerInputExceptionsNaarOutput/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ObjectUtils/ObjectConverterException/ConverteerInputExceptionsNaarOutput/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ObjectUtils/ObjectConverterException/ConverteerInputExceptionsNaarOutput/Test.cls.xml	(revision 2219)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ObjectUtils.ObjectConverterException.ConverteerInputExceptionsNaarOutput.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="ObjectConverterException">
+<Type>TECH.ObjectUtils.ObjectConverterException</Type>
+<Private>1</Private>
+</Property>
+
+<Parameter name="ObjectClassName">
+<Type>%String</Type>
+<Default>EXT.Optima.CalculPrix.dto.Request.TiroirTAORBOX</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..ObjectConverterException = ##class(TECH.ObjectUtils.ObjectConverterException).%New($$$DummyString)
+]]></Implementation>
+</Method>
+
+<Method name="TestMeerdereExcepties">
+<Implementation><![CDATA[
+	Do ..VoegToeObjectConverterPropertyException("Dummy1","input")
+	Do ..VoegToeObjectConverterPropertyException("Dummy2","output")
+	Do ..VoegToeObjectConverterPropertyException("Dummy3","input")
+	
+	Do ..ObjectConverterException.ConverteerInputExceptionsNaarOutput()
+	Do ..AssertOmgezetteException()
+]]></Implementation>
+</Method>
+
+<Method name="AssertOmgezetteException">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim i As %Integer = 0
+
+	Set ExceptionsIterator = ##class(TECH.ListIterator).%New(..ObjectConverterException.GeefInnerExcepties())
+	While (ExceptionsIterator.HasNext()) {
+		#dim Exception As TECH.ObjectUtils.ObjectConverterPropertyException = ExceptionsIterator.Next()
+		#dim VerwachtePropertyNaam As %String = "Dummy"_$Increment(i)
+		Do $$$AssertEquals(Exception.InputOutput,"output")
+		Do $$$AssertEquals(Exception.PropertyName,VerwachtePropertyNaam)
+		
+		Do $$$AssertEquals(Exception.PropertyNameFrom,"")
+		Do $$$AssertEquals(Exception.PropertyNameTo,"")
+		Do $$$AssertEquals(Exception.ClassName,"")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeObjectConverterPropertyException">
+<FormalSpec>PropertyName:%String,InputOutput:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Exception = ##class(TECH.ObjectUtils.ObjectConverterPropertyException).%New(InputOutput,..#ObjectClassName,PropertyName,$$$DummyString,$$$DummyString,$$$DummyString)
+	Do ..ObjectConverterException.VoegToeInnerExceptie(Exception)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ObjectUtils/ObjectConverterException/ConverteerOutputExceptionsNaarInput/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ObjectUtils/ObjectConverterException/ConverteerOutputExceptionsNaarInput/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ObjectUtils/ObjectConverterException/ConverteerOutputExceptionsNaarInput/Test.cls.xml	(revision 2219)
@@ -0,0 +1,107 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ObjectUtils.ObjectConverterException.ConverteerOutputExceptionsNaarInput.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="ObjectConverterException">
+<Type>TECH.ObjectUtils.ObjectConverterException</Type>
+<Private>1</Private>
+</Property>
+
+<Parameter name="ObjectClassName">
+<Type>%String</Type>
+<Default>EXT.Optima.CalculPrix.dto.Request.TiroirTAORBOX</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..ObjectConverterException = ##class(TECH.ObjectUtils.ObjectConverterException).%New($$$DummyString)
+]]></Implementation>
+</Method>
+
+<Method name="TestViaConvertData">
+<Implementation><![CDATA[
+	Do ..VoegToeObjectConverterPropertyException("Dummy1","output")
+	Do ..VoegToeObjectConverterPropertyException("Dummy2","input")
+	Do ..VoegToeObjectConverterPropertyException("Dummy3","output")
+	
+	#dim ConvertData As TECH.ObjectUtils.ObjectConvertData = ..GeefConvertData()
+	Do ..ObjectConverterException.ConverteerOutputExceptionsNaarInput(ConvertData)
+
+	#dim VerwachtePropertyNamen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Dummy1From", "Dummy2", "Dummy3From")
+	Do ..AssertOmgezetteException(VerwachtePropertyNamen)
+]]></Implementation>
+</Method>
+
+<Method name="TestViaConvertDataMappingNietGevonden">
+<Implementation><![CDATA[
+	Do ..VoegToeObjectConverterPropertyException("UT_OnbestaandeProperty","output")
+	
+	#dim ConvertData As TECH.ObjectUtils.ObjectConvertData = ..GeefConvertData()
+	Do ..ObjectConverterException.ConverteerOutputExceptionsNaarInput(ConvertData)
+
+	#dim VerwachtePropertyNamen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("")   ; Beter een exceptie smijten i.p.v. waarde "" (leeg) !!!
+	Do ..AssertOmgezetteException(VerwachtePropertyNamen)
+]]></Implementation>
+</Method>
+
+<Method name="TestViaExceptionInfo">
+<Implementation><![CDATA[
+	#dim PropertyName As %String = "UT_Dummy1"
+	#dim PropertyNameTo As %String = PropertyName
+	#dim PropertyNameFrom As %String = "ProptDummy1From"
+	Set Exception = ##class(TECH.ObjectUtils.ObjectConverterPropertyException).%New("output",..#ObjectClassName,PropertyName,$$$DummyString,PropertyNameFrom,PropertyNameTo)
+	Do ..ObjectConverterException.VoegToeInnerExceptie(Exception)
+	
+	#dim NoObjectConvertData As TECH.ObjectUtils.ObjectConvertData = ""
+	Do ..ObjectConverterException.ConverteerOutputExceptionsNaarInput(NoObjectConvertData)
+
+	#dim VerwachtePropertyNamen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(PropertyNameFrom)
+	Do ..AssertOmgezetteException(VerwachtePropertyNamen)
+]]></Implementation>
+</Method>
+
+<Method name="GeefConvertData">
+<Private>1</Private>
+<ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
+<Implementation><![CDATA[
+	Set ConvertData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+	Do ConvertData.Add("Dummy1From","Dummy1")
+	Do ConvertData.Add("Dummy3From","Dummy3")
+	Quit ConvertData
+]]></Implementation>
+</Method>
+
+<Method name="AssertOmgezetteException">
+<FormalSpec>VerwachtePropertyNamen:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim i As %Integer = 0
+	Set ExceptionsIterator = ##class(TECH.ListIterator).%New(..ObjectConverterException.GeefInnerExcepties())
+	While (ExceptionsIterator.HasNext()) {
+		#dim Exception As TECH.ObjectUtils.ObjectConverterPropertyException = ExceptionsIterator.Next()
+		#dim VerwachtePropertyNaam As %String = VerwachtePropertyNamen.GetAt($Increment(i))
+		Do $$$AssertEquals(Exception.InputOutput,"input")
+		Do $$$AssertEquals(Exception.PropertyName,VerwachtePropertyNaam)
+		
+		Do $$$AssertEquals(Exception.PropertyNameFrom,VerwachtePropertyNaam)
+		Do $$$AssertEquals(Exception.PropertyNameTo,"")
+		Do $$$AssertEquals(Exception.ClassName,"")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeObjectConverterPropertyException">
+<FormalSpec>PropertyName:%String,InputOutput:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Exception = ##class(TECH.ObjectUtils.ObjectConverterPropertyException).%New(InputOutput,..#ObjectClassName,PropertyName,$$$DummyString,$$$DummyString,$$$DummyString)
+	Do ..ObjectConverterException.VoegToeInnerExceptie(Exception)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>