Index: PVULTOER.mac.rou
===================================================================
diff -u -r37152 -r59901
--- PVULTOER.mac.rou	(.../PVULTOER.mac.rou)	(revision 37152)
+++ PVULTOER.mac.rou	(.../PVULTOER.mac.rou)	(revision 59901)
@@ -5,11 +5,12 @@
  	Do ##Class(BL.Flow.Cons.TransportFlow).AddLevering(ULNr)
 	Do REMOVE^vhLock("^KUL(KLNr,""F"",ULNr)")
  }
- Else { 
- 	Set KlantInd=^KK1(KLNr),Taal=$P(^KKL(KlantInd,0),D,9) If Taal="" Set Taal="N"
- 	Do EDIT^vhScherm("ULTOERED")
- 	Set Refetch=0
- 	If $D(^HULP(%J,"D",ULTOER(6))) Set Refetch=ULNr'=$P(^HULP(%J,"D",ULTOER(6)),D)
+ Else {
+	Set BONNr=ULNr,Refetch=0
+ 	If $D(^HULP(%J,"D",ULTOER(6))) Set Refetch=BONNr'=$P(^HULP(%J,"D",ULTOER(6)),D)
+ 	Set DL(2)=ULTOER(3),DL(3)=ULTOER(4)-9+($D(Field)*5) Do PL^PROC Kill DL(2),DL(3)
+ 	If "Z"[$G(Field) Set KlantInd=^KK1(KLNr),Taal=$P(^KKL(KlantInd,0),D,9) If Taal="" Set Taal="N"
+ 	Do EDIT^vhScherm("ULTOERED") 	
 	Do REMOVE^vhLock("^KUL(KLNr,""F"",ULNr)")
  	If %SC Do
  	.If Refetch Do REFETCH^ULTOER Quit