Index: vhUpgrade/Test/WebserviceTest.cls.xml
===================================================================
diff -u -r2955 -r2999
--- vhUpgrade/Test/WebserviceTest.cls.xml	(.../WebserviceTest.cls.xml)	(revision 2955)
+++ vhUpgrade/Test/WebserviceTest.cls.xml	(.../WebserviceTest.cls.xml)	(revision 2999)
@@ -5,10 +5,104 @@
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="TestWSDL">
+<Parameter name="BestandNaamWSDL">
+<Type>%String</Type>
+<Default>WSDL.xml</Default>
+</Parameter>
+
+<Property name="OwnRootPath">
+<Type>%String</Type>
+</Property>
+
+<Property name="OtherRootPath">
+<Type>%String</Type>
+</Property>
+
+<Method name="Execute">
+<FormalSpec>OwnPath:%String,OtherPath:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..OwnRootPath = OwnPath
+	Set ..OtherRootPath = OtherPath
+	
+	/// Exporteren van wsdl's
+	Do ..ExportWSDL(OwnPath)
+	w "Wacht 20 seconden.",!
+	Hang 20
+	/// Vergelijken van wsdl's
+	Write ..VergelijkWSDL(OwnPath,OtherPath)
+	
+	Do ..VergelijkSOAP(OwnPath)
+]]></Implementation>
+</Method>
+
+<Method name="VergelijkWSDL">
+<FormalSpec>Path:%String,OtherPath:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Feedback = ""
+	
+	If ##class(%File).DirectoryExists(Path){
+		Set ResultSet = ##class(%ResultSet).%New("%File:FileSet")
+		Do ResultSet.Execute(Path,"*")
+		While(ResultSet.Next()) {
+			Set FileLocation = ResultSet.Data("Name")
+			Set Feedback = Feedback_..VergelijkWSDL(FileLocation,OtherPath)
+		}
+	}Else{
+		Set FileName = ##class(%File).GetFilename(Path)
+		If (FileName = ..#BestandNaamWSDL)
+		{
+			Set ExtraPath = $piece(Path,..OwnRootPath,2)
+			Set OtherFileName = ##class(TECH.Files).AppendFile(OtherPath,ExtraPath)
+			Set OwnHash = ..Hash(Path)
+			Set OtherHash = ..Hash(OtherFileName)
+			
+			If (OwnHash '= OtherHash)
+			{
+				Set Feedback = Feedback_"WSDL komen niet overeen:"_$C(13,10)
+				Set Feedback = Feedback_$C(9)_"-"_$C(9)_Path_$C(13,10)
+				Set Feedback = Feedback_$C(9)_"-"_$C(9)_OtherFileName_$C(13,10)
+				Set Feedback = Feedback_$C(13,10)
+			}			
+		}
+	}
+	Quit Feedback
+]]></Implementation>
+</Method>
+
+<Method name="VergelijkSOAP">
+<FormalSpec>Path</FormalSpec>
+<Implementation><![CDATA[
+		Set Feedback = ""
+		
+		If ##class(%File).DirectoryExists(Path){
+			Set ResultSet = ##class(%ResultSet).%New("%File:FileSet")
+			Do ResultSet.Execute(Path,"*")
+			While(ResultSet.Next()) {
+				Set WebService = ResultSet.Data("Name")
+				If ##class(%File).DirectoryExists(WebService){
+					Set ResultSetWebMethod = ##class(%ResultSet).%New("%File:FileSet")
+					Do ResultSetWebMethod.Execute(WebService,"*")
+					While(ResultSetWebMethod.Next()) {			
+						Set WebMethod = ResultSetWebMethod.Data("Name")
+						If (WebMethod'[..#BestandNaamWSDL){
+							w $C(9)_WebMethod,!
+						}
+					}
+				}
+			}
+		}
+		Quit Feedback
+]]></Implementation>
+</Method>
+
+<Method name="ExportWSDL">
+<FormalSpec>Path:%String</FormalSpec>
+<Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-		Set Path = ##class(TECH.Config.ConfigMgr).Instance().GetString("DefaultExportDirectory")
+		
 		Set WebServiceClassIt = ..GeefAfgeleideWebservices("%SOAP.WebService")	
 		
 		While WebServiceClassIt.HasNext() {
@@ -18,7 +112,7 @@
 			{
 				Do ##class(TECH.File).CreateDirectory(FilePath)
 			}
-			Set File = ##class(TECH.Files).AppendFile(FilePath,"WSDL.xml")			
+			Set File = ##class(TECH.Files).AppendFile(FilePath,..#BestandNaamWSDL)			
 			Do $zobjclassmethod(WebServiceClass,"FileWSDL",File)
 		}
 ]]></Implementation>
@@ -48,5 +142,31 @@
 		Quit ##class(TECH.ListIterator).%New(AfgeleideClasses)
 ]]></Implementation>
 </Method>
+
+<Method name="Hash">
+<FormalSpec><![CDATA[File:%String,&oStatus]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set oStatus = $$$OK
+
+	set Stream=##class(%FileBinaryStream).%New()
+	set Stream.Filename=File
+	do Stream.Rewind()
+	
+	#if ($system.Version.GetMajor()=5)
+		set Hash=""
+		set ctr32KBlocks=0
+		while 'Stream.AtEnd {
+			set ctr32KBlocks=$increment(ctr32KBlocks)
+			set Hash = Hash_$system.Encryption.MD5Encode(Stream.Read())	
+		}
+		if ctr32KBlocks>1 set Hash=$system.Encryption.MD5Encode(Hash)	
+	#else 
+		Set Hash=$system.Encryption.SHA1HashStream(Stream)
+	#endif
+
+	quit Hash
+]]></Implementation>
+</Method>
 </Class>
 </Export>