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
+
+
+
+
+