Index: APPS/TBXWeb/OrderChecker.cls.xml
===================================================================
diff -u -r90 -r168
--- APPS/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 90)
+++ APPS/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 168)
@@ -44,6 +44,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ToonNietVerwerkteOrders">
+<Implementation><![CDATA[
+	Set Now=+$H
+	Kill TabelArray
+	
+	Set LijstNietVerwerkteOrders=..GeefLijstNietVerwerkteOrders()
+	Do ..MaakTabelNietVerwerkteOrders(LijstNietVerwerkteOrders, Now, .TabelArray)
+	
+	Set TabelStream=$$ArrayToHTMLTable^vhLib(.TabelArray)
+	Write TabelStream.Read(32000),!!!
+]]></Implementation>
+</Method>
+
 <Method name="SendMailFromArray">
 <Description>
 TabelArray als .local doorgeven </Description>
@@ -90,13 +103,20 @@
 		Set TBXOrder=##class(WS.TBX.Order).%OpenId(ID)
 		
 		Set SubmitTS=TBXOrder.GeefLaatsteSubmitTS()
-		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)
+		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.
 		}
-		 ;Write ID_" SubmittedOn "_$$FormatDateTime^vhLib("dd-mm-yyyy hh:nn:ss",SubmitTS)_" "_TBXOrder.WebDomain_" "_$S(DagenNietVerwerkt>..#MaxDagenNietVerwerkt:" DagenNietVerwerkt : "_DagenNietVerwerkt, 1:"")_$$$CRLF
+		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
+		}
 	}
 	
 	If cntRows>0 {