Index: APPS/OV/impl/OrderBevestigingSFS.cls.xml
===================================================================
diff -u -r1706 -r1781
--- APPS/OV/impl/OrderBevestigingSFS.cls.xml	(.../OrderBevestigingSFS.cls.xml)	(revision 1706)
+++ APPS/OV/impl/OrderBevestigingSFS.cls.xml	(.../OrderBevestigingSFS.cls.xml)	(revision 1781)
@@ -47,7 +47,7 @@
  	Set HttpRequest = ##class(%Net.HttpRequest).%New()
  	Set HttpRequest.Server="extranet.sfsservices.biz"
  	Do HttpRequest.SetParam("namespace", "http://sfs.biz/xi/ch/vanhoecke")
- 	Do HttpRequest.SetParam("interface", "SI_VANHOECKE_ORDERS_outb")
+ 	Do HttpRequest.SetParam("interface", "SI_VANHOECKE_ORGALUX_ORDRSP_outb")
  	Do HttpRequest.SetParam("service", "VANHOECKE")
  	Do HttpRequest.SetParam("party", "VANHOECKE")
  	Do HttpRequest.SetParam("QOS", "EO")
@@ -58,27 +58,27 @@
  	Set HttpRequest.ContentType = "text/xml"
  	Set HttpRequest.ContentEncoding = "UTF-8"
  	Do HttpRequest.EntityBody.CopyFrom(Stream)
-    Set stPost = HttpRequest.Post("/xic34/sap/xi/adapter_plain",0) 	
+    Set stPost = HttpRequest.Post("/xic34/sap/xi/adapter_plain",0)   ; Productie : "xic34"    <->    Test : "xic30" 
  }
  else  {
 	 set MailTo = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.OV.impl.SFSOrderBevestiging_TestMailNaar"))
 	 set stPost=$$SendMiniMail^vhLib($$$SystemMail("OV_OrderBevestiging"),MailTo,"SFS Order : "_..OrderNr,Stream,1)
  }
  
  If $$$ISERR(stPost) Do  Quit stPost
- . Do ..Logger.Error("SFS_POST_FAILED","OrderNr = "_..OrderNr_" Error = "_$$ParseStatus^vhLib.System(stPost))
+ . Do ..Logger.Error("SFS_ORDSP_POST_FAILED","OrderNr = "_..OrderNr_" Error = "_$$ParseStatus^vhLib.System(stPost))
 
  Quit:flagTest $$$OK   // geen verdere afhandeling indien in test mode :D
   
  If ( HttpRequest.HttpResponse.StatusCode = 200 ) Set Result = $$$OK
  Else  Set Result = $$$ERROR($$$GeneralError,HttpRequest.HttpResponse.ReasonPhrase)
 
  if Result { 
- 	do ..Logger.Info("SFS_POST_SUCCESS","OrderNr = "_..OrderNr) 
+ 	do ..Logger.Info("SFS_ORDSP_POST_SUCCESS","OrderNr = "_..OrderNr) 
  }
  else  {
  	Set ErrorInfo = HttpRequest.HttpResponse.ReasonPhrase
- 	Do ..Logger.Error("SFS_HTTPRESPONSE_INVALID","OrderNr = "_..OrderNr_" Error = "_ErrorInfo)
+ 	Do ..Logger.Error("SFS_ORDSP_HTTPRESPONSE_INVALID","OrderNr = "_..OrderNr_" Error = "_ErrorInfo)
  }
  quit
 ]]></Implementation>