Index: APPS/TBXWeb/impl/AbstractOrderHandler.cls.xml
===================================================================
diff -u -r451 -r459
--- APPS/TBXWeb/impl/AbstractOrderHandler.cls.xml	(.../AbstractOrderHandler.cls.xml)	(revision 451)
+++ APPS/TBXWeb/impl/AbstractOrderHandler.cls.xml	(.../AbstractOrderHandler.cls.xml)	(revision 459)
@@ -126,6 +126,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="RetryPostProcessOrder">
+<Description>
+Om te gebruiken wanneer de Send_Mail of de HttpPost gefaald is. </Description>
+<Final>1</Final>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	; Order is reeds besteld
+	If (..WSOrd.BonType'=..GetOrderResultType()) Do  Quit $$$ERROR($$$errOrderAlreadyConfirmed,"WSOrder start type not correct for PostProcessing")
+	. Do ..Logger.ErrorMail("ORDERSTARTTYPE_INVALID",..WSOrd.%Id()_" : "_..WSOrd.BonType_" is ongeldig voor RetryPostProcessOrder() ") 
+
+	; Post processing verwerking starten -> indien post processing errors --> quiten
+	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 lbExtras=""
+	. Set lbExtras=lbExtras_$LB(..%ClassName(0))
+	. Do ##class(cspBasis.GAProdTBox).AddToLog("SUBMIT_FAILED",..GeefOrderDomein(),..WSOrd.KLNummer,"shop="_..Shop,..WSOrd.mID,..Requester,..Taal,,lbExtras)
+	
+	Do ..Logger.Info("ORDER_PROCESSED")
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="IsValidWebDomain">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit $listget(##class(APPS.TBXWeb.TBXContext).GeefDomeinData(..GeefOrderDomein(),$LB("VERW")),1) = ..Requester