Index: DOM/PM/impl/ProductKenmerkenSet.cls.xml =================================================================== diff -u -r63402 -r63423 --- DOM/PM/impl/ProductKenmerkenSet.cls.xml (.../ProductKenmerkenSet.cls.xml) (revision 63402) +++ DOM/PM/impl/ProductKenmerkenSet.cls.xml (.../ProductKenmerkenSet.cls.xml) (revision 63423) @@ -141,6 +141,23 @@ Set ErrorMsg = "Prod.Kenmerk.DataDefinitie is niet correct verlopen. Kenmerk is niet aangemaakt voor "_..KenmerkGroep_"||"_..UnID_"||"_KenmerkNaam_". "_$$ParseStatus^vhLib(sc) } Else { 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 PPSKenmerk = ##class(Prod.Kenmerk.DataDefinitie).%New() + + Set PPSKenmerk.KenmerkNaam = KenmerkNaam + Set PPSKenmerk.Waarden = Waarden + Set PPSKenmerk.KenmerkGroep = ..KenmerkGroep + Set PPSKenmerk.PRNr = ..UnID + + Set PPSKenmerkEventData.PPSKenmerk = PPSKenmerk + Set PPSKenmerkEvent = ##class(TECH.Events.PPSKenmerkGemaaktEvent).%New(PPSKenmerkEventData) + + Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(PPSKenmerkEvent) + } + } } } Else { #dim Kenmerk As Prod.Kenmerk.DataDefinitie = ##class(Prod.Kenmerk.DataDefinitie).OpenId(Identifier) @@ -163,6 +180,7 @@ If ($Piece(..KenmerkGroep,"_",1) = "MVX") { Set PPSKenmerkEventData = ##class(TECH.Events.PPSKenmerkGemaaktEventData).%New() Set PPSKenmerkEventData.PPSKenmerk = Kenmerk + Set PPSKenmerkEventData.PPSKenmerk.Waarden = Waarden Set PPSKenmerkEvent = ##class(TECH.Events.PPSKenmerkGemaaktEvent).%New(PPSKenmerkEventData) Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(PPSKenmerkEvent)