Index: APPS/TBXWeb/OrderChecker.cls.xml
===================================================================
diff -u -r831 -r835
--- APPS/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 831)
+++ APPS/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 835)
@@ -29,7 +29,7 @@
 	Set Now=+$H
 	Kill TabelArray
 	
-	Set NietVerwerkteOrderIds=..GeefNietVerwerkteOrderIds()
+	Set NietVerwerkteOrderIds=..GeefNietVerwerkteOrderIds(Now)
 	
 	Do ..MaakTabelNietVerwerkteOrders(NietVerwerkteOrderIds, Now, .TabelArray)
 	
@@ -49,7 +49,7 @@
 	Set Now=+$H
 	Kill TabelArray
 	
-	Set NietVerwerkteOrderIds=..GeefNietVerwerkteOrderIds()
+	Set NietVerwerkteOrderIds=..GeefNietVerwerkteOrderIds(Now)
 	Do ..MaakTabelNietVerwerkteOrders(NietVerwerkteOrderIds, Now, .TabelArray)
 	
 	Set TabelStream=$$ArrayToHTMLTable^vhLib(.TabelArray)
@@ -108,24 +108,9 @@
 	Set cntRows=0
 	Set itIDs=##class(TECH.ListIterator).%New(NietVerwerkteOrderIds)
 	While itIDs.HasNext() {
-		Set ID=itIDs.Next()
-		Set TBXOrder=##class(WS.TBX.Order).%OpenId(ID)
-		
+		Set TBXOrder=##class(WS.TBX.Order).%OpenId(itIDs.Next())
 		Set SubmitTS=TBXOrder.GeefLaatsteSubmitTS()
-		If (SubmitTS="")&&(TBXOrder.BonType="INKP") {
-			// dit order komt niet in aanmerking voor deze controle :
-			// want is niet verzonden via de normale OrderHandler-applicatie (van de handel to Van Hoecke), maar is wel geïmporteerd door een VH-medewerker. 
-			// dit is mogelijk als de handel deze EDI-nr doorgeeft via fax, telefoon of e-mail.
-		}
-		Else {
-			If (SubmitTS'?1(5N1","1.5N,5N)) $$$ThrowError($$$errGeneralError,"Ongeldige datum gespecifieerd (moet $H-formaat zijn)")
-			
-			Set DagenNietVerwerkt=..BerekenDagenNietVerwerkt(+SubmitTS,+RefDatum)
-			If DagenNietVerwerkt>..#MaxDagenNietVerwerkt {
-				Set TabelArray($Increment(cntRows))=$$LCVTSimple^vhLib( $LB(TBXOrder.OrderNrGet(), TBXOrder.KLNummer, TBXOrder.KLNaam, " " , DagenNietVerwerkt, $$FormatDateTime^vhLib("dd-mm-yyyy hh:nn:ss",SubmitTS), "", TBXOrder.WebDomain) ,$$$TAB)
-			}
-			 ;Write ID_" SubmittedOn "_$$FormatDateTime^vhLib("dd-mm-yyyy hh:nn:ss",SubmitTS)_" "_TBXOrder.WebDomain_" "_$S(DagenNietVerwerkt>..#MaxDagenNietVerwerkt:" DagenNietVerwerkt : "_DagenNietVerwerkt, 1:"")_$$$CRLF
-		}
+		Set TabelArray($Increment(cntRows))=$$LCVTSimple^vhLib( $LB(TBXOrder.OrderNrGet(), TBXOrder.KLNummer, TBXOrder.KLNaam, " " , ..BerekenDagenNietVerwerkt(+SubmitTS,+RefDatum), $$FormatDateTime^vhLib("dd-mm-yyyy hh:nn:ss",SubmitTS), "", TBXOrder.WebDomain) ,$$$TAB)
 	}
 	
 	If cntRows>0 {
@@ -144,6 +129,7 @@
 </Method>
 
 <Method name="GeefNietVerwerkteOrderIds">
+<FormalSpec>RefDatum:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
@@ -176,8 +162,31 @@
 	Set Lijst2=..GeefLijstOrderIDs(SQLQuery,lbSQLParams)
 
 	Set Lijst=##Class(TECH.ListUtils).CopyListOfObjects(Lijst2,Lijst)
+
+	Set ResultLijst = ##class(%ListOfDataTypes).%New()
+	Set itIDs=##class(TECH.ListIterator).%New(Lijst)
+	While itIDs.HasNext() {
+		Set ID=itIDs.Next()
+		Set TBXOrder=##class(WS.TBX.Order).%OpenId(ID)
+		
+		Set SubmitTS=TBXOrder.GeefLaatsteSubmitTS()
+		If (SubmitTS="")&&(TBXOrder.BonType="INKP") {
+			// dit order komt niet in aanmerking voor deze controle :
+			// want is niet verzonden via de normale OrderHandler-applicatie (van de handel to Van Hoecke), maar is wel geïmporteerd door een VH-medewerker. 
+			// dit is mogelijk als de handel deze EDI-nr doorgeeft via fax, telefoon of e-mail.
+		}
+		Else {
+			If (SubmitTS'?1(5N1","1.5N,5N)) $$$ThrowError($$$errGeneralError,"Ongeldige datum gespecifieerd (moet $H-formaat zijn)")
+			
+			Set DagenNietVerwerkt=..BerekenDagenNietVerwerkt(+SubmitTS, +RefDatum)
+			If DagenNietVerwerkt>..#MaxDagenNietVerwerkt {
+				Do ResultLijst.Insert(ID)
+			}
+			 ;Write ID_" SubmittedOn "_$$FormatDateTime^vhLib("dd-mm-yyyy hh:nn:ss",SubmitTS)_" "_TBXOrder.WebDomain_" "_$S(DagenNietVerwerkt>..#MaxDagenNietVerwerkt:" DagenNietVerwerkt : "_DagenNietVerwerkt, 1:"")_$$$CRLF
+		}
+	}
 	
-	Quit Lijst
+	Quit ResultLijst
 ]]></Implementation>
 </Method>