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