Index: APPS/TBXWeb/impl/AbstractOrderHandler.cls.xml
===================================================================
diff -u -r799 -r889
--- APPS/TBXWeb/impl/AbstractOrderHandler.cls.xml	(.../AbstractOrderHandler.cls.xml)	(revision 799)
+++ APPS/TBXWeb/impl/AbstractOrderHandler.cls.xml	(.../AbstractOrderHandler.cls.xml)	(revision 889)
@@ -75,11 +75,11 @@
 	
 	; Order is reeds besteld
 	If (..OrderIsReedsBesteld()) Do  Quit $$$ERROR($$$errOrderAlreadyConfirmed,"WSOrder is already confirmed")
-	. Do ..Logger.ErrorMail("ORDERSTARTTYPE_INVALID",..WSOrd.%Id()_" : "_..WSOrd.BonType) 
+	. Do ..Logger.ErrorMail("ORDERSTARTTYPE_INVALID",..WSOrd.%Id()_" : "_..WSOrd.BonType_$$$CRLF_..GeefBestelStatusInfo()) 
 	
 	; Ordertype order niet van het juiste begin type
 	If $$$Not(..OrderStartTypeValid()) Do  Quit $$$ERROR($$$errStartTypeIncorrect,"WSOrder start type not correct")
-	. Do ..Logger.ErrorMail("ORDERSTARTTYPE_INVALID",..WSOrd.%Id()_" : "_..WSOrd.BonType) 
+	. Do ..Logger.ErrorMail("ORDERSTARTTYPE_INVALID",..WSOrd.%Id()_" : "_..WSOrd.BonType_$$$CRLF_..GeefBestelStatusInfo()) 
 	
 	If '(..IsValidWebDomain()) Do  Quit $$$ERROR($$$GeneralError,"WSOrder has no valid WebDomain for this shop")
 	. Set Info = "WSOrd.WebDomain = *"_..GeefOrderDomein() _"* "_"Requester = *"_..Requester_"*"
@@ -128,6 +128,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBestelStatusInfo">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit:('$IsObject(..WSOrd)) ""
+	
+	Set BestelStatusInfo = "" _ $$$CRLF
+	Set:($LL(..WSOrd.SubmitToVHLog)) BestelStatusInfo = BestelStatusInfo _ "Doorbesteld (INKP)   : " _ ..GeefGeformatteerdeDatum($LG($LG(..WSOrd.SubmitToVHLog,1),1)) _ "    all: "_$$$LCVT(..WSOrd.SubmitToVHLog) _ $$$CRLF
+	Set BestelStatusInfo = BestelStatusInfo _ "Besteld (BBON)       : " _..WSOrd.SubmitTS _ $$$CRLF
+	Set BestelStatusInfo = BestelStatusInfo _ "IngaveTijdstip (OFF) : " _..WSOrd.IngaveTijdStip _ $$$CRLF
+	Set BestelStatusInfo = BestelStatusInfo _ $$$CRLF
+	Set:($LL(..WSOrd.TransferLog)  ) BestelStatusInfo = BestelStatusInfo _ "Verwerkt door VH     : " _ ..GeefGeformatteerdeDatum($LG($LG(..WSOrd.TransferLog,  1),1)) _ "    all: "_$$$LCVT(..WSOrd.TransferLog) _ $$$CRLF
+	Set BestelStatusInfo = BestelStatusInfo _ "Shop : "_..Shop _ $$$CRLF
+	
+	Quit BestelStatusInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefGeformatteerdeDatum">
+<FormalSpec>DatumH:%Date</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit:($$$Not(DatumH?1.5N0.1(1","1.5N))) DatumH
+	Quit $$FormatDateTime^vhLib("yyyy-mm-dd hh:nn:ss",DatumH)
+]]></Implementation>
+</Method>
+
 <Method name="RetryPostProcessOrder">
 <Description>
 Om te gebruiken wanneer de Send_Mail of de HttpPost gefaald is. </Description>