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

    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
                rbHO.Checked = True
                cboTyp.changeItem("Homeoffice")
            Else
                rbHO.Checked = False
                cboTyp.changeItem("Büro")
            End If
        End If



    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If typ = -1 Then
            MsgBox("Bitte Typ auswählen")
            DialogResult = Windows.Forms.DialogResult.None
        Else
            DialogResult = Windows.Forms.DialogResult.OK
        End If

    End Sub

    Private Sub rbBuero_CheckedChanged(sender As Object, e As EventArgs) Handles rbBuero.CheckedChanged, rbHO.CheckedChanged

        If rbBuero.Checked Then
            typ = 0
        ElseIf rbHO.Checked Then
            typ = 3
        Else
            typ = -1
        End If

    End Sub

End Class