MS

2016-11-10 15:59:24 +01:00
parent 8f6d151f3a
commit 0a5530aa8f
11 changed files with 1194 additions and 1316 deletions
--- a/app/DD-Record-Organiser/ClassControlCommandsUI.vb
+++ b/app/DD-Record-Organiser/ClassControlCommandsUI.vb
@@ -1007,7 +1007,7 @@ Public Class ClassControlCommandsUI

    Public Shared Function GetLastRecord()
        Dim ADDED_WHO As String = Environment.UserName
-        Dim SQL = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where ADDED_WHO = '" & ADDED_WHO & "'"
+        Dim SQL = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND  ADDED_WHO = '" & ADDED_WHO & "'"
        Return ClassDatabase.Execute_Scalar(SQL, True)
    End Function