Index: TECH/Lock/MultiGlobalLocker.cls.xml
===================================================================
diff -u -r3358 -r3360
--- TECH/Lock/MultiGlobalLocker.cls.xml	(.../MultiGlobalLocker.cls.xml)	(revision 3358)
+++ TECH/Lock/MultiGlobalLocker.cls.xml	(.../MultiGlobalLocker.cls.xml)	(revision 3360)
@@ -71,9 +71,10 @@
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	#Dim GlobalRefIterator as TECH.ListIterator = ##class(TECH.ListIterator).%New(##class(TECH.ListUtils).RemoveDuplicateItems(..GlobalRefs))
-	#Dim GlobalRef as %String
+	#dim GlobalRefIterator as TECH.ListIterator = ##class(TECH.ListIterator).%New(##class(TECH.ListUtils).RemoveDuplicateItems(..GlobalRefs))
+	#dim GlobalRef as %String
 	#dim LockOK as %Boolean = $$$True
+	Set UnlockStatements = ##class(%ListOfDataTypes).%New()
 	while (GlobalRefIterator.HasNext() && LockOK){
 		#Dim LockCmd as String = "Lock "_Operation_"("
 		while( GlobalRefIterator.HasNext() && ( $Length(LockCmd) < 1000)) {
@@ -83,10 +84,26 @@
 		}
 		set LockCmd = LockCmd _ "):"_timeout 
 		xecute LockCmd
+		Do ##class(Tools.Wlip).%New(207).String("### " _ $TEST_ " uitvoeren " _ LockCmd)
 		Set LockOK = LockOK && $TEST
-		If ($$$Not(LockOK)  && (Operation = "+")) {
-			Do ..LockGlobals("-",0)
+		If Operation = "+" {
+			If LockOK {
+				;bijhouden unlock statemens uit te voeren als een van de volgende deel locks niet lukt.
+				; alleen de gelockte mogen geunlocked worden om rekening te houden met incremental locks
+				Do UnlockStatements.Insert(##class(TECH.StringUtils).Replace(LockCmd,"Lock +","Lock -"))
+				Do ##class(Tools.Wlip).%New(207).String("### Bijhouden"	)			
+			} else {
+				Do ##class(Tools.Wlip).%New(207).String("### rollback locks")
+				set StatementIterator = ##class(TECH.ListIterator).%New(UnlockStatements)
+				While StatementIterator.HasNext(){
+					#dim UnlockStatement as %String = StatementIterator.Next()
+					
+					Xecute UnlockStatement
+					Do ##class(Tools.Wlip).%New(207).String("### " _ $TEST_ " uitvoeren " _ UnlockStatement)
+				}				
+			}
 		}
+		
 	}
 	quit LockOK
 ]]></Implementation>