Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml
===================================================================
diff -u -r3484 -r3672
--- DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 3484)
+++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 3672)
@@ -271,7 +271,8 @@
 <FormalSpec>ProductenKenmerken:APPS.PM.dto.Kenm.ProductenKenmerken</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	
+	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
+	Set $ZTRAP = "ZetKenmerkBulkError"
 	Set KenmerkenModifiedEventData = ##class(TECH.Events.KenmerkenModifiedEventData).%New()
 	
 	Set ProductKenmerkenIt = ##class(TECH.ListIterator).%New(ProductenKenmerken.Kenmerken)
@@ -291,10 +292,21 @@
 							
 				Set ProductKenmerkenSets = ..GeefProductKenmerken(PRNr).GeefProductKenmerkenSets(KenmerkGroep.Naam)		 	
 				Set ProductKenmerkenSet = ProductKenmerkenSets.GeefKenmerkenSet(UnID)
-								
-				/// Nagaan dat product als GeneratieType niet AUTO is.
-				If ((KenmerkGroep.Naam = "OL") && (ProductKenmerkenSet.GeefKenmerkWaarden("GeneratieType").GetAt(1) = ##class(APPS.PM.enu.GeneratieType).Auto())) {
-			 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Kon het kenmerk niet opslaan omdat het AUTO als GeneratieType heeft."))
+				
+				If (KenmerkGroep.Naam = "OL")
+				{
+					Set WijzigGeneratieTypeEventData = ProductKenmerkenSet.ZetKenmerkWaarden(##class(TECH.ListUtils).CreateListOfDataTypes(KenmerkenSet.GeneratieType),"GeneratieType",KenmerkenSet.GeneratieTypeInstanceVersion)
+					If (WijzigGeneratieTypeEventData '= "")
+					{
+						Do KenmerkenModifiedEventData.Wijzigingen.Insert(WijzigGeneratieTypeEventData)
+					}
+					Else
+					{
+						/// Nagaan dat product als GeneratieType niet AUTO is.
+						If (ProductKenmerkenSet.GeefKenmerkWaarden("GeneratieType").GetAt(1) = ##class(APPS.PM.enu.GeneratieType).Auto()) {
+					 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Kon het kenmerk niet opslaan omdat het AUTO als GeneratieType heeft."))
+						}
+					}
 				}
 				
 				Set ProductKenmerkIt = ##class(TECH.ListIterator).%New(KenmerkenSet.Kenmerken)
@@ -325,7 +337,16 @@
 		Set KenmerkenModifiedEvent = ##class(TECH.Events.KenmerkenModifiedEvent).%New(KenmerkenModifiedEventData)
 		Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(KenmerkenModifiedEvent)
 	}
+	
+	Set $ZTRAP = ""
+	Do OperatieScope.Gelukt()
 	Quit $$$OK
+	
+ZetKenmerkBulkError
+	Set $ZTRAP = ""
+	Set Exceptie = ##class(TECH.ExceptionHandler).Catch()
+	Do OperatieScope.Gefaald()
+	Do ##class(TECH.ExceptionHandler).Rethrow(Exceptie)
 ]]></Implementation>
 </Method>
 </Class>