Merge branch 'master' of http://scmadmin@172.24.11.74:90/scm/git/RecordOrganizer

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -1282,9 +1282,9 @@ Public Class frmConstructor_Main
 #Region "DetailView - Toolstrip"
 
     Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click
-        If CtrlCommandUI.IsInsert Then
-            Exit Sub
-        End If
+        'If CtrlCommandUI.IsInsert Then
+        '    Exit Sub
+        'End If
         Me.Cursor = Cursors.WaitCursor
         Try
             If TCDetails.SelectedTabPage.Text.StartsWith("Pos") = False Then
@@ -1295,14 +1295,23 @@ Public Class frmConstructor_Main
                 tsButtonShowWorkflowTasks.Enabled = True
                 CURRENT_PARENT_ID = PARENT_ID
                 ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls, CURRENT_PARENT_ID, ENTITY_ID)
-                dff()
+                ' 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
+                ' Das StatusLabel aktualisieren
+                Update_Record_Label(NewRecordId)
                 ' 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
                 CURRENT_RECORD_ENABLED = True
-                EDIT_STATE = EditState.Insert
+                ' EDIT_STATE muss hier (immer?) Update sein, sonst wird beim Speichern noch ein Datensatz angelegt
+                EDIT_STATE = EditState.Update
                 RECORD_CHANGED = True
-                tsslblRecord.Text = "Adding record ......"
+                'tsslblRecord.Text = "Adding record ......"
                 RIGHT_ONLY_READ = False
                 tslblLocked.Visible = False
                 tslblFileslocked.Visible = False
@@ -1311,6 +1320,8 @@ Public Class frmConstructor_Main
             MsgBox("Unexpected Error in Insert: " & ex.Message)
         Finally
             Me.Cursor = Cursors.Default
+            ' IsInsert muss true sein, damit wir wissen ob wir bei
+            ' Abbruch den Record Wieder löschen können
             CtrlCommandUI.IsInsert = True
         End Try
     End Sub
@@ -2270,6 +2281,13 @@ Public Class frmConstructor_Main
                 Catch ex As Exception
                     MsgBox("Error in Save Record Changes: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
                 End Try
+            Else
+                ' Wenn nicht gespeichert werden soll, den Record wieder löschen
+                If CtrlCommandUI.IsInsert = True Then
+                    CtrlCommandUI.DeleteRecord(CURRENT_RECORD_ID)
+                End If
+                
+
             End If
             CtrlCommandUI.IsInsert = False
             RECORD_CHANGED = False