Index: Prod/Kenmerk/DataDefinitie.cls.xml
===================================================================
diff -u -r1224 -r1228
--- Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1224)
+++ Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1228)
@@ -56,6 +56,15 @@
 <Type>Sys.cTimeStamp</Type>
 </Property>
 
+<Property name="IsEventRaiser">
+<Description>
+Indien geen event voor creatie/wijziging/verwijderen gewenst is kan deze vlag worden afgezet.
+Het is dan de verantwoordelijkheid van de applicatie om zelf events te voorzien.</Description>
+<Type>%Boolean</Type>
+<InitialExpression>1</InitialExpression>
+<Transient>1</Transient>
+</Property>
+
 <Index name="PrimaryKey">
 <IdKey>1</IdKey>
 <PrimaryKey>1</PrimaryKey>
@@ -132,7 +141,12 @@
 #define Groep 	$P($LG(Oid,1),"||",2)
 #define Kenm 	$P($LG(Oid,1),"||",3)
 
+ Set EventData = ##class(TECH.Events.KenmerkDeletedEventData).%New($$$UnID,$$$Groep,$$$Kenm)
+ Set Event = ##class(TECH.Events.KenmerkDeletedEvent).%New(EventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+
  Do ##class(Prod.Kenmerk.DataIndex).DeleteWaarden($$$Groep,$$$Kenm,$$$UnID)
+ 
  Quit $$$OK
 
  ; ALTERNATIEVE METHODE
@@ -153,6 +167,10 @@
 #define Groep 	$P(ID,"||",2)
 #define Kenm 	$P(ID,"||",3) 	  
 
+ 	Set EventData = ##class(TECH.Events.KenmerkDeletedEventData).%New($$$UnID,$$$Groep,$$$Kenm)
+ 	Set Event = ##class(TECH.Events.KenmerkDeletedEvent).%New(EventData)
+	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+
 	set ID = {ID}
 	Do ##class(Prod.Kenmerk.DataIndex).DeleteWaarden($$$Groep,$$$Kenm,$$$UnID)</Code>
 <Event>DELETE</Event>
@@ -167,9 +185,7 @@
 <FormalSpec>GroepID:%String,UnID:%String,KenmerkNaam:%String,Waarden,Delimiter:%String,UserID:%String,Formule:%String=""</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	
-	Quit ..WijzigOfMaak(GroepID, UnID, KenmerkNaam ,Waarden, .Delimiter , .UserID ,.Formule)
+<Implementation><![CDATA[	Quit ..WijzigOfMaak(GroepID, UnID, KenmerkNaam ,Waarden, .Delimiter , .UserID ,.Formule)
 ]]></Implementation>
 </Method>