Index: TECH/ObjectUtils/impl/WaardenKopieerder.cls.xml
===================================================================
diff -u -r848 -r1291
--- TECH/ObjectUtils/impl/WaardenKopieerder.cls.xml	(.../WaardenKopieerder.cls.xml)	(revision 848)
+++ TECH/ObjectUtils/impl/WaardenKopieerder.cls.xml	(.../WaardenKopieerder.cls.xml)	(revision 1291)
@@ -1,131 +1,16 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="TECH.ObjectUtils.impl.WaardenKopieerder">
-<IncludeCode>vhLib.Class</IncludeCode>
 <Super>TECH.RegisteredObject,TECH.ObjectUtils.WaardenKopieerder</Super>
 
-<Property name="GewijzigdeProperties">
-<Type>%String</Type>
-<Collection>list</Collection>
-<Private>1</Private>
-</Property>
-
-<Method name="GeefGewijzigdeProperties">
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[	Quit ..GewijzigdeProperties
-]]></Implementation>
-</Method>
-
 <Method name="KopieerWaarden">
 <FormalSpec>Object1:%RegisteredObject,Object2:%RegisteredObject,flagOverwrite:%Boolean=0</FormalSpec>
 <ReturnType>TECH.ObjectUtils.KopieerWaardenResultaat</ReturnType>
 <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 WaardePropertyObject1 As %String = ..GeefPropertyWaarde(Object1,PropertyName)
-		#dim WaardePropertyObject2 As %String = ..GeefPropertyWaarde(Object2,PropertyName)
-		
-		#dim PropertyIsCollection As %String = $listget(PropertyInfo,$$$fldCollection)
-		
-		#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
-					}
-				} 
-				if MagOverschrijven {
-					do ..ZetPropertyWaarde(Object1,PropertyName,WaardePropertyObject1)
-					do ..ZetGewijzigdeProperty(PropertyName)
-				}
-			}
-		}
-	}
-
-	Quit ..GeefKopieerWaardenResultaat()
+	set Kopieerder = ##class(TECH.ObjectUtils.impl.WaardenKopieerder.KopieerWaarden).%New()
+	quit Kopieerder.KopieerWaarden(Object1,Object2,flagOverwrite)
 ]]></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>
-<Implementation><![CDATA[
-	Set Resultaat=##class(TECH.ObjectUtils.KopieerWaardenResultaat).%New()
-	Set Resultaat.GewijzigdeProperties=..GewijzigdeProperties
-	Quit Resultaat
-]]></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>