Index: vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml
===================================================================
diff -u -r1681 -r1727
--- vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 1681)
+++ vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 1727)
@@ -255,26 +255,76 @@
 	Set Kenmerken.GetAt(4).Naam = "NietBestaandKenmerk"
 	Set Kenmerken.GetAt(4).Waarden = Waarden
 		
-	Set ..ErrorMsg=""
 	Set $ZTRAP = "Catch"
 		  
 	Do KenmerkenService.BewaarProductenKenmerken(ProductenKenmerken)
 	GoTo Catch
-Catch Set $ZTRAP = ""
-	Set ..ErrorMsg=""
-	
+Catch Set $ZTRAP = ""	
 	Do $$$AssertFalse(%HeeftModEventOntvangen,"De bulk wijzig event is niet geraised door de rollback")
-
-	Do ModifiedSubscription.%DeleteId(ModifiedSubscription.%Id())
 	Kill %HeeftModEventOntvangen
+	Do ModifiedSubscription.%DeleteId(ModifiedSubscription.%Id())
 	
-	k ProductenKenmerken	
+	///Opnieuw ophalen van kenmerken
+	Set ProductenKenmerken = KenmerkenService.GeefProductKenmerken(PRNrs, KenmerkGroepen)
+	Set Kenmerken = ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken
+	Do $$$AssertEquals(Kenmerken.GetAt(3).Waarden.GetAt(1),OudeWaarde1,"Gerollbackte eigenschap "_Kenmerken.GetAt(3).Naam_" : "_OudeWaarde1_"")
+	Do $$$AssertEquals(Kenmerken.GetAt(4).Waarden.GetAt(1),OudeWaarde2,"Gerollbackte eigenschap "_Kenmerken.GetAt(4).Naam_" : "_OudeWaarde2_"")
+]]></Implementation>
+</Method>
 
+<Method name="TestBewaarKenmInstanceVersion">
+<Description>
+Testen als er van een product een kenmerk goed wordt ingesteld
+maar ondertussen de InstanceVersion gewijzigd werd.</Description>
+<Implementation><![CDATA[
+	
+	Set ModifiedSubscription = ##class(TECH.PubSub.EventSubscription).%New("KenmerkenModifiedEvent",..%ClassName(1),"KenmerkenModEventListener")
+	Do ModifiedSubscription.%Save()
+	
+	Set NieuweWaarde = "GewijzigdeMeubelToepassing3"
+	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()
+	
+	Set PRNrs = ##class(%ListOfDataTypes).%New()
+	Do PRNrs.Insert(1002)
+	
+	Set KenmerkGroepen = ##class(%ListOfDataTypes).%New()
+	Do KenmerkGroepen.Insert("OL")
+	
+	Set ProductenKenmerken = KenmerkenService.GeefProductKenmerken(PRNrs, KenmerkGroepen)
+	Set Kenmerken = ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken
+	Set OudeWaarde1 = Kenmerken.GetAt(3).Waarden.GetAt(1)
+	Set OudeWaarde2 = Kenmerken.GetAt(4).Waarden.GetAt(1)
+
+	Set Waarden = ##class(%ListOfDataTypes).%New()
+	Do Waarden.Insert("GoedeWaarde")
+	/// Goed kenmerk instellen
+	Set Kenmerken.GetAt(3).Waarden = Waarden
+	/// In tussentijd het kenmerk openen, en saven, zodat InstanceVersion verhoogd wordt.
+		Set tmpProductenKenmerken = KenmerkenService.GeefProductKenmerken(PRNrs, KenmerkGroepen)
+		Set tmpKenmerken = tmpProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken
+		Set tmpWaarden = ##class(%ListOfDataTypes).%New()
+		Do tmpWaarden.Insert("NieuweWaarde1")
+		Do tmpWaarden.Insert("NieuweWaarde2")
+		Set tmpKenmerken.GetAt(3).Waarden = tmpWaarden
+		Do KenmerkenService.BewaarProductenKenmerken(tmpProductenKenmerken)
+	Set %HeeftModEventOntvangen = 0
+	Set $ZTRAP = "Catch"
+		  
+	/// Eerste wijzigingen doorvoeren, hierop moet een fout komen dat InstanceVersion ondertussen verhoogd is.
+	Do KenmerkenService.BewaarProductenKenmerken(ProductenKenmerken)
+	
+	GoTo Catch
+Catch Set $ZTRAP = ""	
+	Do $$$AssertFalse(%HeeftModEventOntvangen,"De bulk wijzig event is niet geraised door de rollback")
+	Kill %HeeftModEventOntvangen
+	Do ModifiedSubscription.%DeleteId(ModifiedSubscription.%Id())	
+
 	///Opnieuw ophalen van kenmerken
 	Set ProductenKenmerken = KenmerkenService.GeefProductKenmerken(PRNrs, KenmerkGroepen)
 	Set Kenmerken = ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken
-	Do $$$AssertEquals(Kenmerken.GetAt(3).Waarden.GetAt(1),OudeWaarde1,"Gerolbackte eigenschap "_Kenmerken.GetAt(3).Naam_" : "_NieuweWaarde_"")
-	Do $$$AssertEquals(Kenmerken.GetAt(4).Waarden.GetAt(1),OudeWaarde2,"Gerolbackte eigenschap "_Kenmerken.GetAt(4).Naam_" : "_NieuweWaarde_"")
+	Do $$$AssertEquals(Kenmerken.GetAt(3).Waarden.GetAt(1),tmpWaarden.GetAt(1),"Gerollbackte eigenschap na eerste save. "_Kenmerken.GetAt(3).Naam_" : "_tmpWaarden.GetAt(1)_"")
+	Do $$$AssertEquals(Kenmerken.GetAt(3).Waarden.GetAt(2),tmpWaarden.GetAt(2),"Gerollbackte eigenschap na eerste save. "_Kenmerken.GetAt(3).Naam_" : "_tmpWaarden.GetAt(2)_"")
+	Do $$$AssertEquals(Kenmerken.GetAt(4).Waarden.GetAt(1),OudeWaarde2,"Gerollbackte eigenschap na eerste save. "_Kenmerken.GetAt(4).Naam_" : "_OudeWaarde2_"")
 ]]></Implementation>
 </Method>
 
@@ -309,14 +359,12 @@
 	/// kenmerk op twee verschillende producten instellen
 	Set ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken.GetAt(4).Waarden = Waarden
 	Set ProductenKenmerken.Kenmerken.GetAt(2).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).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())
-	Kill %HeeftModEventOntvangen
-	
-	k ProductenKenmerken	
+	Do ModifiedSubscription.%DeleteId(ModifiedSubscription.%Id())	
 
 	///Opnieuw ophalen van kenmerken
 	Set ProductenKenmerken = KenmerkenService.GeefProductKenmerken(PRNrs, KenmerkGroepen)
@@ -327,6 +375,74 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestBewaarMeerdereKenmInstVer">
+<Description>
+Kenmerk van twee producten wijzigen, maar meerdere producten zitten in de lijst.</Description>
+<Implementation><![CDATA[
+	Set tmpNieuweWaarde = "tmpGewijzigdeMeubelToepassing"
+	Set NieuweWaarde = "GewijzigdeMeubelToepassing"
+	Set %HeeftModEventOntvangen = 0
+	
+	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()	 
+	Set ModifiedSubscription = ##class(TECH.PubSub.EventSubscription).%New("KenmerkenModifiedEvent",..%ClassName(1),"KenmerkenModEventListener")
+	Do ModifiedSubscription.%Save()
+	
+	Set PRNrs = ##class(%ListOfDataTypes).%New()
+	Do PRNrs.Insert(1006)
+	Do PRNrs.Insert(1007)
+	
+	Set KenmerkGroepen = ##class(%ListOfDataTypes).%New()
+	Do KenmerkGroepen.Insert("OL")
+	
+	/// Eerste actie starten
+	Set ProductenKenmerken = KenmerkenService.GeefProductKenmerken(PRNrs, KenmerkGroepen)
+	
+	/// Ondertussen iets wijzigen aan één kenmerk, zodat de InstanceVersion van één kenmerk van één product verhoogd wordt.
+		Set tmpProductenKenmerken = KenmerkenService.GeefProductKenmerken(PRNrs, KenmerkGroepen)
+		/// Van product twee oorspronkelijke waarde tijdelijk bijhouden om test te kunnen uitvoeren.
+		Set tmpKenmerken = tmpProductenKenmerken.Kenmerken.GetAt(2).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken
+		Set OudeWaarde1 = tmpKenmerken.GetAt(4).Waarden.GetAt(1)
+		
+		Set tmpKenmerken = tmpProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken	
+		Set tmpWaarden = ##class(%ListOfDataTypes).%New()
+		Do tmpWaarden.Insert(tmpNieuweWaarde)
+		
+		/// kenmerk wijzigen op één kenmerk van één product
+		Set tmpProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken.GetAt(4).Waarden = tmpWaarden
+		Do KenmerkenService.BewaarProductenKenmerken(tmpProductenKenmerken)
+		
+		Do $$$AssertTrue(%HeeftModEventOntvangen,"De bulk wijzig event is opgevangen.")
+
+	/// Eerste actie verder afwerken, ondertussen is instance version veranderd van één product
+		Set %HeeftModEventOntvangen = 0	
+		Set Kenmerken = ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken
+	
+		Set Waarden = ##class(%ListOfDataTypes).%New()
+		Do Waarden.Insert(NieuweWaarde)
+		
+		/// kenmerk op twee verschillende producten instellen
+		Set ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken.GetAt(4).Waarden = Waarden
+		Set ProductenKenmerken.Kenmerken.GetAt(2).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken.GetAt(4).Waarden = Waarden
+	
+	Set $ZTRAP = "Catch"
+	/// Eerste wijzigingen doorvoeren, hierop moet een fout komen dat InstanceVersion ondertussen verhoogd is.
+	Do KenmerkenService.BewaarProductenKenmerken(ProductenKenmerken)
+	
+	GoTo Catch
+Catch Set $ZTRAP = ""	
+	Do $$$AssertFalse(%HeeftModEventOntvangen,"De bulk wijzig event is niet geraised door de rollback")		
+	Kill %HeeftModEventOntvangen		
+	Do ModifiedSubscription.%DeleteId(ModifiedSubscription.%Id())
+	
+	///Opnieuw ophalen van kenmerken om te testen met de te verwachten waarden.
+	Set ProductenKenmerken = KenmerkenService.GeefProductKenmerken(PRNrs, KenmerkGroepen)
+	Set KenmerkenProd1 = ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken
+	Set KenmerkenProd2 = ProductenKenmerken.Kenmerken.GetAt(2).KenmerkenGroepen.GetAt(1).Sets.GetAt(1).Kenmerken
+	Do $$$AssertEquals(KenmerkenProd1.GetAt(4).Waarden.GetAt(1),tmpNieuweWaarde,"Tussentijdse ingevulde gewijzigde eigenschap "_KenmerkenProd1.GetAt(4).Naam_" : "_tmpNieuweWaarde_"")
+	Do $$$AssertEquals(KenmerkenProd2.GetAt(4).Waarden.GetAt(1),OudeWaarde1,"Oorspronkelijk ingevulde eigenschap is behouden "_KenmerkenProd2.GetAt(4).Naam_" : "_OudeWaarde1_"")
+]]></Implementation>
+</Method>
+
 <Method name="TestVerwijderKenmerkenSets">
 <Description>
 Test het verwijderen van een kenmerkenset, waardoor er nog één multiple kenmerken set overschiet.