Index: DOM/PM/impl/ProductKenmerkenSet.cls.xml =================================================================== diff -u -r54588 -r63402 --- DOM/PM/impl/ProductKenmerkenSet.cls.xml (.../ProductKenmerkenSet.cls.xml) (revision 54588) +++ DOM/PM/impl/ProductKenmerkenSet.cls.xml (.../ProductKenmerkenSet.cls.xml) (revision 63402) @@ -158,6 +158,17 @@ Do Kenmerk.Save(InstanceVersion) Set Wijziging = ##class(TECH.Events.KenmerkModifiedEventData).%New(..UnID,..KenmerkGroep,KenmerkNaam,Waarden) } + + If ($Piece(..KenmerkGroep,"_",2) = "PPS") { + If ($Piece(..KenmerkGroep,"_",1) = "MVX") { + Set PPSKenmerkEventData = ##class(TECH.Events.PPSKenmerkGemaaktEventData).%New() + Set PPSKenmerkEventData.PPSKenmerk = Kenmerk + Set PPSKenmerkEvent = ##class(TECH.Events.PPSKenmerkGemaaktEvent).%New(PPSKenmerkEventData) + + Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(PPSKenmerkEvent) + } + } + } Else { /// Is nieuwe DataDefinitie voor dit object. Set ErrorMsg = "Kenmerk "_..KenmerkGroep_"||"_KenmerkNaam_" voor UnID "_..UnID_" is niet gevonden."