Index: TECH/ObjectUtils/impl/WaardenKopieerder.cls.xml
===================================================================
diff -u -r769 -r848
--- TECH/ObjectUtils/impl/WaardenKopieerder.cls.xml	(.../WaardenKopieerder.cls.xml)	(revision 769)
+++ TECH/ObjectUtils/impl/WaardenKopieerder.cls.xml	(.../WaardenKopieerder.cls.xml)	(revision 848)
@@ -2,35 +2,15 @@
 <Export generator="Cache" version="24">
 <Class name="TECH.ObjectUtils.impl.WaardenKopieerder">
 <IncludeCode>vhLib.Class</IncludeCode>
-<Super>TECH.ObjectUtils.WaardenKopieerder,TECH.RegisteredObject</Super>
+<Super>TECH.RegisteredObject,TECH.ObjectUtils.WaardenKopieerder</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=##class(%ListOfDataTypes).%New()</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	Set ..NietTeKopierenProperties = NietTeKopierenProperties
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="GeefGewijzigdeProperties">
-<Description>
-Mag blijven of mag weg ? </Description>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[	Quit ..GewijzigdeProperties
 ]]></Implementation>
@@ -52,26 +32,33 @@
 		#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 WaardePropertyObject1 As %String = ..GeefPropertyWaarde(Object1,PropertyName)
+		#dim WaardePropertyObject2 As %String = ..GeefPropertyWaarde(Object2,PropertyName)
 		
-		#dim PropertyCollection As %String = $listget(PropertyInfo,$$$fldCollection)
+		#dim PropertyIsCollection As %String = $listget(PropertyInfo,$$$fldCollection)
 		
-		if ##class(TECH.ClassUtils).IsDataType($listget(PropertyInfo,$$$fldClassName)) {
-			if $length(PropertyCollection) {
-				if PropertyValue.Count() = 0 || ( flagOverwrite ){
-					If (PropertyValueDefaults.Count()>0) {
-						if PropertyCollection = "list" set PropertyValue = ##class(TECH.ListUtils).CopyListOfDataTypes(PropertyValueDefaults)
-						if PropertyCollection = "array" set PropertyValue = ##class(TECH.ListUtils).CopyArrayOfDataTypes(PropertyValueDefaults)
+		#dim MagOverschrijven As %Boolean = 0	
+		
+		if ..WaardenVerschillen(WaardePropertyObject1 , WaardePropertyObject2 , PropertyIsCollection ) {
+			if ##class(TECH.ClassUtils).IsDataType($listget(PropertyInfo,$$$fldClassName)) {
+				if $length(PropertyIsCollection) {
+					set MagOverschrijven = ..MagOverschrijven(PropertyName , (WaardePropertyObject1.Count()=0) , (WaardePropertyObject2.Count()=0), flagOverwrite)
+					if MagOverschrijven {
+						if (WaardePropertyObject2.Count()>0) {
+							if PropertyIsCollection = "list" set WaardePropertyObject1 = ##class(TECH.ListUtils).CopyListOfDataTypes(WaardePropertyObject2)
+							if PropertyIsCollection = "array" set WaardePropertyObject1 = ##class(TECH.ListUtils).CopyArrayOfDataTypes(WaardePropertyObject2)
+						}
+					} 
+				} else {
+					set MagOverschrijven = ..MagOverschrijven(PropertyName , (WaardePropertyObject1="") , (WaardePropertyObject2="" ) , flagOverwrite)
+					if MagOverschrijven {
+						set WaardePropertyObject1 = WaardePropertyObject2
 					}
 				} 
-			} elseif ( PropertyValue = "" ) || ( flagOverwrite ) {
-				set:(PropertyValueDefaults '= "") PropertyValue = PropertyValueDefaults
-			} 
-			
-			If $$$Not(##class(TECH.ListUtils).Contains(..NietTeKopierenProperties,PropertyName)) {
-				Do ..ZetPropertyWaarde(Object1,PropertyName,PropertyValue)
-				Do ..ZetGewijzigdeProperty(PropertyName)
+				if MagOverschrijven {
+					do ..ZetPropertyWaarde(Object1,PropertyName,WaardePropertyObject1)
+					do ..ZetGewijzigdeProperty(PropertyName)
+				}
 			}
 		}
 	}
@@ -80,6 +67,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="WaardenVerschillen">
+<FormalSpec>Value1:%CacheString,Value2:%CacheString,PropertyIsCollection:%Boolean</FormalSpec>
+<Implementation><![CDATA[
+	#dim WaardenVerschillen As %Boolean 
+	if PropertyIsCollection {
+		set WaardenVerschillen = '##class(TECH.ListUtils).ListHasEqualValues(Value1,Value2)
+	} else {
+		set WaardenVerschillen = ( Value1 '= Value2 )
+	}
+	quit WaardenVerschillen
+]]></Implementation>
+</Method>
+
+<Method name="MagOverschrijven">
+<FormalSpec>PropertyName:%String,OudeWaardeIsLeeg:%Boolean,NieuweWaardeIsLeeg:%Boolean,flagOverwrite:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim MagCollectieOverschrijven As %Boolean = ( (OudeWaardeIsLeeg ) || (flagOverwrite) ) && ( 'NieuweWaardeIsLeeg )
+	quit MagCollectieOverschrijven
+]]></Implementation>
+</Method>
+
 <Method name="GeefKopieerWaardenResultaat">
 <Private>1</Private>
 <ReturnType>TECH.ObjectUtils.KopieerWaardenResultaat</ReturnType>