Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/SFS.cls.xml
===================================================================
diff -u -r55923 -r68424
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/SFS.cls.xml	(.../SFS.cls.xml)	(revision 55923)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/SFS.cls.xml	(.../SFS.cls.xml)	(revision 68424)
@@ -33,35 +33,75 @@
 <Implementation><![CDATA[
 	#dim HttpMessage As TECH.Http.Message = ##class(TECH.Http.Message).%New()
 	
-	If (##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.SFS_GebruikSSL")) {
-		Set HttpMessage.Server = "po.sfs.biz"	
-	} Else {
-		Set HttpMessage.Server = "extranet.sfsservices.biz"
-	}
-	
+	Set HttpMessage.Username = "Z_VANHOECKE"
+	Set HttpMessage.Location = "/HttpAdapter/HttpMessageServlet?senderParty=VANHOECKE&senderService=VANHOECKE&receiverParty&receiverService&interface=SI_VANHOECKE_ORDERS2_outb&interfaceNamespace=http://sfs.biz/xi/vanhoecke&qos=EO" 
 	If ..RunsInTestmode() {
-		Set HttpMessage.Location = "/xic30/sap/xi/adapter_plain" 
+		Set HttpMessage.Server = "po.sfs-dev.biz"	
+		Set HttpMessage.Password = "YftI1wUOk7?4"
 	} Else {
-		Set HttpMessage.Location = "/xic34/sap/xi/adapter_plain" 
+		Set HttpMessage.Server = "po.sfs.biz"	
+		Set HttpMessage.Password = "YfIVP^3KuPkv"
 	}
 	
 	Set HttpMessage.ContentType = "text/xml"
 	Set HttpMessage.ContextEncoding = "UTF-8"
 	Set HttpMessage.Data = XMLStream
-
-	Do HttpMessage.Params.InsertKeyValue("namespace", "http://sfs.biz/xi/ch/vanhoecke")
-	Do HttpMessage.Params.InsertKeyValue("interface", "SI_VANHOECKE_out_ORDERS2")
-	Do HttpMessage.Params.InsertKeyValue("service", "VANHOECKE")
-	Do HttpMessage.Params.InsertKeyValue("party", "VANHOECKE")
-	Do HttpMessage.Params.InsertKeyValue("QOS", "EO")
-	Do HttpMessage.Params.InsertKeyValue("sap-user", "VANHOECKE")
-	Do HttpMessage.Params.InsertKeyValue("sap-password", "hoec4s!f")
-	Do HttpMessage.Params.InsertKeyValue("sap-client", "100")
-	Do HttpMessage.Params.InsertKeyValue("sap-language", "EN")
 	
 	Quit HttpMessage
 ]]></Implementation>
 </Method>
+
+<Method name="VerzendBestand">
+<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 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_""")"
+		
+		#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())
+
+		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>
+
+<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>