Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoap.cls.xml
===================================================================
diff -u -r51954 -r53505
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoap.cls.xml	(.../IntractoInformeerderSoap.cls.xml)	(revision 51954)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/IntractoInformeerderSoap.cls.xml	(.../IntractoInformeerderSoap.cls.xml)	(revision 53505)
@@ -34,6 +34,11 @@
 <Default>1.1</Default>
 </Parameter>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>initvalue:%CacheString</FormalSpec>
 <Private>1</Private>
@@ -44,6 +49,9 @@
 	Set ..Location = ##class(TECH.Config.ConfigMgr).Instance().GetString("Vhisie4CartImportWebserviceURL")
 	Set ..SSLConfiguration = ##class(TECH.Config.ConfigMgr).Instance().GetString("Vhisie4SSLConfiguration")
 	Set ..Timeout = 10*60
+
+	Set ..Logger = ##class(vhLib.Logger).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -54,11 +62,18 @@
 <Implementation><![CDATA[
 	#dim SoapResponse As WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoapResponse.SendResponse = ""
 	Try {
+		Do ..Logger.Info("IntractoInformeerder","WS method Import met Bestand '"_ BestandNaam _ "'.")
 		Set SoapResponse = ..Import(BestandNaam)
+		Do ..Logger.Info("IntractoInformeerder","Import van bestand is afgelopen. "_$$$CRLF_"Resultaat :"_$$$CRLF_$$ObjToText^vhLib(SoapResponse))
+		If ($$$Not(SoapResponse.Winkelkar.Status = "Geslaagd")) {
+			Do ..Logger.Debug("IntractoInformeerder",SoapResponse.ToString())
+		}
 	} Catch {
 		#dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set NewException = ##class(TECH.Exceptions.CommunicationErrorException).%New("Fout bij IntractoInformeerder : import van "_BestandNaam_" is niet gelukt.")
 		Do NewException.VoegToeInnerExceptie(GecatchteException)
+
+		Do ..Logger.LogExceptie(NewException)
 		Do ##class(TECH.ExceptionHandler).Throw(NewException)
 	}
 
@@ -114,8 +129,9 @@
 <SoapBindingStyle>rpc</SoapBindingStyle>
 <SoapBodyUse>encoded</SoapBodyUse>
 <Implementation><![CDATA[
+ 	#dim SendResponse As WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoapResponse.SendResponse = ""
  	try {
- 		#dim SendResponse As WSimpl.Vhisie4.Winkelkar.WinkelkarExport.IntractoInformeerderSoapResponse.SendResponse = ..WebMethod("Import").Invoke($this,..Location_"#Import",.bestandsnaam)
+ 		Set SendResponse = ..WebMethod("Import").Invoke($this,..Location_"#Import",.bestandsnaam)
  	} catch {
 	 	do ..RaiseException($$$CurrentMethod)	
  	}