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

jj 02.06

Browse Source
This commit is contained in:
JenneJ
2016-06-02 15:49:14 +02:00
parent 64603ac44c
commit 9997163e72
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -1333,6 +1333,9 @@ Public Class frmConstructor_Main
#Region "DetailView - Toolstrip" #Region "DetailView - Toolstrip"
Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click
' Vor dem Hinzufügen muss der EditMode auf jeden Fall ausgeschaltet werden!!
DisableEditMode()
'Wenn es eine Parent_ID gibt aber kein PArent_Datensatz ausgewählt wurde muss dies nachgeholt werden 'Wenn es eine Parent_ID gibt aber kein PArent_Datensatz ausgewählt wurde muss dies nachgeholt werden
If PARENT_ENTITYID > 0 Then If PARENT_ENTITYID > 0 Then
If PARENT_SKIPPED = True And PARENT_RECORDID = 0 Then If PARENT_SKIPPED = True And PARENT_RECORDID = 0 Then
@@ -1378,10 +1381,10 @@ Public Class frmConstructor_Main
' Den Record anlegen, damit wir eine RECORD_ID bekommen ' Den Record anlegen, damit wir eine RECORD_ID bekommen
ClassControlCommandsUI.CreateRecord(ENTITY_ID) ClassControlCommandsUI.CreateRecord(ENTITY_ID)
' Die RECORD_ID auslesen und setzen ' Die RECORD_ID auslesen und setzen
Dim NewRecordId As Integer = ClassControlCommandsUI.GetLastRecord() NEW_RECORD_ID = ClassControlCommandsUI.GetLastRecord()
CURRENT_RECORD_ID = NewRecordId CURRENT_RECORD_ID = NEW_RECORD_ID
RECORD_ID = NewRecordId RECORD_ID = NEW_RECORD_ID
SELECTED_RECORD_ID = NewRecordId SELECTED_RECORD_ID = NEW_RECORD_ID
If PARENT_ENTITYID > 0 And PARENT_RECORDID > 0 Then If PARENT_ENTITYID > 0 And PARENT_RECORDID > 0 Then
If ClassControlCommandsUI.ConnectRecord(PARENT_RECORDID, CURRENT_RECORD_ID, "INSERT RECORD") = False Then If ClassControlCommandsUI.ConnectRecord(PARENT_RECORDID, CURRENT_RECORD_ID, "INSERT RECORD") = False Then
MsgBox("Unexpected Error in Connect Record - Please check the logfile and inform the admin!", MsgBoxStyle.Critical) MsgBox("Unexpected Error in Connect Record - Please check the logfile and inform the admin!", MsgBoxStyle.Critical)