Index: PRODUKT2.mac.rou =================================================================== diff -u -r4782 -r5401 --- PRODUKT2.mac.rou (.../PRODUKT2.mac.rou) (revision 4782) +++ PRODUKT2.mac.rou (.../PRODUKT2.mac.rou) (revision 5401) @@ -174,6 +174,12 @@ Set EventData = ##class(DOM.PM.event.AdministratiefProductEventData).%New(ProductID) Set Event = ##class(DOM.PM.event.AdministratiefProductVerwijderdEvent).%New(EventData) Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event) + +Gewijzigd(ProductID) + New EventData, Event + Set EventData = ##class(DOM.PM.event.AdministratiefProductEventData).%New(ProductID) + Set Event = ##class(DOM.PM.event.AdministratiefProductGewijzigdEvent).%New(EventData) + Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event) DELETE(PRNr,NoOld) New Key,I,KLNr,Nm,PAKNr,MPRNr,KPRNr @@ -888,3 +894,4 @@ ; +