Index: MRPSTOCK.mac.rou =================================================================== diff -u -r48084 -r48146 --- MRPSTOCK.mac.rou (.../MRPSTOCK.mac.rou) (revision 48084) +++ MRPSTOCK.mac.rou (.../MRPSTOCK.mac.rou) (revision 48146) @@ -306,7 +306,9 @@ If TimeOut Lock +^PRSTOCK("D",PRNr):TimeOut Else Quit 0 Else Lock +^PRSTOCK("D",PRNr) Set $P(^PRSTOCK("D",PRNr),D,Piece)=$S($G(IsSet):0,1:$P($G(^PRSTOCK("D",PRNr)),D,Piece))+QtyWV - D ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PRNr) + If ((Piece = 1) || (Piece = 5)){ + Do ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PRNr) + } Lock -^PRSTOCK("D",PRNr) Quit:TimeOut 1 Quit