Index: APPS/TBXWeb/impl/HFLBOrderHandler.cls.xml
===================================================================
diff -u -r33 -r44
--- APPS/TBXWeb/impl/HFLBOrderHandler.cls.xml	(.../HFLBOrderHandler.cls.xml)	(revision 33)
+++ APPS/TBXWeb/impl/HFLBOrderHandler.cls.xml	(.../HFLBOrderHandler.cls.xml)	(revision 44)
@@ -52,7 +52,12 @@
 	
 	// Verzenden van de xml-stream via HTTP-post  (of SendMiniMail in Testmode, i.e. flagTest=1) 
 	Set HttpRequest = ##class(%Net.HttpRequest).%New()
-	Set:$$$Not(flagTest) HttpRequest.Server=""   ; extranet.sfsservices.biz
+	Set:$$$Not(flagTest) HttpRequest.Server="192.168.25.31"   ; ip-adres van netwerk-tunnel naar hafele-server (dit i.p.v. een domeinnaam) 
+	Set:$$$Not(flagTest) HttpRequest.Port=15000
+ /*
+	// Config for hafele.be set by WimV on 22/09/2011 
+	// overgenomen van SFS, maar niet nodig bij hafele.be  
+	// 
 	Do HttpRequest.SetParam("namespace", "")   ; http://sfs.biz/xi/ch/vanhoecke
 	Do HttpRequest.SetParam("interface", "SI_VANHOECKE_ORDERS_outb")
 	Do HttpRequest.SetParam("service", "VANHOECKE")
@@ -62,11 +67,12 @@
 	Do HttpRequest.SetParam("sap-password", "")   ; hoec4s!f
 	Do HttpRequest.SetParam("sap-client", "100")
 	Do HttpRequest.SetParam("sap-language", "EN")
+ */
 	Set HttpRequest.ContentType = "text/xml"
 	Set HttpRequest.ContentEncoding = "UTF-8"
 	Do HttpRequest.EntityBody.CopyFrom(Stream)
 	
-	If $$$Not(flagTest) Set stPost = HttpRequest.Post("",0)   ; /xic34/sap/xi/adapter_plain
+	If $$$Not(flagTest) Set stPost = HttpRequest.Post("/",0)
 	Else  Set stPost=$$SendMiniMail^vhLib("""HFLB_POSTER"" <AdminTBX@vanhoecke.be>",$lb("ICT_SupportTBX@vanhoecke.be"),"HFLB POST for WSid : "_..WSOrd.%Id(),Stream,1)
 	
 	If $$$ISERR(stPost) Do  Quit stPost