AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

RefreshLicense#

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2019-07-04 11:42:39 +02:00
parent de9fb20088
commit 0e757a2628
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -827,6 +827,20 @@ Public Class frmMain
Decide_Load() Decide_Load()
tsslblLastSysnc.Text = "Letzte Synchronisation: " & Now.ToLongTimeString tsslblLastSysnc.Text = "Letzte Synchronisation: " & Now.ToLongTimeString
If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo() 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 End Sub
Private Sub NotifyIcon1_Click(sender As System.Object, e As EventArgs) Handles NotifyIcon1.Click Private Sub NotifyIcon1_Click(sender As System.Object, e As EventArgs) Handles NotifyIcon1.Click