MS27062016

app/DD-Record-Organiser/frmConstructorDesigner.vb

@@ -884,4 +884,28 @@ Public Class frmConstructorDesigner
             MsgBox("Error in Load SQL for User:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
+
+    Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
+        Dim msg As String = "Wollen Sie diesen Constructor wirklich löschen?"
+        If USER_LANGUAGE <> "de-DE" Then
+            msg = "Do You really want to delete this constructor?"
+        End If
+        Dim result As MsgBoxResult = MsgBox(msg, MsgBoxStyle.YesNo)
+        If result = MsgBoxResult.Yes Then
+            Try
+                Dim CurrentID = CONSTRUCTOR_IDTextBox.Text
+                Dim sql = "EXEC PRPMO_DELETE_CONSTRUCTOR " & CurrentID
+                If ClassDatabase.Execute_non_Query(sql) = True Then
+                    MsgBox("Constructor was deleted!", MsgBoxStyle.Information)
+                    Load_Head()
+                    Load_TreeViewEbene()
+                    Load_ConstructorUser()
+                End If
+            Catch ex As Exception
+                MsgBox("Unexpected Error in delete Constructor:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            End Try
+        Else
+            MsgBox("Unexpected error in executing delete-statement! Check log!", MsgBoxStyle.Exclamation)
+        End If
+    End Sub
 End Class