Index: EWORDST.mac.rou
===================================================================
diff -u -r3040 -r3083
--- EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 3040)
+++ EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 3083)
@@ -569,7 +569,7 @@
  If $P(^ORDW("D",CONSNr,"D",ORDNr,OLUNr),D,2)'="B" Do
  .Set KLNr=$P(^ORDW("D",CONSNr),D,1)
  .Set OLNr=^ORD("IU",ORDNr,OLUNr),R=^KOD(KLNr,"F",ORDNr,OLNr),OrdAant=$P(R,D,3)
- .Do:OrdAant'<0 PickingAnnulatie^EWORDS2(ORDNr,OLUNr,CONSNr)
+ .Do:OrdAant>0 PickingAnnulatie^EWORDS2(ORDNr,OLUNr,CONSNr)
  .Set StockUpd=$P(R,D,14)'["S" Set:StockUpd StockUpd=$P(R,D,14)'["Z"
  .If $P(R,D,2),'$$MAGHANDEL^PRODUKT2($P(R,D,2)) Set StockUpd=0
  .Quit:'StockUpd