Index: EWBON.mac.rou =================================================================== diff -u -r2952 -r2992 --- EWBON.mac.rou (.../EWBON.mac.rou) (revision 2952) +++ EWBON.mac.rou (.../EWBON.mac.rou) (revision 2992) @@ -162,7 +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) + Do 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