RefreshLicense#

app/DD_PM_WINDREAM/frmMain.vb

@@ -827,6 +827,20 @@ Public Class frmMain
         Decide_Load()
         tsslblLastSysnc.Text = "Letzte Synchronisation: " & Now.ToLongTimeString
         If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo()
+        Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", Environment.UserName, CLIENT_SELECTED)
+        Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql)
+        If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
+            USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
+            If USER_LANGUAGE = "de-DE" Then
+                tslblUserLoggedin.Text = "User eingeloggt: " & USERCOUNT_LOGGED_IN
+            Else
+                tslblUserLoggedin.Text = "User logged in: " & USERCOUNT_LOGGED_IN
+            End If
+        End If
+
+
+
+
     End Sub
 
     Private Sub NotifyIcon1_Click(sender As System.Object, e As EventArgs) Handles NotifyIcon1.Click