MS

2018-01-05 14:59:32 +01:00
parent 27abfd0b74
commit ef06120f13
13 changed files with 470 additions and 784 deletions
--- a/app/DD-Record-Organizer/ClassRecordCommands.vb
+++ b/app/DD-Record-Organizer/ClassRecordCommands.vb
@@ -52,6 +52,7 @@ Public Class ClassRecordCommands
        Return ClassDatabase.Execute_non_Query(SQL)
    End Function
    Public Shared Function CHECK_RECORD_FINAL(RecordId As Integer, IsInsert As Boolean)
+        If RecordId = 0 Then Return True
        Dim SQL = String.Format("EXEC PRPMO_RECORD_CHECK_INTEGRITY {0},'{1}',{2}", RecordId, Environment.UserName, IsInsert)
        Return ClassDatabase.Execute_non_Query(SQL)
    End Function