Index: FLOWORD3.mac.rou
===================================================================
diff -u -r50914 -r51169
--- FLOWORD3.mac.rou	(.../FLOWORD3.mac.rou)	(revision 50914)
+++ FLOWORD3.mac.rou	(.../FLOWORD3.mac.rou)	(revision 51169)
@@ -8,7 +8,7 @@
  For  Do ADD^vhLock("^KOD(KLNr,""F"",ORDNr,OLNr)") Quit:%TC  Do LDISP^vhLock("^KOD(KLNr,""F"",ORDNr,OLNr)","Order "_ORDNr)
  If PRNr Do
  .Do STOREDEL^LEVPERF(ORDNr,OLUNr,"D")
- .For  Do ADD^vhLock("^KPR(PRNr)",,,,,1) Quit:%TC  Do LDISP^vhLock("^KPR(PRNr)","Produkt "_$P(^KPR(PRNr,0),D))
+ .For  Do ADD^vhLock("^KPR(PRNr)",,,,,3) Quit:%TC  Do LDISP^vhLock("^KPR(PRNr)","Produkt "_$P(^KPR(PRNr,0),D))
  .Set TOENr=$P(R,D,27),TLLNr=$P($P(R,D,28),";")
  .Do KWNODE^FLOWORD(KLNr,ORDNr,OLNr)
  .Do REMOVE^vhLock("^KPR(PRNr)")