Index: KPR10.mac.rou
===================================================================
diff -u -r48153 -r48157
--- KPR10.mac.rou	(.../KPR10.mac.rou)	(revision 48153)
+++ KPR10.mac.rou	(.../KPR10.mac.rou)	(revision 48157)
@@ -41,9 +41,9 @@
  Set WaardeVoor = $P(R,D,5)
  S R=$G(^PRSTOCK("D",PR)),$P(R,D,5)=$P(R,D,5)+$S($E(R1,9)#2:R2,1:-R2),^PRSTOCK("D",PR)=R
  Set WaardeNa = $P(R,D,5)
- D:'WaardeVoor=WaadeNa ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PR)
+ D:'WaardeVoor=WaardeNa ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PR)
  Lock -^PRSTOCK("D",PR)
- K R,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,RA,RB,RD,RE,RF,RG,RP,RT,RW,RX
+ K R,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,RA,RB,RD,RE,RF,RG,RP,RT,RW,RX,WaardeVoor,WaardeNa
  Q
  
 Werkvloer(PRNr,Delta)