diff --git a/app/DD-Record-Organiser/frmConstructor_Main.vb b/app/DD-Record-Organiser/frmConstructor_Main.vb index 8e8215a..85f033c 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.vb @@ -1333,6 +1333,9 @@ Public Class frmConstructor_Main #Region "DetailView - Toolstrip" 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 If PARENT_ENTITYID > 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 ClassControlCommandsUI.CreateRecord(ENTITY_ID) ' Die RECORD_ID auslesen und setzen - Dim NewRecordId As Integer = ClassControlCommandsUI.GetLastRecord() - CURRENT_RECORD_ID = NewRecordId - RECORD_ID = NewRecordId - SELECTED_RECORD_ID = NewRecordId + NEW_RECORD_ID = ClassControlCommandsUI.GetLastRecord() + CURRENT_RECORD_ID = NEW_RECORD_ID + RECORD_ID = NEW_RECORD_ID + SELECTED_RECORD_ID = NEW_RECORD_ID If PARENT_ENTITYID > 0 And PARENT_RECORDID > 0 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)