Index: APPS/TBXWeb/impl/AbstractOrderHandler.cls.xml =================================================================== diff -u -r571 -r595 --- APPS/TBXWeb/impl/AbstractOrderHandler.cls.xml (.../AbstractOrderHandler.cls.xml) (revision 571) +++ APPS/TBXWeb/impl/AbstractOrderHandler.cls.xml (.../AbstractOrderHandler.cls.xml) (revision 595) @@ -115,7 +115,9 @@ Do ..Logger.Info("POSTPROCESSING_STARTED") Set stPostProcessing = ..PostProcessing() if 'stPostProcessing Do Quit $$$ERROR($$$GeneralError,"Post processing error") - . Do ..Logger.ErrorMail("POSTPROCESSING_FAILED",$$ParseStatus^vhLib.System(stPostProcessing)) + . Set Info=$$ParseStatus^vhLib.System(stPostProcessing)_$$$CRLF_$$$CRLF_"Opnieuw verwerken kan via "_$$$CRLF_"Set sc=##class(APPS.TBXWeb.OrderHandling).RetryPostProcessOrder(wsID,Shop,Requester) w sc,! " + . Set Info=Info_$$$CRLF_$$$CRLF_"Zie Cache-Logs (vhLib.Logging) op WWW01 - HADEV voor de waarde van de parameters." + . Do ..Logger.ErrorMail("POSTPROCESSING_FAILED",Info) . Set lbExtras="" . Set lbExtras=lbExtras_$LB(..%ClassName(0)) . Do ##class(cspBasis.GAProdTBox).AddToLog("SUBMIT_FAILED",..GeefOrderDomein(),..WSOrd.KLNummer,"shop="_..Shop,..WSOrd.mID,..Requester,..Taal,,lbExtras) Index: APPS/TBXWeb/OrderHandling.cls.xml =================================================================== diff -u -r459 -r595 --- APPS/TBXWeb/OrderHandling.cls.xml (.../OrderHandling.cls.xml) (revision 459) +++ APPS/TBXWeb/OrderHandling.cls.xml (.../OrderHandling.cls.xml) (revision 595) @@ -47,7 +47,10 @@ -Om te gebruiken wanneer de Send_Mail of de HttpPost gefaald is. +Om te gebruiken wanneer de Send_Mail of de HttpPost gefaald is. +Oproepen via : + Set sc=##class(APPS.TBXWeb.OrderHandling).RetryPostProcessOrder(wsID,Shop,Requester) w sc,! + bvb Shop="SFS", Requester="SFS" 1 wsID:%String="",Shop:%String="",Requester:%String="" %Status