Index: WS/APPS/VKP/SFSTijdelijkeHttpPoster.cls.xml
===================================================================
diff -u -r68420 -r68424
--- WS/APPS/VKP/SFSTijdelijkeHttpPoster.cls.xml	(.../SFSTijdelijkeHttpPoster.cls.xml)	(revision 68420)
+++ WS/APPS/VKP/SFSTijdelijkeHttpPoster.cls.xml	(.../SFSTijdelijkeHttpPoster.cls.xml)	(revision 68424)
@@ -11,7 +11,7 @@
 <FormalSpec>Path:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	quit "ok"
+<Implementation><![CDATA[	Quit ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.SFS).%New().VerzendBestand(Path)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/SFS.cls.xml
===================================================================
diff -u -r68420 -r68424
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/SFS.cls.xml	(.../SFS.cls.xml)	(revision 68420)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/SFS.cls.xml	(.../SFS.cls.xml)	(revision 68424)
@@ -55,13 +55,14 @@
 <FormalSpec>BestandNaam:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	#dim Result as %String = "OK"
 	Try {
 		Set FileReader = ##class(TECH.File.impl.FileReader).%New(BestandNaam) 
 		#dim HttpMessageStream As TECH.Http.Message = FileReader.GeefStream()
 		Do ..VerzendHttpMessage(..GeefHttpMessage(HttpMessageStream),..GeefSslConfiguratie())
 	} Catch {
 		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		#dim Omschrijving As %String = "Tijdelijk gewijzigede SFS HTTPPost is mislukt. Bestand "_ BestandNaam _ " Is niet verstuurd naar SFS"
+		#dim Omschrijving As %String = "Tijdelijk gewijzigde SFS HTTPPost is mislukt. Bestand "_ BestandNaam _ " Is niet verstuurd naar SFS"
 		#dim InfoVoorRetry As %String = "Probeer deze opnieuw manueel te verzenden via volgende command : "_$$$CRLF
 		Set InfoVoorRetry = InfoVoorRetry _ "Do ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.SFS).%New().VerzendBestand("""_BestandNaam_""")"
 		
@@ -70,13 +71,16 @@
 
 		Do ..Logger.ErrorMail(..GeefPersonality().GeefCode() _ "_ORDERS2_POST_FAILED", NieuweExceptie.ToStream())
 
+		Set Result = Omschrijving _ $$$CRLF _ InfoVoorRetry
+
 		If $$$Not(Exceptie.%Extends(##class(TECH.Exceptions.CommunicationErrorException).%ClassName($$$True))) {
 			Do ##class(TECH.ExceptionHandler).Throw(NieuweExceptie)	
 		}
 		Else {
 			// De HttpPost-fout is gemeld (via log en mail); de code mag verder uitgevoerd worden. 
 		}
 	}
+	Quit Result
 ]]></Implementation>
 </Method>