EDMI: Checkin/out

Service.EDMIService/IDB/Helpers.vb

@@ -202,13 +202,15 @@ Namespace IDB
 
         Public Function SetObjectState(pObjectId As Long, pState As String, pWho As String) As Boolean
             Try
+                Logger.Debug("Setting object state for [{0}]: [{1}]")
+
                 Dim oSql As String = $"EXEC PRIDB_OBJECT_SET_STATE {pObjectId}, '{pState}', '{pWho}'"
                 Dim oResult = Database.ExecuteNonQuery(oSql)
                 If oResult = False Then
                     Return False
                 End If
 
-                Logger.Info("Object state for [{0}] created: [{1}]", pObjectId, pState)
+                Logger.Info("Object state for [{0}] set: [{1}]", pObjectId, pState)
                 Return True
 
             Catch ex As Exception