Index: TECH/Concurrency/DbUtils.cls.xml
===================================================================
diff -u -r946 -r1013
--- TECH/Concurrency/DbUtils.cls.xml	(.../DbUtils.cls.xml)	(revision 946)
+++ TECH/Concurrency/DbUtils.cls.xml	(.../DbUtils.cls.xml)	(revision 1013)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-21 12:54:23">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-11 17:18:04">
 <Class name="TECH.Concurrency.DbUtils">
 <Description>
 Utility methods voor open en save van objecten.
@@ -8,7 +8,7 @@
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62171,46545.583309</TimeChanged>
+<TimeChanged>62192,62293.713672</TimeChanged>
 <TimeCreated>62007,44253.966022</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -25,7 +25,9 @@
 		If ('insert)
 		{
 			// Neem een exclusieve lock op het object
+			d WLIP^vhDBG(127,"%LockId "_Object_" ("_Object.%Id()_") [DbUtils.OnBeforeSave()]")
 			Set StatusCode = Object.%LockId(Object.%Id(), 0)
+			
 			If $$$ISERR(StatusCode) {
 				$$$ThrowErrorStatus($$$errGeneralError,"Lock kon niet verkregen worden voor object met %Id='" _ Object.%Id() _ "' van klasse '" _ Object.%ClassName() _ "'!",StatusCode)
 			}
@@ -44,6 +46,7 @@
 			Else
 			{
 				// Release de zelf geplaatste lock voor de error
+				d WLIP^vhDBG(127,"%UnlockId "_Object_" ("_Object.%Id()_")  [DbUtils]")
 				Do Object.%UnlockId(Object.%Id(),0)
 				Do ResultSet.Close()
 				$$$ThrowError($$$errGeneralError,"De InstanceVersion van het te saven object met %Id='" _ Object.%Id() _ "' van klasse '" _ Object.%ClassName() _ "' werd niet gevonden in de databank!")
@@ -52,9 +55,11 @@
 			If (Object.InstanceVersion < InstanceVersionDB)
 			{
 				// Release de zelf geplaatste lock voor de error
-				Do Object.%UnlockId(Object.%Id(),0)
+				d WLIP^vhDBG(127,"%UnlockId "_Object_" ("_Object.%Id()_")  [DbUtils]")
+				set sc = Object.%UnlockId(Object.%Id(),0)
+				if 'sc $$$ThrowError($$$errGeneralError,"UnlockError")
 				Do ResultSet.Close()
-				$$$ThrowError($$$errGeneralError,"Error: #5800 Object met ID '" _ Object.%Id() _ "' opslaan is mislukt: de huidige database versie is '" _ InstanceVersionDB _ "', maar de gebruikte bron-versie is '" _ Object.InstanceVersion _ "'.")
+				$$$ThrowError($$$errGeneralError,"Error: #5800 Object met ID '"_Object.%Id()_"' opslaan is mislukt: de huidige database versie is '"_InstanceVersionDB_"', maar de gebruikte bron-versie is '"_Object.InstanceVersion_"'.")
 			}
 			Do ResultSet.Close()
 		}
@@ -72,7 +77,10 @@
 <Implementation><![CDATA[
 	// Verwijder de zelf geplaatste lock voor de update van de instanceversion
 	If ('insert) {
-		Do Object.%UnlockId(Object.%Id(),0)
+		d WLIP^vhDBG(127,"Unlock "_Object_" ("_Object.%Id()_") [DbUtils]")
+		Set StatusCode = $zobjclassmethod(Object.%ClassName(1), "%UnlockId", Object.%Id(), 0)
+		d WLIP^vhDBG(127,"S: "_StatusCode)
+		//Do Object.%UnlockId(Object.%Id(),0)
 	}
 	// Plaats de lock voor de transactie als het object voor het eerst werd gesaved	
 	If ((insert) && (##class(TxScope).Huidige().InTransactie())) {
@@ -159,6 +167,16 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="CheckStatusCode">
+<FormalSpec>StatusCode:%Status,Message:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+		If $$$ISERR(StatusCode) {
+			$$$ThrowErrorStatus($$$errGeneralError,Message,StatusCode)
+		}
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="1927385136"/>
+<Checksum value="3720449540"/>
 </Export>