1 AbstractOrderHandler 0 1 %String Boolean %String %Status ",$lb("ICT_SupportTBX@vanhoecke.be"),"HFLE POST for WSid : "_..WSOrd.%Id(),Stream,1) If $$$ISERR(stPost) Do Quit stPost . Do ..Logger.Error("HFLE_POST_FAILED","wsID = "_..WSOrd.mID_" Error = "_$$ParseStatus^vhLib.System(stPost)) // Resultaat van de HTTP-post controleren Set Result="" If flagTest { Set Result=$$$OK ; Geen verdere afhandeling indien in test mode :D } Else { If HttpRequest.HttpResponse.StatusCode = 200 { Set Result = $$$OK } Else { Set Result = $$$ERROR($$$GeneralError, HttpRequest.HttpResponse.ReasonPhrase) } If $$$ISOK(Result) { Do ..Logger.Info("HFLE_POST_SUCCESS","wsID = "_..WSOrd.mID) } Else { Set ErrorInfo = HttpRequest.HttpResponse.ReasonPhrase _ " (StatusCode="_HttpRequest.HttpResponse.StatusCode_")" Do ..Logger.ErrorMail("HFLE_HTTPRESPONSE_INVALID","wsID = "_..WSOrd.mID_" Error = "_ErrorInfo) } } Quit Result ]]>