MS WISAG

app/DD_PM_WINDREAM/frmMain.vb

@@ -103,11 +103,13 @@ Public Class frmMain
                 tslblLicenses.Text = "Anzahl Lizenzen: " & LICENSE_COUNT
                 LOGGER.Debug("Initializing MainForm....")
                 If ERROR_STATE = "NO USER" Then
-                    MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt!" & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
+                    Dim oDT As DataTable = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("No Userconfig")
+                    MsgBox(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2"), MsgBoxStyle.Critical, "Exception")
                     Me.Close()
                 ElseIf USER_IN_MODULE = False Then
                     If USER_IS_ADMIN = False Then
-                        MsgBox("Achtung: Sie sind nicht für die Nutzung von ProcessManager freigegeben!" & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
+                        Dim oDT As DataTable = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("No Module Configuration")
+                        MsgBox(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2"), MsgBoxStyle.Critical, "Exception")
                         Me.Close()
                     End If
                 Else
@@ -124,6 +126,11 @@ Public Class frmMain
                     Else
                         tsddConfig.Visible = False
                     End If
+                    If MONITORING_ACTIVE = False Then
+                        tsbtnMonitoring.Visible = False
+                    Else
+                        tsbtnMonitoring.Visible = True
+                    End If
                     'Anzahl der eingeloggten User
                     If USER_LANGUAGE <> "de-DE" Then
                         tslblUserLoggedin.Text = "License Count: " & USERCOUNT_LOGGED_IN
@@ -1732,10 +1739,6 @@ Public Class frmMain
         ShowMonitor()
     End Sub
 
-    Private Sub MonitoringToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MonitoringToolStripMenuItem.Click
-        frmMonitor.ShowDialog()
-    End Sub
-
     Private Sub frmMain_Resize(sender As Object, e As EventArgs) Handles Me.Resize
         If formShown = False Then
             Exit Sub
@@ -1748,4 +1751,8 @@ Public Class frmMain
         End If
         My.Settings.Save()
     End Sub
+
+    Private Sub tsbtnMonitoring_Click(sender As Object, e As EventArgs) Handles tsbtnMonitoring.Click
+        frmMonitor.ShowDialog()
+    End Sub
 End Class