Index: APPS/TBXWeb/OrderChecker.cls.xml
===================================================================
diff -u -r830 -r836
--- APPS/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 830)
+++ APPS/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 836)
@@ -29,12 +29,12 @@
 	Set Now=+$H
 	Kill TabelArray
 	
-	Set LijstNietVerwerkteOrders=..GeefLijstNietVerwerkteOrders()
+	Set NietVerwerkteOrderIds=..GeefNietVerwerkteOrderIds(Now)
 	
-	Do ..MaakTabelNietVerwerkteOrders(LijstNietVerwerkteOrders, Now, .TabelArray)
+	Do ..MaakTabelNietVerwerkteOrders(NietVerwerkteOrderIds, Now, .TabelArray)
 	
 	If $D(TabelArray) {
-		Set sc=..SendMailFromArray(.TabelArray, LijstNietVerwerkteOrders)
+		Set sc=..SendMailFromArray(.TabelArray, NietVerwerkteOrderIds)
 	}
 	Else {
 		Set sc=$$$OK
@@ -49,8 +49,8 @@
 	Set Now=+$H
 	Kill TabelArray
 	
-	Set LijstNietVerwerkteOrders=..GeefLijstNietVerwerkteOrders()
-	Do ..MaakTabelNietVerwerkteOrders(LijstNietVerwerkteOrders, Now, .TabelArray)
+	Set NietVerwerkteOrderIds=..GeefNietVerwerkteOrderIds(Now)
+	Do ..MaakTabelNietVerwerkteOrders(NietVerwerkteOrderIds, Now, .TabelArray)
 	
 	Set TabelStream=$$ArrayToHTMLTable^vhLib(.TabelArray)
 	Write TabelStream.Read(32000),!!!
@@ -60,7 +60,7 @@
 <Method name="SendMailFromArray">
 <Description>
 TabelArray als .local doorgeven </Description>
-<FormalSpec>TabelArray:%String,LijstNietVerwerkteOrders:%ListOfDataTypes</FormalSpec>
+<FormalSpec>TabelArray:%String,NietVerwerkteOrderIds:%ListOfDataTypes</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
@@ -86,10 +86,10 @@
 	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)
+	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>")
@@ -102,30 +102,15 @@
 <Method name="MaakTabelNietVerwerkteOrders">
 <Description>
 TabelArray als .local doorgeven </Description>
-<FormalSpec><![CDATA[LijstNietVerwerkteOrders:%ListOfDataTypes,RefDatum:%String,&TabelArray:%String]]></FormalSpec>
+<FormalSpec><![CDATA[NietVerwerkteOrderIds:%ListOfDataTypes,RefDatum:%String,&TabelArray:%String]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set cntRows=0
-	Set itIDs=##class(TECH.ListIterator).%New(LijstNietVerwerkteOrders)
+	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 {
@@ -143,7 +128,8 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLijstNietVerwerkteOrders">
+<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>