Index: Res/VertalingAbstract.cls.xml
===================================================================
diff -u -r5486 -r10306
--- Res/VertalingAbstract.cls.xml	(.../VertalingAbstract.cls.xml)	(revision 5486)
+++ Res/VertalingAbstract.cls.xml	(.../VertalingAbstract.cls.xml)	(revision 10306)
@@ -180,6 +180,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="%OnAfterSave">
+<FormalSpec>insert:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set EventData = ##class(Res.event.VertalingEventData).%New(..GroepGetObjectId())
+	If (insert)
+	{
+		Set Event = ##class(Res.event.VertalingAangemaaktEvent).%New(EventData)
+	}
+	Else
+	{
+		Set Event = ##class(Res.event.VertalingGewijzigdEvent).%New(EventData)
+	}
+	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^Res.VertalingAbstractD</DataLocation>