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

MS_20.01

Browse Source
This commit is contained in:
SchreiberM
2016-01-20 15:46:55 +01:00
parent 48fe3a4845
commit b89733ece6
22 changed files with 153 additions and 11439 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -294,7 +294,7 @@ Public Class ClassControlCommandsUI
' Die eben erstellte RecordID holen
RECORD_ID = GetLastRecord()
CURRENT_RECORD_ID = RECORD_ID
' Wenn gegeben, foreignrecordID mit Record verknüpfen
If foreignRecordID > 0 Then
If LogErrorsOnly = False Then ClassLogger.Add(">> foreignRecordID: " & foreignRecordID & "; Record-ID: " & RECORD_ID, False)
@@ -308,7 +308,7 @@ Public Class ClassControlCommandsUI
IsInsert = False
NEW_RECORD_ID = RECORD_ID
CURRENT_RECORD_ID = RECORD_ID
Return "Neuer Datensatz eingefügt - " & Now
ElseIf IsInsert = False Then
If LogErrorsOnly = False Then ClassLogger.Add(">> (SaveRecord) Update RecordID: " & RECORD_ID, False)
@@ -571,9 +571,14 @@ Public Class ClassControlCommandsUI
checked_result_string = String.Join(";", checked_result)
Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
If ClassDatabase.Execute_Scalar(SQL) = 0 Then
If ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(">> Checked ListBox record '" & rid.ToString & "' was linked successfully.", False)
If CURRENT_RECORD_ID = 0 Then
MsgBox("Attention: no current record Selected!", MsgBoxStyle.Exclamation)
Else
If ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(">> Checked ListBox record '" & rid.ToString & "' was linked successfully.", False)
End If
End If
End If
End If
Catch ex As Exception