Index: EWBON.mac.rou
===================================================================
diff -u -r3040 -r3083
--- EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 3040)
+++ EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 3083)
@@ -162,7 +162,7 @@
  ;Do REMLINE^EWORDST(CONSNr,ORDNr,OLUNr)
  Do ADDRES(CONSNr,ORDNr,OLUNr)
  Do KWNODE^FLOWORD(KLNr,ORDNr,OLNr)
- Do:OrdAant'<0 ProductLijnOpBon^EWORDS2(ORDNr,OLUNr,CONSNr)
+ Do:OrdAant>0 ProductLijnOpBon^EWORDS2(ORDNr,OLUNr,CONSNr)
  Kill ^KOD(KLNr,"F",ORDNr,OLNr)
  ; Copieren van tekst- en manuele lijnen na een productlijn
  For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr=""  Do  Quit:PRNr