Index: TECH/Exceptions/IllegalArgumentException.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/IllegalArgumentException.cls.xml	(revision 0)
+++ TECH/Exceptions/IllegalArgumentException.cls.xml	(revision 1178)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Exceptions.IllegalArgumentException">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Exceptions.AbstractOmschrijvingException</Super>
+
+<Method name="GeefExceptionCode">
+<ReturnType>TECH.enu.ExceptionCode</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.enu.ExceptionCode).ParameterInvalid()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/DTODoorsnedeBepaler.cls.xml
===================================================================
diff -u
--- TECH/DTODoorsnedeBepaler.cls.xml	(revision 0)
+++ TECH/DTODoorsnedeBepaler.cls.xml	(revision 1178)
@@ -0,0 +1,84 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.DTODoorsnedeBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="KlasseNaam">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DTO1">
+<Type>TECH.DataTransferObject</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DTO2">
+<Type>TECH.DataTransferObject</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SamengevoegdeDTO">
+<Type>TECH.DataTransferObject</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="BepaalDoorsnede">
+<FormalSpec>DTO1:TECH.DataTransferObject,DTO2:TECH.DataTransferObject</FormalSpec>
+<ReturnType>TECH.DataTransferObject</ReturnType>
+<Implementation><![CDATA[
+	If DTO1.%ClassName(1) '= DTO2.%ClassName(1) {
+		Set Exceptie = ##class(TECH.Exceptions.IllegalArgumentException).%New("De argumenten zijn niet van hetzelfde ObjectType.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+	Set ..KlasseNaam = DTO1.%ClassName(1)
+	Set ..DTO1 = DTO1
+	Set ..DTO2 = DTO2
+	Set ..SamengevoegdeDTO = $ClassMethod(..KlasseNaam, "%New")
+	
+	Do ..OverloopProperties()
+	Quit ..SamengevoegdeDTO
+]]></Implementation>
+</Method>
+
+<Method name="OverloopProperties">
+<Implementation><![CDATA[
+	#dim KlasseDefinitie As %Dictionary.ClassDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(..KlasseNaam)
+	Set PropertyIt = ##class(TECH.ListIterator).%New(KlasseDefinitie.Properties)
+	While PropertyIt.HasNext() {
+		#dim Property As %Dictionary.PropertyDefinition = PropertyIt.Next()
+		Do ..UnificeerProperty(Property)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="UnificeerProperty">
+<FormalSpec>PropertyDefinitie:%Dictionary.PropertyDefinition</FormalSpec>
+<Private>1</Private>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	#dim DTO1Waarde As %CacheString = $Property(..DTO1, PropertyDefinitie.Name)
+	#dim DTO2Waarde As %CacheString = $Property(..DTO2, PropertyDefinitie.Name)
+	If ##class(TECH.PropertyDefinition).%New(PropertyDefinitie).IsDataType() {
+		Do:(DTO1Waarde=DTO2Waarde) ..ZetWaardeInSamengevoegdeDTO(PropertyDefinitie.Name, DTO1Waarde)
+	} ElseIf PropertyDefinitie.Type = "%ListOfDataTypes" {
+		#dim UniCollection As %ListOfDataTypes = ##class(TECH.ListUtils).Doorsnede(DTO1Waarde, DTO2Waarde)
+		Do ..ZetWaardeInSamengevoegdeDTO(PropertyDefinitie.Name, UniCollection)
+	} ElseIf $$$Not(##class(TECH.StringUtils).StartsWith(PropertyDefinitie.Type,"%")) && $IsObject(DTO1Waarde) && $IsObject(DTO2Waarde){
+		Set DTODoorsnedeBepaler = ##class(TECH.DTODoorsnedeBepaler).%New()
+		#dim SamengevoegdeDTO As %CacheString = DTODoorsnedeBepaler.BepaalDoorsnede(DTO1Waarde, DTO2Waarde)
+		Do ..ZetWaardeInSamengevoegdeDTO(PropertyDefinitie.Name, SamengevoegdeDTO)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZetWaardeInSamengevoegdeDTO">
+<FormalSpec>PropertyNaam:%String,Waarde:%CacheString</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Set $Property(..SamengevoegdeDTO, PropertyNaam) = Waarde
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/PropertyDefinition.cls.xml
===================================================================
diff -u
--- TECH/PropertyDefinition.cls.xml	(revision 0)
+++ TECH/PropertyDefinition.cls.xml	(revision 1178)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.PropertyDefinition">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="DataTypesList">
+<Type>%ListOfDataTypes</Type>
+<Final>1</Final>
+<Private>1</Private>
+</Property>
+
+<Property name="PropertyDefinition">
+<Type>%Dictionary.PropertyDefinition</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="IsDataType">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListUtils).Contains(..DataTypesList,..PropertyDefinition.Type)
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>PropertyDefinition:%Dictionary.PropertyDefinition</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..PropertyDefinition = PropertyDefinition
+	Set ..DataTypesList = ##class(TECH.ListUtils).CreateListOfDataTypes("%Boolean","%Date","%Float","%Integer","%Numeric","%Status","%String","%Time","%TimeStamp", "%Decimal")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>