timas, Rechnungausgang, etc.

VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb

@@ -0,0 +1,38 @@
+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