Index: APPS/TBXWeb/impl/AbstractOrderHandler.cls.xml
===================================================================
diff -u -r320 -r334
--- APPS/TBXWeb/impl/AbstractOrderHandler.cls.xml	(.../AbstractOrderHandler.cls.xml)	(revision 320)
+++ APPS/TBXWeb/impl/AbstractOrderHandler.cls.xml	(.../AbstractOrderHandler.cls.xml)	(revision 334)
@@ -102,7 +102,7 @@
 	if (..Shop = "VHEPN") && (..Requester'="VHEPN" ) {
 		Do ..WSOrd.AddToSubmitToVHLog("1")
 	} else	{	
-		Set ..WSOrd.SubmitTS=$ZDT($H,3)
+		Do ..WSOrd.ZetSubmitTS($H)
 	}
 	
 	; bon bewaren
@@ -192,11 +192,12 @@
 	If stSendMail Do
 	. Set MailTo=$TR($$$LCVT($G(lbTo)),"""","")
     . Set:(MailTo?1"(".E1")") MailTo=$E(MailTo,2,$L(MailTo)-1)
+    . Set VERW=..Requester
 	. Set lbExtras=""
 	. Set:($L($G(From))) lbExtras=lbExtras_$LB("MailFrom="_$TR(From,"""","")) 
 	. Set:($L($G(lbTo))) lbExtras=lbExtras_$LB("MailTo="_MailTo)
 	. Set:($L(..WSOrd.Opmerking1)) lbExtras=lbExtras_$LB("MailComment="_..WSOrd.Opmerking1)
-	. Do ##class(cspBasis.GAProdTBox).AddToLog("MAIL_SEND",..WSOrd.WebDomain,..WSOrd.KLNummer,"shop="_..Shop,..WSOrd.mID,,$G(Taal),,lbExtras)
+	. Do ##class(cspBasis.GAProdTBox).AddToLog("MAIL_SEND",..WSOrd.WebDomain,..WSOrd.KLNummer,"shop="_..Shop,..WSOrd.mID,VERW,$G(Taal),,lbExtras)
 	. Set Info = "From="_From_" To="_$$$LCVT(lbTo)
 	. Do ..Logger.Info("MAIL_SEND",Info)
 	Else  Do