Index: EWORDS6.mac.rou
===================================================================
diff -u -r66095 -r67493
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 66095)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 67493)
@@ -218,44 +218,48 @@
  New
  Set Q="K",D="\",U=";",QU(1)=0
  If $$AutoSendIsActief() {
-	 Lock +^ORDW("AUTO"):30
-	 Quit:'$T
-	 ; Sorteren volgens tijstip en klant
-	 Set ORDNr=""
-	 For {
-		 Set ORDNr=$O(^ORDW("AUTO",ORDNr))
-		 Quit:ORDNr=""
-		 Set KLNr=$P($G(^KO1(ORDNr,"F")),"\")
-		 If 'KLNr Kill ^ORDW("AUTO",ORDNr) Continue
-		 Set KlKey=^KK1(KLNr)
-		 If '$D(^KOD(KLNr,"F",ORDNr)) Kill ^ORDW("AUTO",ORDNr)
-		 If '##class(BL.Legacy.EWORDS6).CheckAutoSend(ORDNr) Kill ^ORDW("AUTO",ORDNr)
-		 Continue:'$D(^ORDW("AUTO",ORDNr))  ; Het order is ondertussen reeds doorgestuurd
-		 Set Aangemaakt=^ORDW("AUTO",ORDNr),AanmaakDatum=$P(Aangemaakt,","),AanmaakTijdstip=$P(Aangemaakt,",",2)
-		 Set:$$DIFFTIME^vhLib.DataTypes(Aangemaakt,$H)>0 ORDNrs(AanmaakDatum,AanmaakTijdstip,KlKey,ORDNr)=""
-	 }
-	 Set AanmaakDatum=""
-	 For {
-		 Set AanmaakDatum=$O(ORDNrs(AanmaakDatum))
-		 Quit:AanmaakDatum=""
-		 Set AanmaakTijdstip=""
-		 For {
-			 Set AanmaakTijdstip=$O(ORDNrs(AanmaakDatum,AanmaakTijdstip))
-			 Quit:AanmaakTijdstip=""
-			 Set KlKey=""
-			 For  {
-				 Set KlKey=$O(ORDNrs(AanmaakDatum,AanmaakTijdstip,KlKey))
-				 Quit:KlKey=""
-				 Set ORDNr=""
-				 For {
-					 Set ORDNr=$O(ORDNrs(AanmaakDatum,AanmaakTijdstip,KlKey,ORDNr))
-					 Quit:ORDNr=""
-					 Continue:'$D(^ORDW("AUTO",ORDNr)) ; Het order is samen met andere orders gecumuleerd verwerkt
-					 Do SendWMS(ORDNr)
-				 }
-			 }
-		 }
-	 }
+	Lock +^ORDW("AUTO"):30
+	Quit:'$T
+	; Sorteren volgens tijstip en klant
+	Set ORDNr=""
+	For {
+		Set ORDNr=$O(^ORDW("AUTO",ORDNr))
+		Quit:ORDNr=""
+		Set KLNr=$P($G(^KO1(ORDNr,"F")),"\")
+		If 'KLNr Kill ^ORDW("AUTO",ORDNr) Continue
+		Set KlKey=^KK1(KLNr)
+		If '$D(^KOD(KLNr,"F",ORDNr)) Kill ^ORDW("AUTO",ORDNr)
+		If '##class(BL.Legacy.EWORDS6).CheckAutoSend(ORDNr) Kill ^ORDW("AUTO",ORDNr)
+		Continue:'$D(^ORDW("AUTO",ORDNr))  ; Het order is ondertussen reeds doorgestuurd
+		Set Aangemaakt=^ORDW("AUTO",ORDNr),AanmaakDatum=$P(Aangemaakt,","),AanmaakTijdstip=$P(Aangemaakt,",",2)
+		Set:$$DIFFTIME^vhLib.DataTypes(Aangemaakt,$H)>0 ORDNrs(AanmaakDatum,AanmaakTijdstip,KlKey,ORDNr)=""
+	}
+	Set AanmaakDatum=""
+	For {
+		Set AanmaakDatum=$O(ORDNrs(AanmaakDatum))
+		Quit:AanmaakDatum=""
+		Set AanmaakTijdstip=""
+		For {
+			Set AanmaakTijdstip=$O(ORDNrs(AanmaakDatum,AanmaakTijdstip))
+			Quit:AanmaakTijdstip=""
+			Set KlKey=""
+			For {
+				Set KlKey=$O(ORDNrs(AanmaakDatum,AanmaakTijdstip,KlKey))
+				Quit:KlKey=""
+				Set ORDNr=""
+				For {
+					Set ORDNr=$O(ORDNrs(AanmaakDatum,AanmaakTijdstip,KlKey,ORDNr))
+					Quit:ORDNr=""
+					Continue:'$D(^ORDW("AUTO",ORDNr)) ; Het order is samen met andere orders gecumuleerd verwerkt
+					If ( ##class(BL.Legacy.EWORDS6).CheckAutoSend(ORDNr)) { ; Een vorig order kan met de stock gaan lopen zijn.
+						Do SendWMS(ORDNr)
+					} Else {
+						K ^ORDW("AUTO",ORDNr)
+					}
+				}
+			}
+		}
+	}
  }
  Quit