Dienstplan

UID/Dienstplan/frmSchichtenZeiten.vb

@@ -1,4 +1,6 @@
-Public Class frmSchichtenZeiten
+Imports System.Windows
+
+Public Class frmSchichtenZeiten
     Dim ADMIN As New cOptionenDAL
     Dim DP As New cDienstplan
     Public niederlassung As String = ""
@@ -109,9 +111,11 @@
                 CheckBox1.Checked = False
             End If
 
-             txtExcelMonat.Text = SCHICHT.dedet_ExcelMonatBezeichnung
+            txtExcelMonat.Text = SCHICHT.dedet_ExcelMonatBezeichnung
             cbxAktiv.Checked = SCHICHT.dedet_Aktiv
             txtZusatzAL.Text = SCHICHT.dedet_bezLeiter
+            cbxSplitschicht.Checked = SCHICHT.dedet_Splitschicht
+            cbxHauptsplitschicht.Checked = SCHICHT.dedet_Hauptsplitschicht
 
             cbxHauptsplitschicht.Checked = SCHICHT.dedet_Hauptsplitschicht
             cbxSplitschicht.Checked = SCHICHT.dedet_Splitschicht
@@ -155,7 +159,7 @@
                 bg = DBNull.Value
             End If
 
-             
+
             Dim bgExcel As Object
             If CheckBox2.Checked Then
                 bgExcel = ColorTranslator.ToHtml(btnExcelColor.BackColor)
@@ -170,8 +174,9 @@
                 bgExcelMonat = DBNull.Value
             End If
 
+
             DP.updateEintraegeDetails_Benuterdef(dgvSchihten.SelectedRows(0).Cells("dedet_id").Value, txtDPBezeichnung.Text, txtProzent.Text, txtExcelBezeichnung.Text, txtExcelBezeichnung2.Text, txtExcelBezeichnung3.Text, txtExcelZeilen.Text, cbxBenutzerdefinierteSchicht.Checked, cbxSchichtArbeitszeit.Checked,
-                                                 IIf(IsNumeric(txtReihenfolge.Text), txtReihenfolge.Text, 50), cbxTagesSchichtWechsel.Checked, txtSchichtWechselZu.Text, txtHotKey.Text, bg, bgExcel, txtZusatzAL.Text, bgExcelMonat, txtExcelMonat.Text, cbxAktiv.Checked)
+                                                 IIf(IsNumeric(txtReihenfolge.Text), txtReihenfolge.Text, 50), cbxTagesSchichtWechsel.Checked, txtSchichtWechselZu.Text, txtHotKey.Text, bg, bgExcel, txtZusatzAL.Text, bgExcelMonat, txtExcelMonat.Text, cbxAktiv.Checked, cbxSplitschicht.Checked, cbxHauptsplitschicht.Checked)
 
         End If
         '    d.dedet_bezeichnungDP = dr.Item("dedet_bezeichnungDP")
@@ -179,7 +184,7 @@
         ''   d.dedet_bezeichnungExcel = dr.Item("dedet_bezeichnungExcel")
         '   d.dedet_ZeilenExcel = dr.Item("dedet_ZeilenExcel")
 
-        
+
 
     End Sub
 
@@ -194,11 +199,24 @@
     End Sub
 
     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()
+
+
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        MsgBox("Funktion noch nicht verfügbar!")
+        If dgvSchihten.SelectedRows.Count > 0 Then
+
+            If vbYes = MsgBox("Möchten Sie die Schicht " & dgvSchihten.SelectedRows(0).Cells("dedet_info").Value & " wirklich löschen?", vbYesNo) Then
+                DP.delEintraegeDetails(dgvSchihten.SelectedRows(0).Cells("dedet_id").Value)
+                initSchichten()
+            End If
+        End If
     End Sub
 
     Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged