TECH.RegisteredObject,APPS.OV.OrderBevestiging.OrderBevestiger vhLib.Logger 1 1 1 %Status 1 OrderID:TECH.String Test : "xic30" } else { #dim MailTo As %list = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.OV.impl.SFSOrderBevestiging_TestMailNaar")) set stPost=$$SendMiniMailForced^vhLib.Mail($$$SystemMail("OV_OrderBevestiging"),MailTo,"SFS Order : "_OrderID,Stream,1) } If $$$ISERR(stPost) Do Quit stPost . Do ..Logger.ErrorMail("SFS_ORDRSP_POST_FAILED","OrderNr = "_OrderID_" Error = "_$$ParseStatus^vhLib.System(stPost)) Quit:StuurViaMail $$$OK // geen verdere afhandeling indien in test mode :D #dim Result As %Status = $$$OK If ( HttpRequest.HttpResponse.StatusCode = 200 ) Set Result = $$$OK Else Set Result = $$$ERROR($$$GeneralError,HttpRequest.HttpResponse.ReasonPhrase) if Result { do ..Logger.Info("SFS_ORDRSP_POST_SUCCESS","OrderNr = "_OrderID) } else { #dim ErrorInfo As %String = HttpRequest.HttpResponse.ReasonPhrase Do ..Logger.ErrorMail("SFS_ORDRSP_HTTPRESPONSE_INVALID","OrderNr = "_OrderID_" Error = "_ErrorInfo) } quit } ]]> dtoOrderBevestiging:APPS.OV.dto.EDIOrderBevestiging 1 %Stream OrderID:%String 1 APPS.OV.dto.EDIOrderBevestiging