Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r742 -r984
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 742)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 984)
@@ -53,6 +53,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPropertiesRecursief">
+<Description>
+Deze klasse geeft alle properties terug van een klasse, alsook de properties van de properties die geen basistype waren.</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlasseNaam:%String</FormalSpec>
+<ReturnType>TECH.KeyValueList</ReturnType>
+<Implementation><![CDATA[
+	set List = ##class(TECH.KeyValueList).%New()
+	if ##class(%Dictionary.CompiledClass).%ExistsId(KlasseNaam) {
+		 set CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(KlasseNaam)
+		 set itProperties = ##class(TECH.ListIterator).%New(CompiledClass.Properties)
+		 while itProperties.HasNext() {
+			#dim Property As %Dictionary.CompiledProperty = itProperties.Next()
+			continue:Property.Name="%%OID"
+			if ##class(TECH.ClassUtils).IsOurs(Property.Type) {
+				Do ##class(TECH.ListUtils).CopyListOfDataTypes(##class(TECH.ClassUtils).GeefPropertiesRecursief(Property.Type), List)
+			} Else {
+				Do List.InsertKeyValuePair(KlasseNaam, Property.Name)
+			}
+		}
+	}
+	quit List
+]]></Implementation>
+</Method>
+
 <Method name="ValidFilter">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Property:%Dictionary.CompiledProperty,Filter:TECH.ClassUtils.PropertyFilter</FormalSpec>