Index: APPS/PM/KenmMWFPlugin.cls.xml =================================================================== diff -u -r29059 -r62549 --- APPS/PM/KenmMWFPlugin.cls.xml (.../KenmMWFPlugin.cls.xml) (revision 29059) +++ APPS/PM/KenmMWFPlugin.cls.xml (.../KenmMWFPlugin.cls.xml) (revision 62549) @@ -159,13 +159,18 @@ // Als we hier niet op zouden testen zou er bij geen kenmerk waarden een leeg object worden opgeslagen If (HeeftEenHalffabGemaakt) { + Set EventData = ##class(TECH.Events.HalffabsGemaaktEventData).%New() Set HalffabIterator = ##class(TECH.ListIterator).%New(HalffabObjecten) While (HalffabIterator.HasNext()) { Set Halffab = HalffabIterator.Next() Set Halffab.GemaaktVoorKenmerkenSetID = UnID Do Halffab.Save() + Do EventData.Halffabs.Insert(Halffab) } + Set Event = ##class(TECH.Events.HalffabsGemaaktEvent).%New(EventData) + Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event) + } Lock -^HalffabSelectie(SQLTableName) }