Index: MRPSTOCK.mac.rou
===================================================================
diff -u -r48146 -r48151
--- MRPSTOCK.mac.rou	(.../MRPSTOCK.mac.rou)	(revision 48146)
+++ MRPSTOCK.mac.rou	(.../MRPSTOCK.mac.rou)	(revision 48151)
@@ -305,8 +305,11 @@
  ; indien met timeout dan return = true ls de lock succesvol is
  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 $P(^PRSTOCK("D",PRNr),D,Piece)=$S($G(IsSet):0,1:$P($G(^PRSTOCK("D",PRNr)),D,Piece))+QtyWV
- If ((Piece = 1) || (Piece = 5)){
+ Set WaardeNa = $P(^PRSTOCK("D",PRNr),D,Piece)
+ If (('(WaardeVoor = WaardeNa)) && ((Piece = 1) || (Piece = 5))){
  	Do ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PRNr)
  }
  Lock -^PRSTOCK("D",PRNr)