1 %RegisteredObject %String WSDL.xml %String %String %ArrayOfObjects %Net.HttpRequest OwnPath:%String,OtherPath:%String,Server1:%String,Port1:%Integer,CSPApplication1:%String,Server2:%String,Port2:%Integer,CSPApplication2:%String,StartGUI:%Boolean=0 Path:%String,OtherPath:%String,StartGUI:%Boolean 1 %String Path:%String,OtherPath:%String,StartGUI:%Boolean=0 1 %Stream "_$C(9)_RapportBestand) Do Feedback.WriteLine() Do ##class(Tools.Comparator.DiffDogComparator).%New().VergelijkXMLBestanden(Path,OtherPath,RapportBestand,StartGUI,1,1,1,1,1) } } Quit Feedback ]]> Path:%String,Server1:%String,Port1:%Integer,CSPApplication1:%String,Server2:%String,Port2:%Integer,CSPApplication2:%String,StartGUI:%Boolean %Stream WebServiceDir:%String,OwnRootPath:%String,Server1:%String,Port1:%Integer,CSPApplication1:%String,Server2:%String,Port2:%Integer,CSPApplication2:%String,StartGUI:%Boolean %Stream "_WebMethod) Do Feedback.WriteLine($C(9)_"met input : "_SoapRequestFile) Set RapportDirectory = ##class(TECH.Files).AppendFile(OwnRootPath,"SoapResponses") Set RapportDirectory = ##class(TECH.Files).AppendFile(RapportDirectory,WebService) Set RapportDirectory = ##class(TECH.Files).AppendFile(RapportDirectory,WebMethod) Do ##class(%File).CreateDirectoryChain(RapportDirectory) Set StreamATemp = ..HttpRequest(Server1,Port1,CSPApplication1, WebService, WebMethod,SoapRequestFile) Set StreamA = ..VerwerkHttpRequest(StreamATemp,WebService,WebMethod) Set FileA = RapportDirectory_"\"_Teller_"A.xml" Do ##class(%File).CopyFile(StreamA.Filename,FileA) Set StreamBTemp = ..HttpRequest(Server2,Port2,CSPApplication2, WebService, WebMethod,SoapRequestFile) Set StreamB = ..VerwerkHttpRequest(StreamBTemp,WebService,WebMethod) Set FileB = RapportDirectory_"\"_Teller_"B.xml" Do ##class(%File).CopyFile(StreamB.Filename,FileB) Set RapportBestand = ##class(TECH.Files).AppendFile(RapportDirectory,"Vergelijking"_Teller_".xml") w RapportBestand,! h 0.3 Do ##class(Tools.Comparator.DiffDogComparator).%New().VergelijkXMLBestanden(FileA, FileB,RapportBestand,StartGUI,1,1,1,1,1) } } } } Quit Feedback ]]> SoapResponseA:%Stream,SoapResponseB:%Stream %Stream device: |") && (LineB["device: |")){ Set IsVerschil = 0 }ElseIf ((LineA["DATE: ") && (LineB["DATE: ")){ Set IsVerschil = 0 } If (IsVerschil){ Do FeedBack.Write(LineA_$C(13,10)) Do FeedBack.Write(LineB_$C(13,10)) Do FeedBack.Write($C(13,10)) } } } Quit FeedBack ]]> Server:%String,Port:%Integer,CSPApplication:%String,ClassName:%String,Method:%String,SoapRequestFile:%String %FileCharacterStream Response:%Stream,ClassName:%String,Method:%String %Stream Path:%String 1 %Status ClassName:%String 1 TECH.Iterator 1 1 set Hash=$system.Encryption.MD5Encode(Hash) #else Set Hash=$system.Encryption.SHA1HashStream(Stream) #endif quit Hash ]]>