MS18.10.2017

2017-10-18 11:40:17 +02:00
parent 76796df71f
commit ccdac594d1
12 changed files with 1077 additions and 974 deletions
--- a/app/DD-Record-Organizer/ClassRecordState.vb
+++ b/app/DD-Record-Organizer/ClassRecordState.vb
@@ -56,10 +56,11 @@
            ElseIf dt.Rows.Count = 0 Then
                Return Nothing
            Else
-                Throw New Exception("Record" & RecordId & " is not unique")
+                MsgBox("Unexpected behaviour in IsRecordLocked: ", MsgBoxStyle.Information)
+                Return Nothing
            End If
        Catch ex As Exception
-            MsgBox("Error in IsRecordInWork: " + vbNewLine + ex.Message, MsgBoxStyle.Critical)
+            MsgBox("Error in IsRecordLocked: " + vbNewLine + ex.Message, MsgBoxStyle.Critical)
            Return Nothing
        End Try
    End Function