neu

SDL/frmMain.vb

@@ -47,7 +47,7 @@ Public Class frmMain
 
     Private Sub TimerUPDATE_Tick(sender As Object, e As EventArgs) Handles TimerUPDATE.Tick
         Dim SDL As New cOptionenDAL
-        If CInt(SDL.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.Version.Replace(".", "")) Then
+        If CInt(SDL.getAktuelleVersion().Replace(".", "")) > CInt(Application.ProductVersion.Replace(".", "")) Then
             Label9.Visible = True
         End If
     End Sub
@@ -93,7 +93,7 @@ Public Class frmMain
         End If
 
 
-        lblVersion.Text = "V " & My.Resources.Version
+        lblVersion.Text = "V " & Application.ProductVersion
         lblMs.Text = ""
         Dim usrCntl As New usrCntlWelcome
         pnlMain.Controls.Add(usrCntl)
@@ -925,6 +925,19 @@ Public Class frmMain
             setInfo("err", "Daten sind nicht freigegeben!", 3)
         End If
     End Sub
+
+    Private Sub BesuchsberichteToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BesuchsberichteToolStripMenuItem1.Click
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Besuchsberichte", Me) = 0 Then
+            clrPnlMain()
+            Dim usrCntl As New usrCntlBesuchsberichte
+            usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
+            pnlMain.Controls.Add(usrCntl)
+        Else
+            setInfo("err", "Keine Berechtigung!", 3)
+        End If
+    End Sub
+
+
 End Class
 
 Public Class MyRenderer