Dit is een elektronische bevestiging voor ADMIN-orders van SFS, typisch voor EDI-bestellingen vhLib.Macro 1 %RegisteredObject 0 %Integer 1 vhLib.Logger 1 Opmerking ( JCL : 18/07/2011 ) Bedoeling is dat er in een latere fase een abstracte versie van deze klasse wordt gemaakt waarvan deze implementatie een afgeleide klasse wordt. OrderNr:%Integer 1 1 %Status %Status Test : "xic30" } else { set MailTo = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.OV.impl.SFSOrderBevestiging_TestMailNaar")) set stPost=$$SendMiniMailForced^vhLib.Mail($$$SystemMail("OV_OrderBevestiging"),MailTo,"SFS Order : "_..OrderNr,Stream,1) } If $$$ISERR(stPost) Do Quit stPost . Do ..Logger.ErrorMail("SFS_ORDSP_POST_FAILED","OrderNr = "_..OrderNr_" 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_ORDSP_POST_SUCCESS","OrderNr = "_..OrderNr) } else { Set ErrorInfo = HttpRequest.HttpResponse.ReasonPhrase Do ..Logger.ErrorMail("SFS_ORDSP_HTTPRESPONSE_INVALID","OrderNr = "_..OrderNr_" Error = "_ErrorInfo) } quit ]]> 1 %Stream 1 APPS.OV.dto.EDIOrderBevestiging 1 %String