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

MS_29.11.2015

Browse Source
This commit is contained in:
SchreiberM
2015-11-30 09:32:30 +01:00
parent 7ee607f4e5
commit 2cd1dc3a94
11 changed files with 312 additions and 6077 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -643,9 +643,9 @@ Public Class ClassControlCommandsUI
Return ClassDatabase.Execute_Scalar(SQL, True)
End Function
Public Shared Function ConnectRecord(foreignRecordID As Integer, recordID As Integer, Optional Comment As String = "")
Public Shared Function ConnectRecord(PARENT_RECORD As Integer, LINK_RECORD As Integer, Optional Comment As String = "")
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 & "')"
Dim SQL = "INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID,COMMENT,ADDED_WHO) VALUES (" & PARENT_RECORD & "," & LINK_RECORD & ",'" & Comment & "','" & ADDED_WHO & "')"
If LogErrorsOnly = False Then ClassLogger.Add(">> ConnectRecord SQL: " & SQL, False)
Return ClassDatabase.Execute_non_Query(SQL, True)
End Function