Index: MRPSTOCK.mac.rou
===================================================================
diff -u -r48151 -r48173
--- MRPSTOCK.mac.rou	(.../MRPSTOCK.mac.rou)	(revision 48151)
+++ MRPSTOCK.mac.rou	(.../MRPSTOCK.mac.rou)	(revision 48173)
@@ -306,9 +306,9 @@
  If TimeOut Lock +^PRSTOCK("D",PRNr):TimeOut Else  Quit 0
  Else  Lock +^PRSTOCK("D",PRNr)
  New WaardeVoor, WaardeNa
- Set WaardeVoor = $P(^PRSTOCK("D",PRNr),D,Piece)
+ Set WaardeVoor=$P($G(^PRSTOCK("D",PRNr)),D,Piece)
  Set $P(^PRSTOCK("D",PRNr),D,Piece)=$S($G(IsSet):0,1:$P($G(^PRSTOCK("D",PRNr)),D,Piece))+QtyWV
- Set WaardeNa = $P(^PRSTOCK("D",PRNr),D,Piece)
+ Set WaardeNa=$P($G(^PRSTOCK("D",PRNr)),D,Piece)
  If (('(WaardeVoor = WaardeNa)) && ((Piece = 1) || (Piece = 5))){
  	Do ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PRNr)
  }
Index: KPR10.mac.rou
===================================================================
diff -u -r48157 -r48173
--- KPR10.mac.rou	(.../KPR10.mac.rou)	(revision 48157)
+++ KPR10.mac.rou	(.../KPR10.mac.rou)	(revision 48173)
@@ -38,10 +38,8 @@
 WVC S @%Q1=0 F R=0:1:RT X RX(R)
  Lock +^PRSTOCK("D",PR)
  New WaardeVoor, WaardeNa
- 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=WaardeNa ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PR)
+ S R=$G(^PRSTOCK("D",PR)),WaardeVoor=$P(R,D,5),$P(R,D,5)=$P(R,D,5)+$S($E(R1,9)#2:R2,1:-R2),^PRSTOCK("D",PR)=R,WaardeNa=$P(R,D,5)
+ 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,WaardeVoor,WaardeNa
  Q