Überarbeitung Schichtmodell

UID/Dienstplan/frmSchichtenZeiten.vb

@@ -113,6 +113,9 @@
             cbxAktiv.Checked = SCHICHT.dedet_Aktiv
             txtZusatzAL.Text = SCHICHT.dedet_bezLeiter
 
+            cbxHauptsplitschicht.Checked = SCHICHT.dedet_Hauptsplitschicht
+            cbxSplitschicht.Checked = SCHICHT.dedet_Splitschicht
+
             If SCHICHT.dedet_ExcelBgFarbe IsNot Nothing Then
                 btnExcelColor.BackColor = ColorTranslator.FromHtml(SCHICHT.dedet_ExcelBgFarbe)
                 CheckBox2.Checked = True
@@ -227,4 +230,20 @@
             frbBGExcelMonat.BackColor = ColorDialog3.Color
         End If
     End Sub
+
+    Private Sub cbxHauptsplitschicht_CheckedChanged(sender As Object, e As EventArgs) Handles cbxHauptsplitschicht.CheckedChanged
+
+        If cbxHauptsplitschicht.Checked Then
+            cbxSplitschicht.Checked = False
+        End If
+
+    End Sub
+
+    Private Sub cbxSplitschicht_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSplitschicht.CheckedChanged
+
+        If cbxSplitschicht.Checked Then
+            cbxHauptsplitschicht.Checked = False
+        End If
+
+    End Sub
 End Class