Index: Res/event/VertalingAangemaaktEvent.cls.xml
===================================================================
diff -u
--- Res/event/VertalingAangemaaktEvent.cls.xml	(revision 0)
+++ Res/event/VertalingAangemaaktEvent.cls.xml	(revision 10306)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="Res.event.VertalingAangemaaktEvent">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.Event</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>Data:Res.event.VertalingEventData</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Type = "VertalingAangemaaktEvent"
+ 	Quit ##super(Data)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+</Storage>
+</Class>
+</Export>
Index: Res/event/VertalingEventData.cls.xml
===================================================================
diff -u
--- Res/event/VertalingEventData.cls.xml	(revision 0)
+++ Res/event/VertalingEventData.cls.xml	(revision 10306)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="Res.event.VertalingEventData">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.EventData</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="GroepID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>GroepID:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..GroepID = GroepID
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefGroepID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GroepID
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>VertalingEventDataState</State>
+<Data name="VertalingEventDataState">
+<Structure>listnode</Structure>
+<Subscript>"Res.event.VertalingEventData"</Subscript>
+<Value name="1">
+<Value>GroepID</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: Res/event/VertalingGewijzigdEvent.cls.xml
===================================================================
diff -u
--- Res/event/VertalingGewijzigdEvent.cls.xml	(revision 0)
+++ Res/event/VertalingGewijzigdEvent.cls.xml	(revision 10306)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="Res.event.VertalingGewijzigdEvent">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.Event</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>Data:Res.event.VertalingEventData</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Type = "VertalingGewijzigdEvent"
+ 	Quit ##super(Data)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+</Storage>
+</Class>
+</Export>
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>