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

MS_18052016

Browse Source
This commit is contained in:
SchreiberM
2016-05-18 11:21:23 +02:00
parent 1530b63838
commit 41f2760a88
19 changed files with 4026 additions and 3465 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -310,41 +310,41 @@ Public Class ClassControlCommandsUI
Function SaveRecord(RecordID As Integer, FormID As Integer, Optional foreignRecordID As Integer = 0) As String
Try
Dim ADDED_WHO As String = Environment.UserName
Dim RECORD_ID As Integer
'Dim RECORD_ID As Integer
If IsInsert Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> (SaveRecord) Insert", False)
'If IsInsert Then
' If LogErrorsOnly = False Then ClassLogger.Add(" >> (SaveRecord) Insert", False)
' Den Record erstellen
If CreateRecord(FormID) = False Then
IsInsert = False
Return "ERROR - INSERT RECORD NOT SUCCESSFUL"
End If
' ' Den Record erstellen
' If CreateRecord(FormID) = False Then
' IsInsert = False
' Return "ERROR - INSERT RECORD NOT SUCCESSFUL"
' End If
' 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)
ConnectRecord(foreignRecordID, RECORD_ID)
End If
' ' 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)
' ConnectRecord(foreignRecordID, RECORD_ID)
' End If
' Für angegebene Control Typen den Wert speichern
InsertAllControls(FormID, RECORD_ID, _CtrlBuilder.AllControls)
' ' Für angegebene Control Typen den Wert speichern
' InsertAllControls(FormID, RECORD_ID, _CtrlBuilder.AllControls)
' Status zurücksetzen
IsInsert = False
' ' Status zurücksetzen
' IsInsert = False
NEW_RECORD_ID = RECORD_ID
' NEW_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)
UpdateAllControls(FormID, RecordID, _CtrlBuilder.AllControls)
' Return "Neuer Datensatz eingefügt - " & Now
'ElseIf IsInsert = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> (SaveRecord) Update RecordID: " & RecordID, False)
UpdateAllControls(FormID, RecordID, _CtrlBuilder.AllControls)
Return "Datensatz aktualisiert - " & Now
End If
Return "Datensatz aktualisiert - " & Now
'End If
Catch ex As Exception
MsgBox("Unexpected Error in SaveRecord: " & ex.Message, MsgBoxStyle.Critical)
End Try