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

MS_13.11_Final

Browse Source
This commit is contained in:
SchreiberM
2015-11-13 15:51:25 +01:00
parent 9f80eb5a3d
commit 365e92e98b
21 changed files with 619 additions and 355 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD-Record-Organiser/ClassControlCommandsUI.vb
View File

@@ -634,7 +634,7 @@ Public Class ClassControlCommandsUI
Public Shared Function CreateRecord(FormID)
Dim ADDED_WHO As String = Environment.UserName
Dim SQL = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID) VALUES ('" & ADDED_WHO & "', " & FormID & ")"
Return ClassDatabase.Execute_non_Query(SQL)
Return ClassDatabase.Execute_non_Query(SQL, True)
End Function
Public Shared Function GetLastRecord()
@@ -647,7 +647,7 @@ Public Class ClassControlCommandsUI
Dim ADDED_WHO As String = Environment.UserName
Dim SQL = "INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID,COMMENT,ADDED_WHO) VALUES (" & foreignRecordID & "," & recordID & ",'" & Comment & "','" & ADDED_WHO & "')"
If LogErrorsOnly = False Then ClassLogger.Add(">> ConnectRecord SQL: " & SQL, False)
Return ClassDatabase.Execute_non_Query(SQL)
Return ClassDatabase.Execute_non_Query(SQL, True)
End Function
'Function SaveRecord_OLD(RecordID As Integer, FormID As Integer, Optional foreignRecordID As Integer = 0) As String