Index: TECH/ObjectUtils/impl/WaardenKopieerder.cls.xml
===================================================================
diff -u -r765 -r766
--- TECH/ObjectUtils/impl/WaardenKopieerder.cls.xml	(.../WaardenKopieerder.cls.xml)	(revision 765)
+++ TECH/ObjectUtils/impl/WaardenKopieerder.cls.xml	(.../WaardenKopieerder.cls.xml)	(revision 766)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="TECH.ObjectUtils.impl.WaardenKopieerder">
-<IncludeCode>vhLib.Class,vhLib.Macro</IncludeCode>
+<IncludeCode>vhLib.Class</IncludeCode>
 <Super>TECH.ObjectUtils.WaardenKopieerder,TECH.RegisteredObject</Super>
 
 <Property name="NietTeKopierenProperties">
@@ -17,27 +17,28 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>NietTeKopierenProperties:%ListOfDataTypes=""</FormalSpec>
+<FormalSpec>NietTeKopierenProperties:%ListOfDataTypes=##class(%ListOfDataTypes).%New()</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	If $IsObject(NietTeKopierenProperties) {
-		Set ..NietTeKopierenProperties=NietTeKopierenProperties
-	}
+	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>
 </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))
@@ -72,9 +73,21 @@
 			}
 		}
 	}
+
+	Quit ..GeefKopieerWaardenResultaat()
 ]]></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>