1 AbstractOrderHandler 0 1 %String Boolean %Status hadev! Set HttpRequest = ##class(%Net.HttpRequest).%New() Set HttpRequest.Server="extranet.sfsservices.biz" Do HttpRequest.SetParam("namespace", "http://sfs.biz/xi/ch/mm/vanhoecke") Do HttpRequest.SetParam("interface", "VANHOECKE_ORDERS_IN") Do HttpRequest.SetParam("service", "VANHOECKE") Do HttpRequest.SetParam("party", "VANHOECKE") Do HttpRequest.SetParam("QOS", "EO") Do HttpRequest.SetParam("sap-user", "VANHOECKE") Do HttpRequest.SetParam("sap-password", "hoec4s!f") Do HttpRequest.SetParam("sap-client", "100") Do HttpRequest.SetParam("sap-language", "DE") Set HttpRequest.ContentType = "text/xml" Set HttpRequest.ContentEncoding = "UTF-8" Do HttpRequest.EntityBody.CopyFrom(Stream) If $$$Not(flagTest) Set stPost = HttpRequest.Post("/xib30/sap/xi/adapter_plain",0) Else Set stPost=$$SendMiniMail^vhLib("""SFS_POSTER"" ",$lb("ICT_SupportTBX@vanhoecke.be"),"SFS POST for WSid : "_..WSOrd.%Id(),Stream,1) If $$$ISERR(stPost) Do Quit stPost . Do ..Logger.Error("SFS_TBX_POST_FAILED","wsID = "_..WSOrd.mID_" Error = "_$$ParseStatus^vhLib.System(stPost)) . Do SendMiniMail^vhLib("""SFS_POSTER"" ",$lb("ICT_SupportTBX@vanhoecke.be"),"SFS POST FAILED : "_..WSOrd.%Id(),Stream,1) 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_TBX_POST_SUCCESS","wsID = "_..WSOrd.mID) Else Do . Set ErrorInfo = HttpRequest.HttpResponse.ReasonPhrase . Do ..Logger.Error("SFS_TBX_HTTPRESPONSE_INVALID","wsID = "_..WSOrd.mID_" Error = "_ErrorInfo) Quit Result ]]> %String