AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-10-10 08:36:55 +02:00
parent 6b4a3cc78e
commit 5ea4bedfa1
3 changed files with 33 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD-Record-Organizer/ClassRecordCommands.vb
View File

@@ -4,7 +4,7 @@
Return ClassDatabase.Execute_non_Query(SQL) = True
End Function
Public Shared Function GetLastRecord()
Dim SQL = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND ADDED_WHO = '" & USER_USERNAME & "'"
Dim SQL = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = " & CURRENT_ENTITY_ID & " AND UPPER(ADDED_WHO) = '" & USER_USERNAME & "'"
Return ClassDatabase.Execute_Scalar(SQL)
End Function