Kunedbearbeiten, etc.

VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb

@@ -1,6 +1,7 @@
 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.
@@ -13,9 +14,6 @@
         mit = mit_
     End Sub
 
-
-
-
     Private Sub frmTimasabfrage(sender As Object, e As EventArgs) Handles Me.Load
 
         cboTyp.Items.Clear()
@@ -25,8 +23,10 @@
         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
@@ -35,4 +35,27 @@
 
     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