Index: AXtools/AXifPackageCleaner.cls.xml
===================================================================
diff -u -r42480 -r46491
--- AXtools/AXifPackageCleaner.cls.xml	(.../AXifPackageCleaner.cls.xml)	(revision 42480)
+++ AXtools/AXifPackageCleaner.cls.xml	(.../AXifPackageCleaner.cls.xml)	(revision 46491)
@@ -19,7 +19,27 @@
 </Property>
 
 <Method name="Cleanup">
+<FormalSpec>RootPackage:%String,XMLIGNORENULL:%String</FormalSpec>
+<Implementation><![CDATA[
+	If $$$Not(##class(TECH.StringUtils).Contains($Get(XMLIGNORENULL),"0","1","RUNTIME")){
+		Write !,"parameter XMLIGNORERUNTIME moet waarde 0 of 1 bevatten (of RUNTIME indien je weet wat je doet)."		
+		Quit
+	}
+	
+	lock +^oddDEF:5
+	
+	if $$$Not($test) write !,"!!!!!!! Gelieve geen klasse in wijzig mode te hebben !!!!!!!"  quit
+		
+	do ..RemoveUnusedFiles(RootPackage)
+	do ..CleanupClasses(RootPackage,XMLIGNORENULL)
+	
+	lock -^oddDEF
+]]></Implementation>
+</Method>
+
+<Method name="RemoveUnusedFiles">
 <FormalSpec>RootPackage:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	set ..svnRepo = ##class(svn.Repository.CodeRepository).%OpenId(1)
 
@@ -36,6 +56,44 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CleanupClasses">
+<FormalSpec>Package:%String,XMLIGNORENULL:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ClassIterator As TECH.Iterator = ##class(TECH.ClassUtils).GetClassesInPackageIterator(Package,$$$true)
+	while ClassIterator.HasNext() {
+		#dim ClassDef As %Dictionary.ClassDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(ClassIterator.Next())
+		if $$$Contains(ClassDef.Super,"%RegisteredObject") {
+			set ClassDef.Super = $replace(ClassDef.Super,"%RegisteredObject","%SerialObject")
+			set ClassDef.ClassType = "serial"
+		}
+		
+		if $$$Contains(ClassDef.Super,"%SerialObject") {
+			do ..CreateXmlIgnoreNullParameter(ClassDef,XMLIGNORENULL)
+		}
+		
+		do ClassDef.DescriptionReset()
+		do ClassDef.%Save()
+		do ..svnRepo.SVNExport(ClassDef.Name_".cls")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CreateXmlIgnoreNullParameter">
+<FormalSpec>ClassDef:%Dictionary.ClassDefinition,XMLIGNORENULL:%String</FormalSpec>
+<Implementation><![CDATA[
+	if $$$Not(##class(%Dictionary.ParameterDefinition).%ExistsId(ClassDef.Name_"||"_"XMLIGNORENULL")) {
+		set XmlIgnoreNullParameter = ##class(%Dictionary.ParameterDefinition).%New()
+		set XmlIgnoreNullParameter.Name = "XMLIGNORENULL"
+		set XmlIgnoreNullParameter.parent = ClassDef
+	} else {
+		set XmlIgnoreNullParameter = ##class(%Dictionary.ParameterDefinition).%OpenId(ClassDef.Name_"||"_"XMLIGNORENULL")
+	}
+	set XmlIgnoreNullParameter.Default = XMLIGNORENULL
+	do XmlIgnoreNullParameter.%Save()
+]]></Implementation>
+</Method>
+
 <Method name="GetUsedClassNames">
 <FormalSpec>ClassName:%String</FormalSpec>
 <Private>1</Private>
@@ -47,6 +105,7 @@
 	do ..AddUsedClassName(ClassName)
 	
 	set ClassDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(ClassName)
+	w:$$$Not($IsObject(ClassDefinition)) !,"Type van " _ ClassName _ " Niet gekend in Sharedtypes.xsd"
 	set itProperties = ##class(TECH.ListIterator).%New(ClassDefinition.Properties)
 	while itProperties.HasNext() {
 		#dim Property As %Dictionary.PropertyDefinition = itProperties.Next()
@@ -78,7 +137,7 @@
 <Implementation><![CDATA[
 	quit:$$$Not(##class(TECH.StringUtils).StartsWith(ClassName,..RootPackage))
 	
-	#dim Iterator As TECH.Iterator = ##class(TECH.ClassUtils).GetSuperClassesIterator(ClassName)
+	#dim Iterator As TECH.Iterator = ##class(TECH.ClassUtils).GetSuperClassIterator(ClassName)
 	while Iterator.HasNext() {
 		do ..GetUsedClassNames(Iterator.Next())
 	}