Index: APPS/TBXWeb/OrderChecker.cls.xml
===================================================================
diff -u -r2629 -r40531
--- APPS/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 2629)
+++ APPS/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 40531)
@@ -34,7 +34,7 @@
 	Do ..MaakTabelNietVerwerkteOrders(LijstNietVerwerkteOrders, Now, .TabelArray)
 	
 	If $D(TabelArray) {
-		Set sc=..SendMailFromArray(.TabelArray)
+		Set sc=..SendMailFromArray(.TabelArray, LijstNietVerwerkteOrders)
 	}
 	Else {
 		Set sc=$$$OK
@@ -47,7 +47,7 @@
 <Method name="SendMailFromArray">
 <Description>
 TabelArray als .local doorgeven </Description>
-<FormalSpec>TabelArray:%String</FormalSpec>
+<FormalSpec>TabelArray:%String,LijstNietVerwerkteOrders:%ListOfDataTypes</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
@@ -70,6 +70,15 @@
 	
 	Do BodyStream.WriteLine("<BR><BR>")
 	Do BodyStream.WriteLine($$$Replace($$GetJobInfo^vhLib.System(),$$$CRLF,"<BR>"))
+	Do BodyStream.WriteLine("<BR><BR>")
+	Do BodyStream.WriteLine("@ICT: (Test)orders kunnen ""als verwerkt"" gemarkeerd worden via dit command"_"<BR>")
+	
+	Set itIDs=##class(TECH.ListIterator).%New(LijstNietVerwerkteOrders)
+	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("<BR>")
 
 	Set sc=$$SendMiniMailForced^vhLib.Mail(From,lbTo,Subject,BodyStream,BodyIsStream,BodyIsHTML)