Index: TECH/ObjectUtils/WaardenKopieerder.cls.xml
===================================================================
diff -u
--- TECH/ObjectUtils/WaardenKopieerder.cls.xml	(revision 0)
+++ TECH/ObjectUtils/WaardenKopieerder.cls.xml	(revision 765)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.ObjectUtils.WaardenKopieerder">
+<Abstract>1</Abstract>
+<IncludeCode>vhLib.Class,vhLib.Macro</IncludeCode>
+<Super>TECH.Interface</Super>
+
+<Property name="NietTeKopierenProperties">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="GewijzigdeProperties">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>NietTeKopierenProperties:%ListOfDataTypes=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	If $IsObject(NietTeKopierenProperties) {
+		Set ..NietTeKopierenProperties=NietTeKopierenProperties
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefGewijzigdeProperties">
+<Abstract>1</Abstract>
+<ReturnType>%ListOfDataTypes</ReturnType>
+</Method>
+
+<Method name="KopieerWaarden">
+<Abstract>1</Abstract>
+<FormalSpec>Object1:%RegisteredObject,Object2:%RegisteredObject,flagOverwrite:%Boolean=0</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/ObjectUtils/impl/WaardenKopieerder.cls.xml
===================================================================
diff -u
--- TECH/ObjectUtils/impl/WaardenKopieerder.cls.xml	(revision 0)
+++ TECH/ObjectUtils/impl/WaardenKopieerder.cls.xml	(revision 765)
@@ -0,0 +1,107 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.ObjectUtils.impl.WaardenKopieerder">
+<IncludeCode>vhLib.Class,vhLib.Macro</IncludeCode>
+<Super>TECH.ObjectUtils.WaardenKopieerder,TECH.RegisteredObject</Super>
+
+<Property name="NietTeKopierenProperties">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="GewijzigdeProperties">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>NietTeKopierenProperties:%ListOfDataTypes=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	If $IsObject(NietTeKopierenProperties) {
+		Set ..NietTeKopierenProperties=NietTeKopierenProperties
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefGewijzigdeProperties">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ..GewijzigdeProperties
+]]></Implementation>
+</Method>
+
+<Method name="KopieerWaarden">
+<FormalSpec>Object1:%RegisteredObject,Object2:%RegisteredObject,flagOverwrite:%Boolean=0</FormalSpec>
+<Implementation><![CDATA[
+	if Object1.%ClassName(1) '= Object2.%ClassName(1) {
+		set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Objecten niet van zelfde type :"_Object1.%ClassName(1)_" <> "_Object2.%ClassName(1))
+		do ##class(TECH.ExceptionHandler).Throw(Exception)	
+	}
+	
+	#dim arrProperties As %String = ""
+	do arrProperties^vhLib.Class(Object1.%ClassName(1),.arrProperties,"A","A","A")
+	set itProperties = ##class(TECH.ArrayOneDimIterator).%New(.arrProperties)
+	while itProperties.HasNext() {
+		#dim PropertyInfo As %List = itProperties.Next()
+		#dim PropertyName As %String = itProperties.Key()
+		
+		#dim PropertyValue As %String = ..GeefPropertyWaarde(Object1,PropertyName)
+		#dim PropertyValueDefaults As %String = ..GeefPropertyWaarde(Object2,PropertyName)
+		
+		#dim PropertyCollection As %String = $listget(PropertyInfo,$$$fldCollection)
+		
+		if ##class(TECH.ClassUtils).IsDataType($listget(PropertyInfo,$$$fldClassName)) {
+			if $length(PropertyCollection) {
+				if PropertyValue.Count() = 0 || ( flagOverwrite ){
+					if PropertyCollection = "list" set PropertyValue = ##class(TECH.ListUtils).CopyListOfDataTypes(PropertyValueDefaults)
+					if PropertyCollection = "array" set PropertyValue = ##class(TECH.ListUtils).CopyArrayOfDataTypes(PropertyValueDefaults)
+				} 
+			} elseif ( PropertyValue = "" ) || ( flagOverwrite ) {
+				set PropertyValue = PropertyValueDefaults
+			} 
+			
+			If $$$Not(##class(TECH.ListUtils).Contains(..NietTeKopierenProperties,PropertyName)) {
+				Do ..ZetPropertyWaarde(Object1,PropertyName,PropertyValue)
+				Do ..ZetGewijzigdeProperty(PropertyName)
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefPropertyWaarde">
+<FormalSpec>Object:%Library.Base,Property:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	new result
+	new code set code = "set result = Object."_Property xecute code
+	quit result
+]]></Implementation>
+</Method>
+
+<Method name="ZetPropertyWaarde">
+<FormalSpec>Object:%Library.Base,Property:%String,Value:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[	new code set code = "set Object."_Property_" = Value" xecute code
+]]></Implementation>
+</Method>
+
+<Method name="ZetGewijzigdeProperty">
+<FormalSpec>PropertyName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..GewijzigdeProperties.Insert(PropertyName)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>