Timas, Fakt -> Leihgeldkasse, etc.

VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb

@@ -1,5 +1,6 @@
 Public Class frmTimasabfrage
     Dim mit As VERAG_PROG_ALLGEMEIN.cMitarbeiter
+    Dim nurBuero As Boolean = False
     Public Datum As Date = CDate(Now.ToShortDateString)
     Public typ As Integer = -1
     Public Schalter As Integer = -1
@@ -15,11 +16,25 @@
         mit = mit_
     End Sub
 
+    Sub New(mit_ As cMitarbeiter, nurBuero_ As Boolean)
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        mit = mit_
+        nurBuero = nurBuero_
+    End Sub
+
     Private Sub frmTimasabfrage(sender As Object, e As EventArgs) Handles Me.Load
 
         cboTyp.Items.Clear()
         cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Büro", "0"))
-        cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Homeoffice", "3"))
+        If Not nurBuero Then
+            cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Homeoffice", "3"))
+            rbHO.Enabled = True
+        Else
+            rbHO.Enabled = False
+        End If
+
+
 
         cbxSchalterID.Items.Clear()
         cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
@@ -29,7 +44,7 @@
 
         If mit IsNot Nothing Then
             Label1.Text = "Zeit erfassen für: " & mit.mit_nname & " " & mit.mit_vname
-            If mit.mit_homeoffice Then
+            If mit.mit_homeoffice AndAlso Not nurBuero Then
                 rbHO.Checked = True
                 cboTyp.changeItem("Homeoffice")
             Else