Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/SFS.cls.xml
===================================================================
diff -u -r66000 -r68420
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/SFS.cls.xml	(.../SFS.cls.xml)	(revision 66000)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/SFS.cls.xml	(.../SFS.cls.xml)	(revision 68420)
@@ -50,6 +50,54 @@
 	Quit HttpMessage
 ]]></Implementation>
 </Method>
+
+<Method name="VerzendBestand">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	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 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_""")"
+		
+		#dim NieuweExceptie As TECH.Exceptions.Exception = ##class(TECH.Exceptions.BaseException).%New(Exceptie.GeefExceptionCode(), Omschrijving_$$$CRLF_InfoVoorRetry)
+		Do NieuweExceptie.VoegToeInnerExceptie(Exceptie)
+
+		Do ..Logger.ErrorMail(..GeefPersonality().GeefCode() _ "_ORDERS2_POST_FAILED", NieuweExceptie.ToStream())
+
+		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. 
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerzendHttpMessage">
+<FormalSpec>HttpMessage:TECH.Http.Message,SslConfiguration:%String=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Try {
+		Do:($$$HasLength(SslConfiguration)) ..HttpPoster.SetSslConfiguration(SslConfiguration)
+
+		Do ..HttpPoster.PostMessage(HttpMessage)
+		
+		Do ..Logger.Info(..GeefPersonality().GeefCode() _ "_ORDERS2_POST_SUCCESS","Echte HTTP POST = '" _ ..EchteHttpPosterGebruiken() _ "', inhoud uit bestand, Doelserver='"_HttpMessage.Server_"'")
+		Do ..LogMessageInhoud(HttpMessage)
+	} Catch {
+		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..Logger.Error("HttpAPI failed", "SslConfiguration: " _SslConfiguration _", message: " _$$ObjToText^vhLib(HttpMessage) _", exceptie: " _Exceptie.ToString())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
 </Class>