Index: MRPRES.mac.rou
===================================================================
diff -u -r46903 -r48084
--- MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 46903)
+++ MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 48084)
@@ -440,6 +440,7 @@
  If QtyWVRes>0 Do
  .Do MODWVRES^MRPSTOCK(HFPRNr,QtyWVRes)
  Do SETHFAR(FabKey,HFCode,HFPRNr,HFStatus,QtyRes,QtyWVRes,QtyReq,QtyWVReq)
+ D ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(HFPRNr)
  Lock -^PRSTOCK(HFPRNr)
  Set:QtyHF QtyRes=QtyRes\QtyHF ; aantal eindproducten
  
@@ -513,4 +514,3 @@
  . Set ^HADPR("F",FabKey,"AR",HFCode)=HFRec
  Quit
 
-
Index: Prod/Product/StockWijziging.mac.rou
===================================================================
diff -u -r29059 -r48084
--- Prod/Product/StockWijziging.mac.rou	(.../StockWijziging.mac.rou)	(revision 29059)
+++ Prod/Product/StockWijziging.mac.rou	(.../StockWijziging.mac.rou)	(revision 48084)
@@ -63,6 +63,7 @@
  ; Aanpassen Fysische stock in ^PRSTOCK
  Lock +^PRSTOCK("D",PRNr)
  S R=$G(^PRSTOCK("D",PRNr)),$P(R,D)=$P(R,D)-OorspronkelijkAantal,^PRSTOCK("D",PRNr)=R
+ D ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PRNr)
  Lock -^PRSTOCK("D",PRNr)
  Do UitVerkoop^PRODUKT5(PRNr)
  K R Q
@@ -120,6 +121,7 @@
  ; Aanpassen Fysische stock in ^PRSTOCK
  Lock +^PRSTOCK("D",PRNr)
  S R=$G(^PRSTOCK("D",PRNr)),$P(R,D)=$P(R,D)+Aantal,^PRSTOCK("D",PRNr)=R
+ D ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PRNr)
  Lock -^PRSTOCK("D",PRNr)
  K R Q
 
@@ -155,5 +157,6 @@
  New Rec
  Lock +^PRSTOCK("D",PRNr)
  S Rec=$G(^PRSTOCK("D",PRNr)),$P(Rec,"\",5)=$P(Rec,"\",5)+Delta,^PRSTOCK("D",PRNr)=Rec
+ D ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PRNr)
  Lock -^PRSTOCK("D",PRNr)
  Quit
Index: MRPSTOCK.mac.rou
===================================================================
diff -u -r29059 -r48084
--- MRPSTOCK.mac.rou	(.../MRPSTOCK.mac.rou)	(revision 29059)
+++ MRPSTOCK.mac.rou	(.../MRPSTOCK.mac.rou)	(revision 48084)
@@ -306,6 +306,7 @@
  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)
  Lock -^PRSTOCK("D",PRNr)
  Quit:TimeOut 1
  Quit
Index: KPR20.mac.rou
===================================================================
diff -u -r29059 -r48084
--- KPR20.mac.rou	(.../KPR20.mac.rou)	(revision 29059)
+++ KPR20.mac.rou	(.../KPR20.mac.rou)	(revision 48084)
@@ -17,6 +17,7 @@
 R20L S @%Q1=0 F R=0:1:RT X RX(R)
  Lock +^PRSTOCK("D",PR)
  S R=$G(^PRSTOCK("D",PR)),$P(R,D)=$P(R,D)+R2,^PRSTOCK("D",PR)=R
+ D ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PR)
  Lock -^PRSTOCK("D",PR)
 R20Z K R,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R12,RA,RB,RC,RF,RP,RW,RX,RT Q  ;V3 08.07.85
  ;
Index: KPR10.mac.rou
===================================================================
diff -u -r29059 -r48084
--- KPR10.mac.rou	(.../KPR10.mac.rou)	(revision 29059)
+++ KPR10.mac.rou	(.../KPR10.mac.rou)	(revision 48084)
@@ -20,6 +20,7 @@
 R10O S @%Q1=0 F R=0:1:RT X RX(R)
  Lock +^PRSTOCK("D",PR)
  S R=$G(^PRSTOCK("D",PR)),$P(R,D)=$P(R,D)-R2X,^PRSTOCK("D",PR)=R
+ D ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PR)
  Lock -^PRSTOCK("D",PR)
  Do UitVerkoop^PRODUKT5(PR)
 R10Z K R,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,RA,RB,RC,RD,RE,RF,RG,RP,RT,RW,R2X,RX Q  ;V3 08.07.85
@@ -37,13 +38,15 @@
 WVC S @%Q1=0 F R=0:1:RT X RX(R)
  Lock +^PRSTOCK("D",PR)
  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
+ D ##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
  Q
  
 Werkvloer(PRNr,Delta)
  Lock +^PRSTOCK("D",PRNr)
  S Rec=$G(^PRSTOCK("D",PRNr)),$P(Rec,"\",5)=$P(Rec,"\",5)+Delta,^PRSTOCK("D",PRNr)=Rec
+ D ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PRNr)
  Lock -^PRSTOCK("D",PRNr)
  Quit