38 lines
1011 B
VB.net
38 lines
1011 B
VB.net
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 |