Index: vhDeploy/D20210108xInitieleSyncMVXPPSKenmerken.cls.xml =================================================================== diff -u --- vhDeploy/D20210108xInitieleSyncMVXPPSKenmerken.cls.xml (revision 0) +++ vhDeploy/D20210108xInitieleSyncMVXPPSKenmerken.cls.xml (revision 63402) @@ -0,0 +1,40 @@ + + + +vhDeploy.Deploy + + +%String +Initiele Sync MVX PPS Kenmerken + + + +1 + + + + +1 + + + + + + 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." FishEye: Tag 63360 refers to a dead (removed) revision in file `Prod/Kenmerk/impl/DataDefinitieRepository.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: Prod/Kenmerk/DataDefinitieRepository.cls.xml =================================================================== diff -u --- Prod/Kenmerk/DataDefinitieRepository.cls.xml (revision 0) +++ Prod/Kenmerk/DataDefinitieRepository.cls.xml (revision 63402) @@ -0,0 +1,13 @@ + + + +1 +TECH.Interface + + +TECH.Iterator + + + + +