Index: APPS/TBXWeb/OrderHandling.cls.xml
===================================================================
diff -u -r320 -r459
--- APPS/TBXWeb/OrderHandling.cls.xml	(.../OrderHandling.cls.xml)	(revision 320)
+++ APPS/TBXWeb/OrderHandling.cls.xml	(.../OrderHandling.cls.xml)	(revision 459)
@@ -6,6 +6,7 @@
 <IncludeCode>vhLib.Macro,APPS.TBXWeb</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <UDLText name="T">
 <Content><![CDATA[
@@ -20,7 +21,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	
-	Set Logger  = ##class(Logger).%New()
+	Set Logger  = ##class(APPS.TBXWeb.impl.OrderHandlerFactory.Logger).%New()
 	
 	Set Info = "Shop="_$G(Shop)_" wsID="_$G(wsID)_" Requester = "_$G(Requester)
 	Do Logger.Info("ORDER_SUBMIT",Info)
@@ -33,7 +34,7 @@
 	If '##class(WS.TBX.Order).%ExistsId(wsID) Do  Quit $$$ERROR($$$GeneralError,"wsID not existing ")
 	. Do Logger.ErrorMail("WSORD_ID_NOT_EXISTING","wsID="_$G(wsID)_"Shop="_$G(Shop)_" ")
 
-	Set factory = ##class(OrderHandlerFactory).%New()
+	Set factory = ##class(APPS.TBXWeb.impl.OrderHandlerFactory).%New()
 	Set blOH = factory.CreateOrderHandler(wsID,Shop,Requester)
 	If '$IsObject(blOH) Do  Quit $$$ERROR($$$GeneralError,"Could not create business logic object")
 	. Do Logger.ErrorMail("CREATE_OBJECT_FAILED","wsID="_$G(wsID)_"Shop="_$G(Shop)_" ")
@@ -43,5 +44,22 @@
 	Quit blOH.ProcessOrder()
 ]]></Implementation>
 </Method>
+
+<Method name="RetryPostProcessOrder">
+<Description>
+Om te gebruiken wanneer de Send_Mail of de HttpPost gefaald is. </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>wsID:%String="",Shop:%String="",Requester:%String=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set factory = ##class(APPS.TBXWeb.impl.OrderHandlerFactory).%New()
+	Set blOH = factory.CreateOrderHandler(wsID,Shop,Requester)
+
+	If '$IsObject(blOH) Do  Quit $$$ERROR($$$GeneralError,"Could not create business logic object")
+	. Do ##class(APPS.TBXWeb.impl.Logger).%New().ErrorMail("CREATE_OBJECT_FAILED","wsID="_$G(wsID)_"Shop="_$G(Shop)_" ")
+
+	Quit blOH.RetryPostProcessOrder()
+]]></Implementation>
+</Method>
 </Class>
 </Export>
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