Index: EWORDS2.mac.rou
===================================================================
diff -u -r2992 -r3040
--- EWORDS2.mac.rou	(.../EWORDS2.mac.rou)	(revision 2992)
+++ EWORDS2.mac.rou	(.../EWORDS2.mac.rou)	(revision 3040)
@@ -41,7 +41,7 @@
  ...Set AutoCons=AutoCons+1 Set:Qty<0 CredCnt=CredCnt+1
  ..Else  Do  ; Doorgeven aan WMS
  ...Do BLDOL(KLNr,CONSNr,ORDNr,OLUNr,Qty,BOQty,BOLwk)
- ..Do WachtendOpPicking(ORDNr,OLUNr,CONSNr)
+ ..Do:Qty'<0 WachtendOpPicking(ORDNr,OLUNr,CONSNr)
  .Lock -^KOD(KLNr,"F",ORDNr)
  Set $P(^ORDW("D",CONSNr),D,6)=$S(CredCnt=OLCnt:"C",CredCnt:"G",1:"F")
  Set $P(^ORDW("D",CONSNr),D,25)=$G(QU(1))  ; opslaan wie bon effectief heeft doorgestuurd