Index: EWBON.mac.rou
===================================================================
diff -u -r1819 -r2952
--- EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 1819)
+++ EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 2952)
@@ -162,6 +162,7 @@
  ;Do REMLINE^EWORDST(CONSNr,ORDNr,OLUNr)
  Do ADDRES(CONSNr,ORDNr,OLUNr)
  Do KWNODE^FLOWORD(KLNr,ORDNr,OLNr)
+ Do ProductLijnOpBon^FLOWORD2(KLNr,ORDNr,OLNr,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