Index: MRPRES.mac.rou
===================================================================
diff -u -r64071 -r67549
--- MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 64071)
+++ MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 67549)
@@ -506,7 +506,7 @@
  . If $D(QtyRcp) && $D(^PRBS("BS",PRNr,HFCode)) Do
  .. Set QtyHFRcp=QtyRcp*$P(^PRBS("BS",PRNr,HFCode),D,2)
  .. Do DELHF(FabKey,HFCode,.Status,$G(NoResDel),QtyHFRcp) ; Gedeelte reservatie verwijderen
- . Else  Do DELHF(FabKey,HFCode,.Status,$G(NoResDel)) ; Bestaande reservatie verwijderen
+ . Else  Do DELHF(FabKey,HFCode,.Status,$G(NoResDel),$G(QtyRcp,1)) ; Bestaande reservatie verwijderen
  Quit
  
 DELHF(FabKey,HFCode,Status,NoResDel,QtyHFRcp)