Name angepasst, akutelle VeragProgAllgemein eingefügt.

Dokumentation/Login/Login.vb

@@ -39,10 +39,15 @@ Public Class Login
 
     Public Function LoadUSRID()
         If Class1.offline Then Exit Function
-        Dim ds As New DataSet
-        cSQL.SQL2DS("select * from [ADMIN].dbo.tblMitarbeiter where mit_aliasad_domain = '" & Environment.UserDomainName & "' AND mit_AliasAD_Username = '" & Environment.UserName & "'", ds)
-        VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = ds.Tables(0).Rows(0).Item("mit_id")
-        VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA()
+
+        Try
+            Dim ds As New DataSet
+            cSQL.SQL2DS("select * from [ADMIN].dbo.tblMitarbeiter where mit_aliasad_domain = '" & Environment.UserDomainName & "' AND mit_AliasAD_Username = '" & Environment.UserName & "'", ds)
+            VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = ds.Tables(0).Rows(0).Item("mit_id")
+            VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA()
+        Catch ex As Exception
+            MsgBox("Login.vb, LoadUSRID: " & ex.Message)
+        End Try
 
         'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
     End Function
@@ -106,7 +111,7 @@ Public Class Login
                 If txt = True Then lblInfo.Text = "Benutzer ist nicht berechtigt!"
             End If
         Catch ex As Exception
-            MsgBox("Fehler Abfrage: " & ex.Message & debugtext)
+            MsgBox("Fehler Abfrage Login.vb, Abfrage: " & ex.Message & debugtext)
         End Try
 
 
@@ -220,23 +225,27 @@ Public Class Login
 
     Function ShowMain(Optional ByVal MessageActivated As Boolean = True)
         Dim main As New Main
+        Try
+            For Each right As cBerechtigungen In Class1.LoggedOnUserRights
+                If right.Standort = "DokuAdmin" And right.Zugriff = "Y" Then
+                    Class1.LoggedOnUserisAdmin = True
+                    main.BenutzerToolStripMenuItem.Enabled = True
+                    main.NetzwerkeToolStripMenuItem.Enabled = True
+                    main.AllesSichernCSVToolStripMenuItem.Enabled = True
+                    Exit For
+                Else
+                    main.BenutzerToolStripMenuItem.Enabled = False
+                    main.NetzwerkeToolStripMenuItem.Enabled = False
+                    main.AllesSichernCSVToolStripMenuItem.Enabled = False
+                End If
+            Next
 
-        For Each right As cBerechtigungen In Class1.LoggedOnUserRights
-            If right.Standort = "DokuAdmin" And right.Zugriff = "Y" Then
-                Class1.LoggedOnUserisAdmin = True
-                main.BenutzerToolStripMenuItem.Enabled = True
-                main.NetzwerkeToolStripMenuItem.Enabled = True
-                main.AllesSichernCSVToolStripMenuItem.Enabled = True
-                Exit For
-            Else
-                main.BenutzerToolStripMenuItem.Enabled = False
-                main.NetzwerkeToolStripMenuItem.Enabled = False
-                main.AllesSichernCSVToolStripMenuItem.Enabled = False
-            End If
-        Next
+            main.picAVISOMessenger.Enabled = MessageActivated
+            main.Show()
+        Catch ex As Exception
+            MsgBox("Login.vb Showmain: " & ex.Message)
+        End Try
 
-        main.picAVISOMessenger.Enabled = MessageActivated
-        main.Show()
 
     End Function