Index: APPS/TBXWeb/OrderChecker.cls.xml
===================================================================
diff -u -r605 -r830
--- APPS/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 605)
+++ APPS/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 830)
@@ -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
@@ -60,7 +60,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[
@@ -85,7 +85,13 @@
 	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>")
-	Do BodyStream.WriteLine("Set sc=##class(APPS.TBXWeb.OrderChecker).MarkeerTBXOrderAlsVerwerkt(TBXOrderID,0)   w sc,!"_"<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=$$SendMiniMail^vhLib(From,lbTo,Subject,BodyStream,BodyIsStream,BodyIsHTML)