1 AbstractOrderHandler 0 1 %String Boolean %Status ",$lb("ICT_SupportTBX@vanhoecke.be"),"SFS POST for WSid : "_..WSOrd.%Id(),Stream,1) If $$$ISERR(stPost) Do Quit stPost . Do ..Logger.Error("SFS_POST_FAILED","wsID = "_..WSOrd.mID_" 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","wsID = "_..WSOrd.mID) Else Do . Set ErrorInfo = HttpRequest.HttpResponse.ReasonPhrase . Do ..Logger.Error("SFS_HTTPRESPONSE_INVALID","wsID = "_..WSOrd.mID_" Error = "_ErrorInfo) Quit Result ]]> %String