Index: TECH/ObjectUtils/impl/Differenciator.cls.xml
===================================================================
diff -u
--- TECH/ObjectUtils/impl/Differenciator.cls.xml	(revision 0)
+++ TECH/ObjectUtils/impl/Differenciator.cls.xml	(revision 1757)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.ObjectUtils.impl.Differenciator">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GetDifferences">
+<FormalSpec>Object:%Base,ReferenceObject:%Base</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+   	#dim success As %Boolean = 1
+
+	set ObjectDifferences = ##class(%ListOfDataTypes).%New()
+	#dim arrProperties As %String = ""
+	do arrProperties^vhLib.Class(Object.%ClassName(1),.arrProperties,"A","A","A")
+	
+	set itProperties = ##class(TECH.ArrayOneDimIterator).%New(.arrProperties)
+	while itProperties.HasNext() {
+		#dim PropertyInfo As %list = itProperties.Next()
+		#dim Property As %String = itProperties.Key()
+		
+		#dim PropertyIsCollection As %Boolean = $length($list(PropertyInfo,3))
+
+		#dim WaardePropertyObject As %CacheString = $property(Object,Property)
+		#dim WaardePropertyVerwachtObject As %CacheString = $property(ReferenceObject,Property)
+		
+		if PropertyIsCollection {
+			if $method(WaardePropertyObject,"Count") '= $method(WaardePropertyVerwachtObject,"Count") {
+				do ObjectDifferences.Insert(Property_" : "_$method(WaardePropertyObject,"Count") _" <> "_ $method(WaardePropertyVerwachtObject,"Count") )
+			} else {
+				set itList1 = ##class(TECH.ListIterator).%New(WaardePropertyObject)
+				set itList2 = ##class(TECH.ListIterator).%New(WaardePropertyVerwachtObject)
+				while itList1.HasNext() && success {
+					#dim Value1 As %String = itList1.Next()
+					#dim Value2 As %String = itList2.Next()
+					set success = ( Value1 = Value2)
+					if 'success do ObjectDifferences.Insert("Item "_itList1.Key()_" verschillend : *"_Value1 _ "* <> *"_Value2_"*")
+				}
+			}
+		} elseif WaardePropertyObject '= WaardePropertyVerwachtObject {
+			do ObjectDifferences.Insert(Property_" : "_WaardePropertyObject _" <> "_ WaardePropertyVerwachtObject )
+		}
+	}
+	
+	quit ObjectDifferences
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>