Index: APPS/TBXWeb/impl/AbstractOrderHandler.cls.xml
===================================================================
diff -u -r1073 -r1299
--- APPS/TBXWeb/impl/AbstractOrderHandler.cls.xml	(.../AbstractOrderHandler.cls.xml)	(revision 1073)
+++ APPS/TBXWeb/impl/AbstractOrderHandler.cls.xml	(.../AbstractOrderHandler.cls.xml)	(revision 1299)
@@ -87,7 +87,11 @@
 	. Set ..WSOrd.BonType = NewBT
 	. Do ..Logger.Info("BONTYPE_SET",OldBT _ " ---> " _ NewBT) 
 
-	Set ..WSOrd.SubmitTS=$ZDT($H,3)
+	if (..Shop = "VHEPN") && (..Requester'="VHEPN" ) {
+		Do ..WSOrd.AddToSubmitToVHLog("1")
+	} else	{	
+		Set ..WSOrd.SubmitTS=$ZDT($H,3)
+	}
 	
 	; bon bewaren
 	Set stSaved = 1