timasabfrage inkl. Schalter.

VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb

@@ -2,6 +2,7 @@
     Dim mit As VERAG_PROG_ALLGEMEIN.cMitarbeiter
     Public Datum As Date = CDate(Now.ToShortDateString)
     Public typ As Integer = -1
+    Public Schalter As Integer = -1
 
     Sub New()
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -20,6 +21,12 @@
         cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Büro", "0"))
         cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Homeoffice", "3"))
 
+        cbxSchalterID.Items.Clear()
+        cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1", "1"))
+        cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2", "2"))
+        cbxSchalterID.changeItem("")
+
         If mit IsNot Nothing Then
             Label1.Text = "Zeit erfassen für: " & mit.mit_nname & " " & mit.mit_vname
             If mit.mit_homeoffice Then
@@ -29,10 +36,23 @@
                 rbHO.Checked = False
                 cboTyp.changeItem("Büro")
             End If
+
+            If mit.mit_niederlassung = "NKD" Then
+
+                cbxSchalterID.Visible = True
+            Else
+                cbxSchalterID.Visible = False
+            End If
+
+            lblSchalter.Visible = cbxSchalterID.Visible
+
+
+
         End If
 
 
 
+
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
@@ -40,10 +60,24 @@
         If typ = -1 Then
             MsgBox("Bitte Typ auswählen")
             DialogResult = Windows.Forms.DialogResult.None
+
         Else
             DialogResult = Windows.Forms.DialogResult.OK
         End If
 
+        If mit.mit_niederlassung = "NKD" AndAlso Schalter = -1 Then
+            MsgBox("Bitte Schalter auswählen")
+            DialogResult = Windows.Forms.DialogResult.None
+
+        Else
+            If Schalter > 0 Then
+                mit.mit_SchalterID = Schalter
+                mit.SAVE()
+            End If
+
+            DialogResult = Windows.Forms.DialogResult.OK
+            End If
+
     End Sub
 
     Private Sub rbBuero_CheckedChanged(sender As Object, e As EventArgs) Handles rbBuero.CheckedChanged, rbHO.CheckedChanged
@@ -58,4 +92,11 @@
 
     End Sub
 
+    Private Sub cbxSchalterID_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxSchalterID.SelectedValueChanged
+        If cbxSchalterID._value <> "" AndAlso IsNumeric(cbxSchalterID._value) AndAlso CInt(cbxSchalterID._value) > 0 Then
+            Schalter = cbxSchalterID._value
+        Else
+            Schalter = -1
+        End If
+    End Sub
 End Class