BH, Kundenkontakte, MD;

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -291,7 +291,7 @@ Public Class frmMitarbeitersuche
 
     End Sub
     Private Sub pic_MouseHover(sender As Object, e As EventArgs) Handles pic.MouseHover
-        Dim point
+        Dim point As Point
         pic.PointToClient(point)
 
     End Sub
@@ -337,7 +337,7 @@ Public Class frmMitarbeitersuche
                 'postgang ausstempen, dann beginn post, + 1h ende post 
                 Dim askPost As MsgBoxResult = MsgBox("Postgang für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " eintragen?" & vbNewLine & Now.ToString(), vbYesNo)
                 If askPost = vbYes Then
-                    Dim info
+                    Dim info As String = ""
                     Dim timestp = Now
 
                     Dim timeEntryExisting As Boolean = False
@@ -388,7 +388,7 @@ Public Class frmMitarbeitersuche
                 Dim aktengang As DateTime = Now().AddMinutes(-minutesBeforeStart)
                 Dim askPost As MsgBoxResult = MsgBox("Aktengang für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " eintragen?" & vbNewLine & aktengang.ToString(), vbYesNo)
                 If askPost = vbYes Then
-                    Dim info
+                    Dim info As String = ""
                     Dim timestp = aktengang
 
                     Dim timeEntryExisting As Boolean = False
@@ -428,7 +428,7 @@ Public Class frmMitarbeitersuche
                 'normales kommen/gehen
                 Dim a As MsgBoxResult = MsgBox(IIf(cbxHomeoffice.Checked, "Homeoffice", "Büro") & vbNewLine & sender.text & " für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & vbNewLine & Now.ToString(), vbYesNo)
                 If a = vbYes Then
-                    Dim info
+                    Dim info As String = ""
                     timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, art, resultCode)
                     MsgBox(info)
                     Thread.Sleep(2000) 'warten bis Eintrag in Timas-DB