JJ 02.06

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -1330,6 +1330,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_ID > 0 Then
             If PARENT_SKIPPED = True And PARENT_RECORDID = 0 Then
@@ -1375,10 +1378,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_ID > 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)
@@ -1388,7 +1391,7 @@ Public Class frmConstructor_Main
                 ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls, CURRENT_PARENT_ID, ENTITY_ID)
 
                 ' Das StatusLabel aktualisieren
-                Update_Record_Label(NewRecordId)
+                Update_Record_Label(NEW_RECORD_ID)
                 ' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden
                 tsButtonSave.Enabled = True
                 ' Muss aktiviert werden, sonst funktionieren die Combobox Abhängigkeits Events nicht
@@ -1557,13 +1560,7 @@ Public Class frmConstructor_Main
             Return False
         End Try
 
-        If CtrlCommandUI.IsInsert Then
-            tsButtonSave.Enabled = False
-            tsButtonCancel.Visible = False
-        Else
-            ' DisableEditMode()
-        End If
-
+        tsButtonCancel.Visible = False
         CtrlCommandUI.IsInsert = False
         EDIT_STATE = EditState.None
         RECORD_CHANGED = False