Public Class frmTimasabfrage
    Dim mit As VERAG_PROG_ALLGEMEIN.cMitarbeiter
    Public Datum As Date = CDate(Now.ToShortDateString)

    Sub New()
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
    End Sub

    Sub New(mit_ As cMitarbeiter)
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        mit = mit_
    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 mit IsNot Nothing Then
            Label1.Text = "Zeit erfassen für: " & mit.mit_nname & " " & mit.mit_vname
            If mit.mit_homeoffice Then
                cboTyp.changeItem("Homeoffice")
            Else
                cboTyp.changeItem("Büro")
            End If
        End If



    End Sub

End Class