Index: APPS/TBXWeb/impl/SFSOrderHandler.cls.xml =================================================================== diff -u -r1073 -r1781 --- APPS/TBXWeb/impl/SFSOrderHandler.cls.xml (.../SFSOrderHandler.cls.xml) (revision 1073) +++ APPS/TBXWeb/impl/SFSOrderHandler.cls.xml (.../SFSOrderHandler.cls.xml) (revision 1781) @@ -81,18 +81,18 @@ 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_POST_FAILED","wsID = "_..WSOrd.mID_" Error = "_$$ParseStatus^vhLib.System(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_POST_SUCCESS","wsID = "_..WSOrd.mID) + If Result Do ..Logger.Info("SFS_TBX_POST_SUCCESS","wsID = "_..WSOrd.mID) Else Do . Set ErrorInfo = HttpRequest.HttpResponse.ReasonPhrase - . Do ..Logger.Error("SFS_HTTPRESPONSE_INVALID","wsID = "_..WSOrd.mID_" Error = "_ErrorInfo) + . Do ..Logger.Error("SFS_TBX_HTTPRESPONSE_INVALID","wsID = "_..WSOrd.mID_" Error = "_ErrorInfo) Quit Result ]]>