Index: JBL Product AMF.prj.xml
===================================================================
diff -u -r1689 -r1727
--- JBL Product AMF.prj.xml	(.../JBL Product AMF.prj.xml)	(revision 1689)
+++ JBL Product AMF.prj.xml	(.../JBL Product AMF.prj.xml)	(revision 1727)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="JBL Product AMF" LastModified="2011-07-14 11:21:25">
+<Project name="JBL Product AMF" LastModified="2011-08-01 17:40:26">
   <Items>
     <ProjectItem name="%Prod.Product.INC" type="MAC"/>
     <ProjectItem name="APPS.PM.KenmerkenService" type="CLS"/>
@@ -33,6 +33,7 @@
     <ProjectItem name="APPS.PM.enu.SoortProductID" type="CLS"/>
     <ProjectItem name="APPS.PM.enu.StockType" type="CLS"/>
     <ProjectItem name="APPS.PM.impl.ConvertAPPStoDOMenu" type="CLS"/>
+    <ProjectItem name="APPS.common.dto.VhPersistent" type="CLS"/>
     <ProjectItem name="BL.EC.Product" type="CLS"/>
     <ProjectItem name="BL.Kenm.ProdMulti" type="CLS"/>
     <ProjectItem name="BL.Prod.INC" type="MAC"/>
Index: APPS/common/dto/VhPersistent.cls.xml
===================================================================
diff -u
--- APPS/common/dto/VhPersistent.cls.xml	(revision 0)
+++ APPS/common/dto/VhPersistent.cls.xml	(revision 1727)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.dto.VhPersistent">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="InstanceVersion">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+<Required>1</Required>
+</Property>
+</Class>
+</Export>
Index: DOM/PM/ProductKenmerkenSet.cls.xml
===================================================================
diff -u -r1507 -r1727
--- DOM/PM/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1507)
+++ DOM/PM/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1727)
@@ -25,7 +25,7 @@
 
 <Method name="ZetKenmerkWaarden">
 <Abstract>1</Abstract>
-<FormalSpec>Waarden:%ListOfDataTypes,KenmerkNaam:%String</FormalSpec>
+<FormalSpec>Waarden:%ListOfDataTypes,KenmerkNaam:%String,InstanceVersion:%Integer</FormalSpec>
 </Method>
 
 <Method name="ZetRaiseEvent">
Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r1689 -r1727
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1689)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1727)
@@ -63,7 +63,7 @@
 		 		 				 
 	 /// DataDefinities ophalen
 	 Set RS=##class(%ResultSet).%New()
-	 Set SQLStatement = "SELECT PRNr, UnID, KenmerkGroep, KenmerkNaam, Waarden FROM Prod_Kenmerk.DataDefinitie where"	 		
+	 Set SQLStatement = "SELECT PRNr, UnID, KenmerkGroep, KenmerkNaam, Waarden, InstanceVersion FROM Prod_Kenmerk.DataDefinitie where"	 		
 	 
 	// nadien nagaan of er iets in kenmerkGroepen zit, als het ledig is wordt in alle kenmerkgroepen gezocht.
 	if ($IsObject(KenmerkGroepen) && (KenmerkGroepen.Count() '= 0)) {
@@ -88,6 +88,7 @@
 		 	If (KenmerkNaam '= "GeneratieType"){
 			 	Set PRNr = RS.Data("PRNr")
 			 	Set UnID = RS.Data("UnID")
+			 	Set InstanceVersion = RS.Data("InstanceVersion")
 			 	Set KenmerkGroep = RS.Data("KenmerkGroep")
 			 	
 			 	/// Als PRNr verandert.
@@ -122,7 +123,10 @@
 			 	
 			 	Set ProductKenmerk = ##class(APPS.PM.dto.Kenm.ProductKenmerk).%New()
 			 	Set ProductKenmerk.Naam = KenmerkNaam
-			 	Set ProductKenmerk.Waarden = ##class(TECH.ListUtils).ListbuildToList(RS.Data("Waarden")) // tmpDataDef.Waarden	 
+			 	Set ProductKenmerk.Waarden = ##class(TECH.ListUtils).ListbuildToList(RS.Data("Waarden"))
+			 	If (InstanceVersion '= "") {
+				 	Set ProductKenmerk.InstanceVersion = InstanceVersion
+			 	}
 			 	
 			 	Do ProductKenmerkenSet.Kenmerken.Insert(ProductKenmerk)
 				 
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.
Index: Prod/Kenmerk/DataDefinitie.cls.xml
===================================================================
diff -u -r1722 -r1727
--- Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1722)
+++ Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1727)
@@ -555,7 +555,6 @@
 	
 	For  &sql(FETCH crsCP) Quit:SQLCODE  Do  Quit:($$$ISERR(sc))
 	. If $LL($G(lbExcludeGroepIDs)) Quit:$LF(lbExcludeGroepIDs,KenmerkGroep)
-	. Do WLIP^vhDBG(127,"Prod.Kenmerk.DataDefinitie.OpenId("_DDefID_")")
 	. Set objFrom=##class(Prod.Kenmerk.DataDefinitie).OpenId(DDefID)
 	. Set objNew=objFrom.%ConstructClone(0)
 	. ;Set DDefIDNew = "381469.1||"_$Piece(DDefID,"||",2,99)
Index: TECH/Concurrency/VhPersistent.cls.xml
===================================================================
diff -u -r1507 -r1727
--- TECH/Concurrency/VhPersistent.cls.xml	(.../VhPersistent.cls.xml)	(revision 1507)
+++ TECH/Concurrency/VhPersistent.cls.xml	(.../VhPersistent.cls.xml)	(revision 1727)
@@ -112,6 +112,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CheckInstanceVersion">
+<FormalSpec>InstanceVersion:%Integer</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = $$$OK
+	If (InstanceVersion '= ..InstanceVersion)	{
+		Set Status = $$$ERROR($$$GeneralError,"InstanceVersions komen niet meer overeen : "_InstanceVersion_" != "_..InstanceVersion)
+	}	
+	Quit Status
+]]></Implementation>
+</Method>
+
 <Method name="LogTrace">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Bericht</FormalSpec>
Index: APPS/PM/dto/Kenm/ProductKenmerk.cls.xml
===================================================================
diff -u -r1517 -r1727
--- APPS/PM/dto/Kenm/ProductKenmerk.cls.xml	(.../ProductKenmerk.cls.xml)	(revision 1517)
+++ APPS/PM/dto/Kenm/ProductKenmerk.cls.xml	(.../ProductKenmerk.cls.xml)	(revision 1727)
@@ -4,11 +4,12 @@
 <Description>
 JBL + 2011-02-28  </Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
+<Super>%RegisteredObject,%XML.Adaptor,APPS.common.dto.VhPersistent</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Naam">
 <Type>%String</Type>
+<Required>1</Required>
 </Property>
 
 <Property name="Waarden">
Index: DOM/PM/impl/ProductKenmerkenSet.cls.xml
===================================================================
diff -u -r1519 -r1727
--- DOM/PM/impl/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1519)
+++ DOM/PM/impl/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1727)
@@ -88,7 +88,7 @@
 </Method>
 
 <Method name="ZetKenmerkWaarden">
-<FormalSpec>Waarden:%ListOfDataTypes,KenmerkNaam:%String</FormalSpec>
+<FormalSpec>Waarden:%ListOfDataTypes,KenmerkNaam:%String,InstanceVersion:%Integer</FormalSpec>
 <ReturnType>TECH.Events.KenmerkModifiedEventData</ReturnType>
 <Implementation><![CDATA[
 			
@@ -117,31 +117,37 @@
 		Set Kenmerk = ##class(Prod.Kenmerk.DataDefinitie).OpenId(Identifier)
 		If ($IsObject(Kenmerk))
 		{
-			// TO DO : 2011-06-09 : de check of iets gewijzigd is verplaatsen naar de persistente klasse : Prod.DataDefinitie
-			// Controleer of de nieuwe waarden verschillen
-			Set IsGewijzigd = (Waarden.Count() '= Kenmerk.Waarden.Count())
-			Set i = 0			
-			While ('IsGewijzigd) && (i < Kenmerk.Waarden.Count())
-			{
-				Set i = i + 1
-				Set IsGewijzigd = (Waarden.GetAt(i) '= Kenmerk.Waarden.GetAt(i))
-			}
-			/// end TO DO
-			
-			If (IsGewijzigd)
-			{
-				Do Kenmerk.Waarden.Clear()
-				Set Kenmerk.Waarden = ##class(TECH.ListUtils).CopyList(Waarden,Kenmerk.Waarden)
-				Set Kenmerk.IsEventRaiser = ..RaiseEvent //Indien bulk wijziging is mag dit geen event raisen en is aanroeper verantwoordelijk voor zelf het event te raisen.
-				Set Status = Kenmerk.Save()
-				If $$$ISERR(Status)
+			/// InstanceVersion checken
+			Set CheckInstanceVersion = Kenmerk.CheckInstanceVersion(InstanceVersion)
+			If ($$$ISERR(CheckInstanceVersion)){
+				Set ErrorMsg = "Kenmerk "_..KenmerkGroep_"||"_KenmerkNaam_" voor UnID "_..UnID_" is kon niet worden gesaved. "_$$ParseStatus^vhLib(CheckInstanceVersion)
+			}Else{			
+				// TO DO : 2011-06-09 : de check of iets gewijzigd is verplaatsen naar de persistente klasse : Prod.DataDefinitie
+				// Controleer of de nieuwe waarden verschillen
+				Set IsGewijzigd = (Waarden.Count() '= Kenmerk.Waarden.Count())
+				Set i = 0			
+				While ('IsGewijzigd) && (i < Kenmerk.Waarden.Count())
 				{
-					Set ErrorMsg = "Kenmerk "_..KenmerkGroep_"||"_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)
-					Set Wijziging = ##class(TECH.Events.KenmerkModifiedEventData).%New(..UnID,..KenmerkGroep,KenmerkNaam,WaardenLijst)
+					Set i = i + 1
+					Set IsGewijzigd = (Waarden.GetAt(i) '= Kenmerk.Waarden.GetAt(i))
 				}
+				/// end TO DO
+				
+				If (IsGewijzigd)
+				{
+					Do Kenmerk.Waarden.Clear()
+					Set Kenmerk.Waarden = ##class(TECH.ListUtils).CopyList(Waarden,Kenmerk.Waarden)
+					Set Kenmerk.IsEventRaiser = ..RaiseEvent //Indien bulk wijziging is mag dit geen event raisen en is aanroeper verantwoordelijk voor zelf het event te raisen.
+					Set Status = Kenmerk.Save()
+					If $$$ISERR(Status)
+					{
+						Set ErrorMsg = "Kenmerk "_..KenmerkGroep_"||"_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)
+						Set Wijziging = ##class(TECH.Events.KenmerkModifiedEventData).%New(..UnID,..KenmerkGroep,KenmerkNaam,WaardenLijst)
+					}
+				}
 			}
 		}Else{
 			/// Is nieuwe DataDefinitie voor dit object.
Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml
===================================================================
diff -u -r1724 -r1727
--- DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 1724)
+++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 1727)
@@ -257,7 +257,7 @@
 					
 					Do ProductKenmerkenSet.ZetRaiseEvent(0) /// Geen event raisen, want is bulk operatie
 					
-					Set Wijziging = ProductKenmerkenSet.ZetKenmerkWaarden(ProductKenmerk.Waarden,ProductKenmerk.Naam)
+					Set Wijziging = ProductKenmerkenSet.ZetKenmerkWaarden(ProductKenmerk.Waarden,ProductKenmerk.Naam,ProductKenmerk.InstanceVersion)
 					If (Wijziging '= ""){
 						Do KenmerkenModifiedEventData.Wijzigingen.Insert(Wijziging)
 					}
Index: DOM/PM/impl/ProductKenmerkenSets.cls.xml
===================================================================
diff -u -r1722 -r1727
--- DOM/PM/impl/ProductKenmerkenSets.cls.xml	(.../ProductKenmerkenSets.cls.xml)	(revision 1722)
+++ DOM/PM/impl/ProductKenmerkenSets.cls.xml	(.../ProductKenmerkenSets.cls.xml)	(revision 1727)
@@ -266,7 +266,6 @@
 	Set flagReadOnly=0
 	Set ListOfUnIDs = ##class(%ListOfDataTypes).%New()
 	Do ListOfUnIDs.Insert(UnID)
-	d WLIP^vhDBG(127,"AfhandelingAutoProduct : "_ListOfUnIDs.GetAt(1))
 	Set Status = ##class(APPS.PM.OL.AfgeleideKenmerkenGenerator).VerwerkProducten(ListOfUnIDs,flagReadOnly,blKenm)
 	If ($$$ISERR(Status)){
 		Set ErrorMsg = "Kon de afhandeling van auto-product '"_UnID_"' ("_..KenmerkGroep_") niet voltooien : "_$$ParseStatus^vhLib(Status)