TECH.RegisteredObject Object:%Base,ReferenceObject:%Base %ListOfDataTypes "_ $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 ]]>