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

MS-Changes

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-11-07 10:11:01 +01:00
parent 020bd7a390
commit fb6204abbc
5 changed files with 23 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -37,7 +37,7 @@ Public Class ClassRecordCommands
Public Shared Function CreateRecord(EntityID)
Dim SQL = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID,RECORD_ENTITY_ID) VALUES ('" & USER_USERNAME & "', " & EntityID & ",4711)"
Return ClassDatabase.Execute_non_Query(SQL) = True
Return ClassDatabase.Execute_non_Query(SQL)
End Function
Public Shared Function GetLastRecord()
Dim SQL = String.Format("SELECT MAX(GUID) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = {0} AND UPPER(ADDED_WHO) = UPPER('{1}') AND DELETED = 0", CURRENT_ENTITY_ID, USER_USERNAME)
@@ -49,4 +49,9 @@ Public Class ClassRecordCommands
If LogErrorsOnly = False Then ClassLogger.Add(" >> ConnectRecord SQL: " & SQL, False)
Return ClassDatabase.Execute_non_Query(SQL)
End Function
Public Shared Function CHECK_RECORD_FINAL(RecordId As Integer, IsInsert As Boolean)
Dim SQL = String.Format("EXEC PRPMO_RECORD_CHECK_INTEGRITY {0},{1},{2}", RecordId, Environment.UserName, IsInsert)
Return ClassDatabase.Execute_non_Query(SQL)
End Function
End Class