Index: FLOWORD3.mac.rou
===================================================================
diff -u -r29059 -r50914
--- FLOWORD3.mac.rou	(.../FLOWORD3.mac.rou)	(revision 29059)
+++ FLOWORD3.mac.rou	(.../FLOWORD3.mac.rou)	(revision 50914)
@@ -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)") Quit:%TC  Do LDISP^vhLock("^KPR(PRNr)","Produkt "_$P(^KPR(PRNr,0),D))
+ .For  Do ADD^vhLock("^KPR(PRNr)",,,,,1) 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)")
@@ -379,4 +379,3 @@
  Quit ^ORD("IU",ORDNr,OLUNr)
  ;
 
-
Index: vhLock.mac.rou
===================================================================
diff -u -r50188 -r50914
--- vhLock.mac.rou	(.../vhLock.mac.rou)	(revision 50188)
+++ vhLock.mac.rou	(.../vhLock.mac.rou)	(revision 50914)
@@ -106,11 +106,10 @@
  }
  Quit Info
 	
-
-ADD(T1,T2,T3,T4,T5) 
+ADD(T1,T2,T3,T4,T5,T6=0) 
  New J,N,Y
  Set %TC=1
- For J=1:1:5 Quit:$G(@("T"_J))=""  S Y="Lock +"_@("T"_J)_":0" x Y Quit:'$T 
+ For J=1:1:5 Quit:$G(@("T"_J))=""  S Y="Lock +"_@("T"_J)_":"_T6 x Y Quit:'$T 
  Quit:$T
  For J=1:1:J-1 Lock -@("T"_J)
  Set %TC=0
@@ -168,4 +167,3 @@
  ;
  
 
-