Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r1133 -r1248
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1133)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1248)
@@ -275,6 +275,8 @@
 	/// Scope ophalen
 	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
 	
+	Set KenmerkenModifiedEventData = ##class(TECH.Events.KenmerkenModifiedEventData).%New()
+	
 	Set ProductKenmerkenIt = ##class(TECH.ListIterator).%New(ProductenKenmerken.Kenmerken)
 	While (ProductKenmerkenIt.HasNext())
 	{
@@ -305,12 +307,18 @@
 				{
 					Do Kenmerk.Waarden.Clear()
 					Do ##class(TECH.ListUtils).CopyList(ProductKenmerk.Waarden,Kenmerk.Waarden)
-									
+					Set Kenmerk.IsEventRaiser = 0
 					Set Status = Kenmerk.Save()
 					If $$$ISERR(Status)
 					{
 						Set ErrorMsg = "Kenmerk "_ProductKenmerk.Groep_"||"_ProductKenmerk.KenmerkNaam_" voor UnID "_UnID_" kon niet worden gesaved.("_$$ParseStatus^vhLib(Status)_")"
 					}
+					Else
+					{
+						Set WaardenLijst = ##class(%ListOfDataTypes).%New()
+						Do ##class(TECH.ListUtils).CopyList(Kenmerk.Waarden,WaardenLijst)
+						Do KenmerkenModifiedEventData.Wijzigingen.Insert(##class(TECH.Events.KenmerkModifiedEventData).%New(UnID,ProductKenmerk.Groep,ProductKenmerk.KenmerkNaam,WaardenLijst))
+					}
 				}Else
 				{
 					Set ErrorMsg = "Kenmerk "_ProductKenmerk.Groep_"||"_ProductKenmerk.KenmerkNaam_" voor UnID "_UnID_" is niet gevonden."
@@ -320,6 +328,13 @@
 	}	
 	If (ErrorMsg = ""){
 		Do OperatieScope.Gelukt()
+		
+		If (KenmerkenModifiedEventData.Wijzigingen.Count() > 0)
+		{
+			Set KenmerkenModifiedEvent = ##class(TECH.Events.KenmerkenModifiedEvent).%New(KenmerkenModifiedEventData)
+			Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(KenmerkenModifiedEvent)
+		}
+		
 	}Else{
 		Do OperatieScope.Gefaald(ErrorMsg)
 	}
Index: Default_ChristopherS.prj.xml
===================================================================
diff -u -r1224 -r1248
--- Default_ChristopherS.prj.xml	(.../Default_ChristopherS.prj.xml)	(revision 1224)
+++ Default_ChristopherS.prj.xml	(.../Default_ChristopherS.prj.xml)	(revision 1248)
@@ -1,12 +1,18 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="Default_ChristopherS" LastModified="2011-05-20 16:16:06">
+<Project name="Default_ChristopherS" LastModified="2011-05-23 17:32:13">
   <Items>
     <ProjectItem name="TECH.Events.KenmerkCreatedEvent" type="CLS"/>
     <ProjectItem name="TECH.Events.KenmerkCreatedEventData" type="CLS"/>
     <ProjectItem name="TECH.Events.KenmerkDeletedEvent" type="CLS"/>
     <ProjectItem name="TECH.Events.KenmerkDeletedEventData" type="CLS"/>
     <ProjectItem name="TECH.Events.KenmerkModifiedEvent" type="CLS"/>
+    <ProjectItem name="TECH.Events.KenmerkenCreatedEvent" type="CLS"/>
+    <ProjectItem name="TECH.Events.KenmerkenCreatedEventData" type="CLS"/>
+    <ProjectItem name="TECH.Events.KenmerkenDeletedEvent" type="CLS"/>
+    <ProjectItem name="TECH.Events.KenmerkenDeletedEventData" type="CLS"/>
+    <ProjectItem name="TECH.Events.KenmerkenModifiedEvent" type="CLS"/>
+    <ProjectItem name="TECH.Events.KenmerkenModifiedEventData" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.HalffabImport" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.HalffabImportTBXMock" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.FrameworkData" type="CLS"/>
Index: vhUnitTest/APPS/PM/TestProductService.cls.xml
===================================================================
diff -u -r1241 -r1248
--- vhUnitTest/APPS/PM/TestProductService.cls.xml	(.../TestProductService.cls.xml)	(revision 1241)
+++ vhUnitTest/APPS/PM/TestProductService.cls.xml	(.../TestProductService.cls.xml)	(revision 1248)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="vhUnitTest.APPS.PM.TestProductService">
 <Description>
-Do ##class(vhUnitTest.Manager).RunTest("","APPS.PM.TestProductService")</Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.TestProductService")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
Index: zTryout/CSC/PersistenteKlasse.cls.xml
===================================================================
diff -u -r1222 -r1248
--- zTryout/CSC/PersistenteKlasse.cls.xml	(.../PersistenteKlasse.cls.xml)	(revision 1222)
+++ zTryout/CSC/PersistenteKlasse.cls.xml	(.../PersistenteKlasse.cls.xml)	(revision 1248)
@@ -3,9 +3,14 @@
 <Class name="zTryout.CSC.PersistenteKlasse">
 <ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%Persistent</Super>
+<Super>TECH.VhChangeInfo</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="Test">
+<Type>%Integer</Type>
+<Collection>list</Collection>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^zTryout.CSC.PersistenteKlasseD</DataLocation>
@@ -22,6 +27,9 @@
 <Value name="2">
 <Value>Batch</Value>
 </Value>
+<Value name="3">
+<Value>i</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml
===================================================================
diff -u -r1236 -r1248
--- vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 1236)
+++ vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 1248)
@@ -220,6 +220,9 @@
 	Set NieuweWaarde = "GewijzigdeMeubelToepassing"
 	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()
 	
+	Set %HeeftModEventOntvangen = 0
+	Set ModifiedSubscription = ##class(TECH.PubSub.EventSubscription).%New("KenmerkenModifiedEvent",..%ClassName(1),"KenmerkenModEventListener")
+	Do ModifiedSubscription.%Save()
 	
 	Set PRNrs = ##class(%ListOfDataTypes).%New()
 	Do PRNrs.Insert(1005)
@@ -242,6 +245,10 @@
 	Set ProductenKenmerken.Kenmerken.GetAt(2).Kenmerken.GetAt(4).Waarden = Waarden
 	Do KenmerkenService.BewaarProductenKenmerken(ProductenKenmerken)
 	
+	Do $$$AssertTrue(%HeeftModEventOntvangen,"De bulk wijzig event is opgevangen en had meerdere wijziging data objecten")
+
+	Do ModifiedSubscription.%DeleteId(ModifiedSubscription.%Id())
+	
 	k ProductenKenmerken	
 
 	///Opnieuw ophalen van kenmerken
@@ -250,5 +257,16 @@
 	Do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(2).Kenmerken.GetAt(4).Waarden.GetAt(1),NieuweWaarde,"Ingevulde gewijzigde eigenschap "_ProductenKenmerken.Kenmerken.GetAt(2).Kenmerken.GetAt(4).KenmerkNaam_" : "_NieuweWaarde_"")
 ]]></Implementation>
 </Method>
+
+<Method name="KenmerkenModEventListener">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KenmerkenModifiedEvent:TECH.Events.KenmerkenModifiedEvent</FormalSpec>
+<Implementation><![CDATA[
+	If (KenmerkenModifiedEvent.Data.Wijzigingen.Count() > 0)
+	{
+		Set %HeeftModEventOntvangen = 1
+	}
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: vhUnitTest/Prod/Kenmerk/TestKenmerk.cls.xml
===================================================================
diff -u -r1228 -r1248
--- vhUnitTest/Prod/Kenmerk/TestKenmerk.cls.xml	(.../TestKenmerk.cls.xml)	(revision 1228)
+++ vhUnitTest/Prod/Kenmerk/TestKenmerk.cls.xml	(.../TestKenmerk.cls.xml)	(revision 1248)
@@ -7,12 +7,15 @@
 <Super>vhUnitTest.TestCase</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="%HeeftCreatedEventOntvangen">
-<Type>%Boolean</Type>
-</Property>
-
 <Method name="TestEvents">
 <Implementation><![CDATA[
+	Set GroepID = "UTGroep"
+	Set UnID = "1"
+	Set KenmerkNaam = "Kenmerk"
+	Set Waarde = "Waarde"
+	
+	Do ##class(Prod.Kenmerk.DataDefinitie).DeleteKM(GroepID,UnID,KenmerkNaam)
+	
 	Set %HeeftCreatedEventOntvangen = 0
 	Set CreateSubscription = ##class(TECH.PubSub.EventSubscription).%New("KenmerkCreatedEvent","vhUnitTest.Prod.Kenmerk.TestKenmerk","KenmerkCreatedEventListener")
 	Do CreateSubscription.%Save()
@@ -21,43 +24,111 @@
 	Set ModifiedSubscription = ##class(TECH.PubSub.EventSubscription).%New("KenmerkModifiedEvent","vhUnitTest.Prod.Kenmerk.TestKenmerk","KenmerkModEventListener")
 	Do ModifiedSubscription.%Save()
 	
-	Set %HeefDeleteEventOntvangen = 0
+	Set %HeeftDeleteEventOntvangen = 0
 	Set DeletedSubscription = ##class(TECH.PubSub.EventSubscription).%New("KenmerkDeletedEvent","vhUnitTest.Prod.Kenmerk.TestKenmerk","KenmerkDeletedEventListener")
-	Do DeletedSubscription.%Save()
+	Do DeletedSubscription.%Save()	
 	
+	Set MetaGroep = ##class(Prod.Kenmerk.MetaGroep).%New()
+	Set MetaGroep.Code = "UTGroep"
+	Do MetaGroep.%Save()
+	
+	Set MetaDefinitie = ##class(Prod.Kenmerk.MetaDefinitie).%New()
+	Do MetaGroep.MetaDefinities.Insert(MetaDefinitie)
+	Set MetaDefinitie.Kenmerk = KenmerkNaam
+	Do MetaDefinitie.%Save()
+	
+	Set Kenmerk=##class(Prod.Kenmerk.DataDefinitie).%New()
+	Do Kenmerk.KenmerkSetObjectId(GroepID_"||"_KenmerkNaam)
+	Set Kenmerk.UnID=UnID
+	Do Kenmerk.Waarden.Insert(Waarde)
+	Set Status = Kenmerk.%Save()
+	
+	Do $$$AssertTrue($$$ISOK(Status),"Het kenmerk is gesaved")
+	
+	Do $$$AssertTrue(%HeeftCreatedEventOntvangen,"De create event is opgegooid")
+	
+	Do Kenmerk.Waarden.Insert("NieuweWaarde")
+	Do Kenmerk.%Save()
+	
+	Do $$$AssertTrue(%HeeftModEventOntvangen,"De modified event is opgegooid")
+	
+	Do Kenmerk.%DeleteId(Kenmerk.%Id())
+	Do MetaGroep.%DeleteId(MetaGroep.%Id())
+	Do MetaDefinitie.%DeleteId(MetaDefinitie.%Id())
+	
+	Do $$$AssertTrue(%HeeftDeleteEventOntvangen,"De delete event is opgegooid")
+	
+	Do CreateSubscription.%DeleteId(CreateSubscription.%Id())
+	Do ModifiedSubscription.%DeleteId(ModifiedSubscription.%Id())
+	Do DeletedSubscription.%DeleteId(DeletedSubscription.%Id())
+	
+	Kill %HeeftCreatedEventOntvangen
+	Kill %HeeftModEventOntvangen
+	Kill %HeeftDeleteEventOntvangen
+]]></Implementation>
+</Method>
+
+<Method name="TestGeenEvents">
+<Description>
+Het gooien van events vanuit de datadefinitie kan uitgeschakeld worden. We gaan dit testen.</Description>
+<Implementation><![CDATA[
 	Set GroepID = "UTGroep"
 	Set UnID = "1"
-	Set Kenmerk = "Kenmerk"
+	Set KenmerkNaam = "Kenmerk"
 	Set Waarde = "Waarde"
 	
+	Do ##class(Prod.Kenmerk.DataDefinitie).DeleteKM(GroepID,UnID,KenmerkNaam)
 	
+	Set %HeeftCreatedEventOntvangen = 0
+	Set CreateSubscription = ##class(TECH.PubSub.EventSubscription).%New("KenmerkCreatedEvent","vhUnitTest.Prod.Kenmerk.TestKenmerk","KenmerkCreatedEventListener")
+	Do CreateSubscription.%Save()
+	
+	Set %HeeftModEventOntvangen = 0
+	Set ModifiedSubscription = ##class(TECH.PubSub.EventSubscription).%New("KenmerkModifiedEvent","vhUnitTest.Prod.Kenmerk.TestKenmerk","KenmerkModEventListener")
+	Do ModifiedSubscription.%Save()
+	
+	Set %HeeftDeleteEventOntvangen = 0
+	Set DeletedSubscription = ##class(TECH.PubSub.EventSubscription).%New("KenmerkDeletedEvent","vhUnitTest.Prod.Kenmerk.TestKenmerk","KenmerkDeletedEventListener")
+	Do DeletedSubscription.%Save()	
+	
 	Set MetaGroep = ##class(Prod.Kenmerk.MetaGroep).%New()
 	Set MetaGroep.Code = "UTGroep"
 	Do MetaGroep.%Save()
 	
 	Set MetaDefinitie = ##class(Prod.Kenmerk.MetaDefinitie).%New()
 	Do MetaGroep.MetaDefinities.Insert(MetaDefinitie)
-	Set MetaDefinitie.Kenmerk = "Kenmerk"
+	Set MetaDefinitie.Kenmerk = KenmerkNaam
 	Do MetaDefinitie.%Save()
 	
-	Do ##class(Prod.Kenmerk.DataDefinitie).Set(GroepID,UnID,Kenmerk,Waarde)
+	Set Kenmerk=##class(Prod.Kenmerk.DataDefinitie).%New()
+	Do Kenmerk.KenmerkSetObjectId(GroepID_"||"_KenmerkNaam)
+	Set Kenmerk.UnID=UnID
+	Do Kenmerk.Waarden.Insert(Waarde)
+	Set Kenmerk.IsEventRaiser = 0
+	Set Status = Kenmerk.%Save()
 	
-	Do $$$AssertTrue(%HeeftCreatedEventOntvangen,"De create event is opgegooid")
+	Do $$$AssertTrue($$$ISOK(Status),"Het kenmerk is gesaved")
 	
-	Do ##class(Prod.Kenmerk.DataDefinitie).Set(GroepID,UnID,Kenmerk,"NieuweWaarde")
+	Do $$$AssertFalse(%HeeftCreatedEventOntvangen,"De create event is opgegooid")
 	
-	Do $$$AssertTrue(%HeeftModEventOntvangen,"De modified event is opgegooid")
+	Do Kenmerk.Waarden.Insert("NieuweWaarde")
+	Do Kenmerk.%Save()
 	
-	Do ##class(Prod.Kenmerk.DataDefinitie).DeleteKM(GroepID, "1", "Kenmerk")
+	Do $$$AssertFalse(%HeeftModEventOntvangen,"De modified event is opgegooid")
+	
+	Do Kenmerk.%DeleteId(Kenmerk.%Id())
 	Do MetaGroep.%DeleteId(MetaGroep.%Id())
 	Do MetaDefinitie.%DeleteId(MetaDefinitie.%Id())
 	
+	Do $$$AssertFalse(%HeeftDeleteEventOntvangen,"De delete event is opgegooid")
+	
 	Do CreateSubscription.%DeleteId(CreateSubscription.%Id())
 	Do ModifiedSubscription.%DeleteId(ModifiedSubscription.%Id())
 	Do DeletedSubscription.%DeleteId(DeletedSubscription.%Id())
 	
 	Kill %HeeftCreatedEventOntvangen
 	Kill %HeeftModEventOntvangen
+	Kill %HeeftDeleteEventOntvangen
 ]]></Implementation>
 </Method>
 
Index: Prod/Kenmerk/DataDefinitie.cls.xml
===================================================================
diff -u -r1228 -r1248
--- Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1228)
+++ Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1248)
@@ -102,19 +102,24 @@
  
  If $$$ISOK(SaveOK)
  {
-	 Set Event = ""
-	 If (IsNew)
+	 If (..IsEventRaiser)
 	 {
-		Set EventData = ##class(TECH.Events.KenmerkCreatedEventData).%New(..UnID,..Kenmerk.Groep.Code,..Kenmerk.Kenmerk,..Waarden)
-		Set Event = ##class(TECH.Events.KenmerkCreatedEvent).%New(EventData)
+		 Set Event = ""
+		 If (IsNew)
+		 {
+			Set EventData = ##class(TECH.Events.KenmerkCreatedEventData).%New(..UnID,..Kenmerk.Groep.Code,..Kenmerk.Kenmerk,..Waarden)
+			Set Event = ##class(TECH.Events.KenmerkCreatedEvent).%New(EventData)
+		 }
+		 Else
+		 {
+			// Het heeft geen zin om op de modified flag van "..Waarden" te gaan controleren, deze zal altijd false zijn.
+			// De Modified flag blijft bewaard in de onaftersave, maar de save van ..Waarden werd reeds volledig afgewerkt.
+			Set EventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(..UnID,..Kenmerk.Groep.Code,..Kenmerk.Kenmerk,..Waarden)
+			Set Event = ##class(TECH.Events.KenmerkModifiedEvent).%New(EventData)
+		 }
+		 
+		 Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
 	 }
-	 Else
-	 {
-		Set EventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(..UnID,..Kenmerk.Groep.Code,..Kenmerk.Kenmerk,..Waarden)
-		Set Event = ##class(TECH.Events.KenmerkModifiedEvent).%New(EventData)
-	 }
-	 
-	 Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
  }
  
  //w "After : "_$zobjval(,5,0,3,5),!
@@ -141,9 +146,13 @@
 #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)
+ Set Object = ..%Open(Oid)
+ If ($IsObject(Object) && Object.IsEventRaiser)
+ {
+	 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)