Index: EWORDS2.mac.rou
===================================================================
diff -u -r29059 -r61747
--- EWORDS2.mac.rou	(.../EWORDS2.mac.rou)	(revision 29059)
+++ EWORDS2.mac.rou	(.../EWORDS2.mac.rou)	(revision 61747)
@@ -24,6 +24,7 @@
  Set (OLCnt,AutoCons,CredCnt)=0
  For  Set ORDNr=$O(@MarkRef@("A",ORDNr)) Quit:ORDNr=""  Do
  .Lock +^KOD(KLNr,"F",ORDNr)
+ .Quit:$$ReedsDoorgestuurdOrderlijnen(CONSNr,.MarkRef)
  .Kill ^ORDW("AUTO",ORDNr)
  .For  Set OLUNr=$O(@MarkRef@("A",ORDNr,OLUNr)) Quit:OLUNr=""  Do
  ..Set OLNr=^ORD("IU",ORDNr,OLUNr)
@@ -58,6 +59,17 @@
  If Status'=1 Do WARN^vhTXTPOP($$ParseStatus^vhLib(Status),"Fout bij invullen bakken voor aventosproducten")
  Lock -^ORDW("D",CONSNr)
  Quit
+
+/// Geeft True (1) als er minstens 1 van de voor picking gemarkeerde lijnen reeds doorgestuurd was voor picking, en wel in een andere consolidatie/picking.
+ReedsDoorgestuurdOrderlijnen(BehalveCONSNr, MarkRef)
+ New ORDNr,OLUNr,ReedsDoorgestuurd
+ Set (ORDNr,OLUNr)=""
+ Set ReedsDoorgestuurd=0
+ For  Set ORDNr=$O(@MarkRef@("A",ORDNr)) Quit:ORDNr=""  Do
+ .For  Set OLUNr=$O(@MarkRef@("A",ORDNr,OLUNr)) Quit:OLUNr=""  Do
+ ..Set:($G(^ORDW("IO",ORDNr,OLUNr),BehalveCONSNr)'=BehalveCONSNr) ReedsDoorgestuurd=1
+ Quit ReedsDoorgestuurd
+
  
 BLDAOL(KLNr,CONSNr,ORDNr,OLUNr,Qty) 
  ; Terugnames, zonder WMS en manueel krijgen onmiddellijk status afgewerkt.