Index: vhUpgrade/Test/WebserviceTest.cls.xml
===================================================================
diff -u
--- vhUpgrade/Test/WebserviceTest.cls.xml	(revision 0)
+++ vhUpgrade/Test/WebserviceTest.cls.xml	(revision 2955)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUpgrade.Test.WebserviceTest">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestWSDL">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+		Set Path = ##class(TECH.Config.ConfigMgr).Instance().GetString("DefaultExportDirectory")
+		Set WebServiceClassIt = ..GeefAfgeleideWebservices("%SOAP.WebService")	
+		
+		While WebServiceClassIt.HasNext() {
+			Set WebServiceClass = WebServiceClassIt.Next()
+			Set FilePath = ##class(TECH.Files).AppendFile(Path,WebServiceClass)
+			If '##class(TECH.File).DirectoryExists(FilePath)
+			{
+				Do ##class(TECH.File).CreateDirectory(FilePath)
+			}
+			Set File = ##class(TECH.Files).AppendFile(FilePath,"WSDL.xml")			
+			Do $zobjclassmethod(WebServiceClass,"FileWSDL",File)
+		}
+]]></Implementation>
+</Method>
+
+<Method name="GeefAfgeleideWebservices">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+		
+		Set AfgeleideClasses = ##class(%ListOfDataTypes).%New()		
+		
+		Set ResultSet = ##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:SubclassOf")
+		Do ResultSet.Execute(ClassName)
+		While ResultSet.Next()
+		{
+			Set AfgeleideClassName = ResultSet.Data("Name")
+			Set ClassDefinition = ##class(TECH.ClassInfo.ClassDefinition).%New(AfgeleideClassName)
+			If $IsObject(ClassDefinition) {
+				Do AfgeleideClasses.Insert(AfgeleideClassName)
+			}
+		}
+		Set Comparator = ##class(TECH.Comparator.StringComparator).%New()
+		Do ##class(TECH.Algo.Sort.InsertionSort).Sort(AfgeleideClasses,Comparator)
+		
+		Quit ##class(TECH.ListIterator).%New(AfgeleideClasses)
+]]></Implementation>
+</Method>
+</Class>
+</Export>