61 lines
1.7 KiB
VB.net
61 lines
1.7 KiB
VB.net
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 |