isFeiertag, Control (Insert und Delete in Schichten), ExcelAusgabeDP, etc.

UID/Dienstplan/frmSchichtenZeiten.vb

@@ -1,4 +1,5 @@
 Imports System.Windows
+Imports Hardcodet.Wpf.TaskbarNotification.Interop
 
 Public Class frmSchichtenZeiten
     Dim ADMIN As New cOptionenDAL
@@ -200,12 +201,18 @@ Public Class frmSchichtenZeiten
 
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
 
-        MsgBox("Funktion noch nicht verfügbar!")
-
-        'dgvSchihten.AllowUserToAddRows = True
-        'Dim row As New DataGridViewRow
-        'dgvSchihten.Rows.Add()
+        Dim input = InputBox("Bitte geben Sie die Bezeichnung der neuen Schicht ein:", "Schicht anlegen")
+        If input <> "" Then
+            If checkNameIsValid(input) Then
+                DP.insertEintraegeDetails(input, niederlassung, True)
+                initSchichten()
+            Else
+                MsgBox("Für die Niederlassung" & niederlassung.ToString & " existiert bereits eine Schicht " & input)
+            End If
 
+        Else
+            MsgBox("Keine Bezeichnung angegeben!")
+        End If
 
     End Sub
 
@@ -264,4 +271,22 @@ Public Class frmSchichtenZeiten
         End If
 
     End Sub
+
+    Private Function checkNameIsValid(name As String) As Boolean
+
+        If dgvSchihten.Rows.Count = 0 Then Return True
+
+        For Each row As DataGridViewRow In dgvSchihten.Rows
+            If Not IsDBNull(row.Cells("dedet_info").Value) Then
+                If row.Cells("dedet_info").Value.ToLower = name.ToLower Then
+                    Return False
+                End If
+            End If
+
+        Next
+
+        Return True
+
+    End Function
+
 End Class