From 0e757a26280f83b1594d0e6e7220ee7a4cfac79e Mon Sep 17 00:00:00 2001
From: Digital Data - Marlon Schreiber <developer01@didalog.de>
Date: Thu, 4 Jul 2019 11:42:39 +0200
Subject: [PATCH] RefreshLicense#

---
 app/DD_PM_WINDREAM/frmMain.vb | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb
index 2a92ff7..0674624 100644
--- a/app/DD_PM_WINDREAM/frmMain.vb
+++ b/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