Index: vhUnitTest/TECH/ObjectUtils/ObjectConverter/Object.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ObjectUtils/ObjectConverter/Object.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ObjectUtils/ObjectConverter/Object.cls.xml	(revision 2202)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object">
+<Super>%RegisteredObject</Super>
+
+<Property name="AsString">
+<Type>%String</Type>
+</Property>
+
+<Property name="AsInteger">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="AsEnumeration">
+<Type>vhUnitTest.TECH.ObjectUtils.ObjectConverter.Enumeration</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: TECH/ObjectUtils/ObjectConvertData.cls.xml
===================================================================
diff -u
--- TECH/ObjectUtils/ObjectConvertData.cls.xml	(revision 0)
+++ TECH/ObjectUtils/ObjectConvertData.cls.xml	(revision 2202)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.ObjectUtils.ObjectConvertData">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Conversions">
+<Type>TECH.ObjectUtils.ObjectConverter.Conversion</Type>
+<Collection>list</Collection>
+</Property>
+
+<Method name="Add">
+<FormalSpec>PropertyFrom:%String,PropertyTo:%String,Script:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	set Conversion = ##class(TECH.ObjectUtils.ObjectConverter.Conversion).%New()
+	set Conversion.PropertyFrom = PropertyFrom
+	set Conversion.PropertyTo = PropertyTo
+	do:$length(Script) Conversion.Script.Write(Script)
+	
+	do ..Conversions.Insert(Conversion)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/ObjectUtils/ObjectConverter/Conversion.cls.xml
===================================================================
diff -u
--- TECH/ObjectUtils/ObjectConverter/Conversion.cls.xml	(revision 0)
+++ TECH/ObjectUtils/ObjectConverter/Conversion.cls.xml	(revision 2202)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.ObjectUtils.ObjectConverter.Conversion">
+<Super>%RegisteredObject</Super>
+
+<Property name="PropertyFrom">
+<Type>%String</Type>
+</Property>
+
+<Property name="PropertyTo">
+<Type>%String</Type>
+</Property>
+
+<Property name="Script">
+<Type>%GlobalCharacterStream</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: TECH/ObjectUtils/impl/ObjectConverter.cls.xml
===================================================================
diff -u
--- TECH/ObjectUtils/impl/ObjectConverter.cls.xml	(revision 0)
+++ TECH/ObjectUtils/impl/ObjectConverter.cls.xml	(revision 2202)
@@ -0,0 +1,77 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.ObjectUtils.impl.ObjectConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Executer">
+<Type>TECH.Executer.impl.ClassMethod</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Executer = ##class(TECH.Executer.impl.ClassMethod).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>ObjectFrom:%Base,ObjectTo:%Base,ConvertOptions:TECH.ObjectUtils.ObjectConvertData</FormalSpec>
+<Implementation><![CDATA[
+	set Exceptions = ##class(TECH.ExceptionList).%New()
+	
+	set Iterator = ##class(TECH.ListIterator).%New(ConvertOptions.Conversions)
+	while Iterator.HasNext() {
+		#dim Conversion As TECH.ObjectUtils.ObjectConverter.Conversion = Iterator.Next()
+		
+		try {
+			#dim Output As %CacheString = ""
+		
+			do ..Validate(ObjectFrom,Conversion.PropertyFrom,1)
+		    
+		    #dim Input As %CacheString = $property(ObjectFrom,Conversion.PropertyFrom)
+		    
+			if Conversion.Script.Size > 0 {
+				do ..Executer.Stream(Conversion.Script,.Output,Input)	
+			} else {
+				set Output = Input	
+			}
+			
+			set $property(ObjectTo,Conversion.PropertyTo) = Output
+			
+			do ..Validate(ObjectTo,Conversion.PropertyTo,0)
+			
+
+		} catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			do Exceptions.Insert(Exception)
+		}
+	}
+	
+	if Exceptions.Count() {
+		set Exception = ##class(TECH.ObjectUtils.ObjectConverterException).%New("Failed to convert '"_$classname(ObjectFrom)_"' to "_$classname(ObjectTo) )
+		do Exception.VoegToeInnerExcepties(Exceptions)
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Validate">
+<FormalSpec>Object:%Base,PropertyName:%String,IsInput:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#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)
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/ObjectUtils/ObjectConverterPropertyException.cls.xml
===================================================================
diff -u
--- TECH/ObjectUtils/ObjectConverterPropertyException.cls.xml	(revision 0)
+++ TECH/ObjectUtils/ObjectConverterPropertyException.cls.xml	(revision 2202)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.ObjectUtils.ObjectConverterPropertyException">
+<Super>TECH.Exceptions.Exception</Super>
+
+<Property name="InputOutput">
+<Type>%String</Type>
+</Property>
+
+<Property name="ClassName">
+<Type>%String</Type>
+</Property>
+
+<Property name="PropertyName">
+<Type>%String</Type>
+</Property>
+
+<Property name="Value">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>InputOutput:%String,ClassName:%String,PropertyName:%String,Value:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super()
+	set ..InputOutput = InputOutput
+	set ..ClassName = ClassName
+	set ..PropertyName = PropertyName
+	set ..Value = Value
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefExceptionCode">
+<ReturnType>TECH.enu.ExceptionCode</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.enu.ExceptionCode).GeneralError()
+]]></Implementation>
+</Method>
+
+<Method name="GeefOmschrijving">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit "Invalid "_..InputOutput_ " validation. Value '"_..Value_"' not valid for '"_..PropertyName_"' on '"_..ClassName_"'."
+]]></Implementation>
+</Method>
+
+<Method name="IsInput">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..InputOutput="input"
+]]></Implementation>
+</Method>
+
+<Method name="IsOutput">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..InputOutput="output"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ObjectUtils/ObjectConverter.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ObjectUtils/ObjectConverter.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ObjectUtils/ObjectConverter.cls.xml	(revision 2202)
@@ -0,0 +1,223 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ObjectUtils.ObjectConverter">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="ObjectConverter">
+<Type>TECH.ObjectUtils.impl.ObjectConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ObjectFrom">
+<Type>vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	set ..ObjectConverter = ##class(TECH.ObjectUtils.impl.ObjectConverter).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen conversie opgegeven -&gt; geen waarden overgenomen">
+<Implementation><![CDATA[
+	set ObjectTo = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
+	
+	set ConversionData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+	do ..ObjectConverter.Convert(..GetObjectFrom(),ObjectTo,ConversionData)
+	
+	do $$$AssertEquals(ObjectTo.AsString,"")
+	do $$$AssertEquals(ObjectTo.AsInteger,"")
+	do $$$AssertEquals(ObjectTo.AsEnumeration,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Conversie opgegeven -&gt; waarde wordt overgenomen">
+<Implementation><![CDATA[
+	set ObjectTo = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
+	
+	set ConversionData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+	do ConversionData.Add("AsInteger","AsInteger")
+	do ..ObjectConverter.Convert(..GetObjectFrom(),ObjectTo,ConversionData)
+	
+	do $$$AssertEquals(ObjectTo.AsString,"")
+	do $$$AssertEquals(ObjectTo.AsInteger,1)
+	do $$$AssertEquals(ObjectTo.AsEnumeration,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Meerdere conversies opgegeven -&gt; meerdere waardes overgenomen">
+<Implementation><![CDATA[
+	set ObjectTo = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
+	
+	set ConversionData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+	do ConversionData.Add("AsInteger","AsInteger")
+	do ConversionData.Add("AsString","AsString")
+	do ..ObjectConverter.Convert(..GetObjectFrom(),ObjectTo,ConversionData)
+	
+	do $$$AssertEquals(ObjectTo.AsString,"aString")
+	do $$$AssertEquals(ObjectTo.AsInteger,1)
+	do $$$AssertEquals(ObjectTo.AsEnumeration,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Properties moeten niet één op één mappen">
+<Implementation><![CDATA[
+	set ObjectTo = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
+	set ConversionData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+	do ConversionData.Add("AsInteger","AsString")
+	do ..ObjectConverter.Convert(..GetObjectFrom(),ObjectTo,ConversionData)
+	
+	do $$$AssertEquals(ObjectTo.AsString,"1")
+	do $$$AssertEquals(ObjectTo.AsInteger,"")
+	do $$$AssertEquals(ObjectTo.AsEnumeration,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Conversie opgegeven waarde bevat een conversie script">
+<Implementation><![CDATA[
+	set ConversionData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+	do ConversionData.Add("AsInteger","AsInteger","Set Output = Input * 2")
+
+	set ObjectTo = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
+
+	do ..ObjectConverter.Convert(..GetObjectFrom(),ObjectTo,ConversionData)
+	
+	do $$$AssertEquals(ObjectTo.AsInteger,2)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Onbekende property -&gt; Runtime exception">
+<Implementation><![CDATA[
+	try {
+		set ConversionData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+		do ConversionData.Add("OnbestaandeProperty","AsInteger")
+		
+		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")
+		
+		set ObjectTo = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
+
+		do ..ObjectConverter.Convert(ObjectFrom,ObjectTo,ConversionData)
+		
+		do ..Fail("Er was een exeptie verwacht")
+
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		if $$$Not($$$AssertEquals(Exception.%ClassName(1),"TECH.ObjectUtils.ObjectConverterException")) {
+			do $$$AssertEquals(Exception.GeefOmschrijving(),"")	
+		}
+		#dim ExceptionList As TECH.ExceptionList = Exception.GeefInnerExcepties()
+		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 $$$AssertFalse(ExceptionList.GetAt(1).IsOutput())
+			do $$$AssertTrue(ExceptionList.GetAt(1).IsInput())
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ongeldige waarde in geconverteerd object -&gt; Object Converter Property Exception - Output">
+<Implementation><![CDATA[
+	try {
+		set ObjectFrom = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
+		set ObjectFrom.AsString = "InvalidValue"
+		
+		set ObjectTo = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
+
+		set ConversionData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+		do ConversionData.Add("AsString","AsEnumeration")
+
+		do ..ObjectConverter.Convert(ObjectFrom,ObjectTo,ConversionData)
+		
+		do ..Fail("Er was een exeptie verwacht")
+
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		if $$$Not($$$AssertEquals(Exception.%ClassName(1),"TECH.ObjectUtils.ObjectConverterException")) {
+			do $$$AssertEquals(Exception.GeefOmschrijving(),"")	
+		}
+		#dim ExceptionList As TECH.ExceptionList = Exception.GeefInnerExcepties()
+		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 $$$AssertTrue(ExceptionList.GetAt(1).IsOutput())
+			do $$$AssertFalse(ExceptionList.GetAt(1).IsInput())
+			
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Meerdere Excepties -&gt; Meerdere inner excepties">
+<Implementation><![CDATA[
+	try {
+		set ObjectFrom = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
+		set ObjectFrom.AsString = "InvalidValue"
+		
+		set ObjectTo = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
+
+		set ConversionData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+		do ConversionData.Add("AsString","AsEnumeration")
+		do ConversionData.Add("OnbestaandeProperty","AsInteger")
+
+		do ..ObjectConverter.Convert(ObjectFrom,ObjectTo,ConversionData)
+		
+		do ..Fail("Er was een exeptie verwacht")
+
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		if $$$Not($$$AssertEquals(Exception.%ClassName(1),"TECH.ObjectUtils.ObjectConverterException")) {
+			do $$$AssertEquals(Exception.GeefOmschrijving(),"")	
+		}
+		#dim ExceptionList As TECH.ExceptionList = Exception.GeefInnerExcepties()
+		if $$$AssertEquals(ExceptionList.Count(),2) {
+			do $$$AssertEquals(ExceptionList.GetAt(1).%ClassName(1),"TECH.ObjectUtils.ObjectConverterPropertyException")
+			do $$$AssertEquals(ExceptionList.GetAt(2).%ClassName(1),"TECH.Exceptions.RuntimeException")
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GetObjectFrom">
+<Private>1</Private>
+<ReturnType>vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object</ReturnType>
+<Implementation><![CDATA[
+	set ObjectFrom = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
+	set ObjectFrom.AsString = "aString"
+	set ObjectFrom.AsInteger = 1 
+	set ObjectFrom.AsEnumeration = "ValidValue"
+	quit ObjectFrom
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/ObjectUtils/ObjectConverterException.cls.xml
===================================================================
diff -u
--- TECH/ObjectUtils/ObjectConverterException.cls.xml	(revision 0)
+++ TECH/ObjectUtils/ObjectConverterException.cls.xml	(revision 2202)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.ObjectUtils.ObjectConverterException">
+<Super>TECH.Exceptions.AbstractOmschrijvingException</Super>
+
+<Method name="GeefExceptionCode">
+<ReturnType>TECH.enu.ExceptionCode</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.enu.ExceptionCode).GeneralError()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ObjectUtils/ObjectConverter/Enumeration.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ObjectUtils/ObjectConverter/Enumeration.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ObjectUtils/ObjectConverter/Enumeration.cls.xml	(revision 2202)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ObjectUtils.ObjectConverter.Enumeration">
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="DISPLAYLIST">
+<Default>,ValidValue</Default>
+</Parameter>
+
+<Parameter name="VALUELIST">
+<Default>,ValidValue</Default>
+</Parameter>
+</Class>
+
+
+</Export>