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

UID/Dienstplan/frmDiestAddMa.vb

@@ -55,6 +55,10 @@ Public Class frmDiestAddMa
         cboFunktion.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ferialpraktikant", "Ferialpraktikant"))
         cboFunktion.SelectedIndex = 0
 
+        cboLand.Items.Clear()
+        cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT", "AT"))
+        cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE", "DE"))
+
 
 
 
@@ -107,6 +111,11 @@ Public Class frmDiestAddMa
         '   MsgBox(txtRotVonMo.Text)
         MusterErr = False
         If checkValues() Then
+            If cboLand.Text = "" Then
+                MsgBox("Bitte das Land eintragen")
+                cboLand.Focus()
+                Exit Sub
+            End If
             If initMA() Then
                 Dim tz As List(Of cDienstTeilzeit) = initArbVerh()
                 If MusterErr Then MsgBox("Bei der Prüfung der Daten für die Muster-Vorlage ist ein Fehler aufgetreten! Bitte um Prüfung!") : Exit Sub
@@ -375,11 +384,13 @@ Public Class frmDiestAddMa
         cboMyItemSelect(cboAbt, MA.dstma_abteilung)
         cboMyItemSelect(cboFunktion, MA.dstma_funktion)
         cboMyItemSelect(cboArbVerh, MA.dstma_arbvh)
+        cboMyItemSelect(cboLand, MA.dstma_land)
 
         txtWoStd.Text = MA.dstma_wochenStunden
         cboStammSchicht.Text = MA.dstma_stammSchicht
         txtKuerzel.Text = MA.dstma_kuerzel
         txtReihenfolge.Text = MA.dstma_reihenfolge
+        'cboLand.Text = MA.dstma_land
         Button1.BackColor = ColorTranslator.FromHtml(MA.dstma_farbe)
 
         If MA.dstma_TageProWoche >= 0 Then
@@ -628,6 +639,7 @@ Public Class frmDiestAddMa
             MA.dstma_inaktiv = cbxInaktiv.Checked
             MA.dstma_4wo = cbx4WoRhythmus.Checked
             MA.dstma_TzFeiertageStd = Nothing
+            MA.dstma_land = CType(cboLand.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value
             If IsNumeric(txtStdFeiertagTZ.Text) And txtStdFeiertagTZ.Visible Then MA.dstma_TzFeiertageStd = txtStdFeiertagTZ.Text
 
             If IsNumeric(cboDaysPerWeek.Text) Then
@@ -643,6 +655,7 @@ Public Class frmDiestAddMa
     End Function
     Private Sub cboMA_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMA.SelectedIndexChanged
         '  Dim oItem As VERAG_PROG_ALLGEMEIN.MyListItem = CType(cboMA.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem)
+
     End Sub
 
     Function cboMyItemSelect(cbo As ComboBox, value As String) As Boolean