Index: APPS/TBXWeb/OrderChecker.cls.xml
===================================================================
diff -u -r835 -r836
--- APPS/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 835)
+++ APPS/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 836)
@@ -89,7 +89,7 @@
 	Set itIDs=##class(TECH.ListIterator).%New(NietVerwerkteOrderIds)
 	While itIDs.HasNext() {
 		Set ID=itIDs.Next()
-		Do BodyStream.WriteLine("Set sc=##class(APPS.TBXWeb.OrderChecker).MarkeerTBXOrderAlsVerwerkt("_$E(ID,2,7)_",0)   w sc,!"_"<BR>")
+		Do BodyStream.WriteLine("Set sc=##class(APPS.TBXWeb.OrderChecker).MarkeerTBXOrderAlsVerwerkt("_ID_",0)   w sc,!"_"<BR>")
 	}
 	
 	Do BodyStream.WriteLine("<BR>")