Index: zTryout/PRA/Concurrency/VirtueelBankLoketViaObjecten.cls.xml
===================================================================
diff -u -r1222 -r1425
--- zTryout/PRA/Concurrency/VirtueelBankLoketViaObjecten.cls.xml	(.../VirtueelBankLoketViaObjecten.cls.xml)	(revision 1222)
+++ zTryout/PRA/Concurrency/VirtueelBankLoketViaObjecten.cls.xml	(.../VirtueelBankLoketViaObjecten.cls.xml)	(revision 1425)
@@ -53,7 +53,7 @@
 <FormalSpec>RekeningNummer:%String</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx(,##class(ECH.Concurrency.TxIsolatieLevel).ReadUncommitted())
+	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx(,##class(TECH.Concurrency.TxIsolatieLevel).ReadUncommitted())
 	Set $ZTRAP = "Error1"
 	Set Rekening = ##class(zTryout.PRA.Concurrency.BankRekening).OpenId(RekeningNummer)
 	Set Result = Rekening.Saldo
Index: APPS/PM/KenmMWFPlugin.cls.xml
===================================================================
diff -u -r1412 -r1425
--- APPS/PM/KenmMWFPlugin.cls.xml	(.../KenmMWFPlugin.cls.xml)	(revision 1412)
+++ APPS/PM/KenmMWFPlugin.cls.xml	(.../KenmMWFPlugin.cls.xml)	(revision 1425)
@@ -5,6 +5,10 @@
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Parameter name="ApplicatieNaam">
+<Default>Kenmerk_MaatwerkFramework_Plugin</Default>
+</Parameter>
+
 <Property name="KenmerkenModifiedEventData">
 <Type>TECH.Events.KenmerkenModifiedEventData</Type>
 <Private>1</Private>
@@ -25,12 +29,40 @@
 <Method name="VerwerkWijzigingen">
 <Private>1</Private>
 <Implementation><![CDATA[
+	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()	
+	Set $ZTRAP = "Fout"
+	
+	// Locks verzamelen
 	Set KenmerkModifiedEventDataIterator = ##class(TECH.ListIterator).%New(..KenmerkenModifiedEventData.Wijzigingen)
+	While (KenmerkModifiedEventDataIterator.HasNext())
+	{
+		Set KenmerkModifiedEventData = KenmerkModifiedEventDataIterator.Next()
+		Set HalffabClassName = ..GeefHalffabClassNameVoor(KenmerkModifiedEventData.GroepID)
+		Set CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(HalffabClassName)
+		Set SQLTableName = CompiledClass.SqlSchemaName_"."_CompiledClass.SqlTableName
+		Set ResultSet = ##class(%ResultSet).%New()
+		Do ResultSet.Prepare("SELECT ID FROM "_SQLTableName_" WHERE UnID = ? ")
+		Do ResultSet.Execute(KenmerkModifiedEventData.UnID)
+		While (ResultSet.Next())
+		{
+			Set Object = $zobjclassmethod(HalffabClassName,"%OpenId",ResultSet.Data("ID"))
+			Do ##class(TECH.Concurrency.TransactionMgr).LockExclusive(Object)
+		}
+	}
 	
+	// Wijzigingen doorvoeren
+	Set KenmerkModifiedEventDataIterator = ##class(TECH.ListIterator).%New(..KenmerkenModifiedEventData.Wijzigingen)
 	While (KenmerkModifiedEventDataIterator.HasNext())
 	{
 		Do ..VerwerkWijziging(KenmerkModifiedEventDataIterator.Next())
 	}
+	
+	Set $ZTRAP = ""
+	Do OperatieScope.Gelukt()
+	Quit
+Fout
+	Set $ZTRAP = ""
+	Do OperatieScope.Gefaald()
 ]]></Implementation>
 </Method>
 
@@ -71,6 +103,7 @@
 	While (ResultSet.Next())
 	{
 		Set Object = $zobjclassmethod(HalffabClassName,"%OpenId",ResultSet.Data("ID"))
+		Do ##class(TECH.Concurrency.TransactionMgr).LockExclusive(Object)
 		Do ObjectenLijst.Insert(Object)
 		
 		Set PropertiesIterator = ##class(TECH.ListIterator).%New(CompiledClass.Properties)
Index: Default_ChristopherS.prj.xml
===================================================================
diff -u -r1310 -r1425
--- Default_ChristopherS.prj.xml	(.../Default_ChristopherS.prj.xml)	(revision 1310)
+++ Default_ChristopherS.prj.xml	(.../Default_ChristopherS.prj.xml)	(revision 1425)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="Default_ChristopherS" LastModified="2011-05-26 08:39:09">
+<Project name="Default_ChristopherS" LastModified="2011-06-15 07:32:26">
 </Project>
 </Export>