AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Bugfixing Logging

Browse Source
This commit is contained in:
Developer01
2025-07-18 15:41:45 +02:00
parent cfe631a568
commit e62741c0ac
21 changed files with 231 additions and 131 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
app/DD-Record-Organizer/frmMain.vb
View File

@@ -211,19 +211,24 @@ Public Class frmMain
End Sub
Sub LoggedIn()
Try
Dim oSQL = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Record-Organizer') AND CLIENT_ID = {0}", CLIENT_SELECTED)
Dim oSQL As String = ""
If SQL_LIC_NAMED_USER <> "" Then
oSQL = SQL_LIC_NAMED_USER
Else
oSQL = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Record-Organizer') AND CLIENT_ID = {0}", CLIENT_SELECTED)
End If
Dim anzahl = MYDB_ECM.GetScalarValue(oSQL)
USERS_LOGGED_IN = CInt(anzahl)
LICENSES_USED = CInt(anzahl)
Catch ex As Exception
End Try
Dim msg = "Anzahl Angemeldete User: " & USERS_LOGGED_IN.ToString()
Dim msg = "Anzahl verbrauchte Lizenzen: " & LICENSES_USED.ToString()
If USER_LANGUAGE <> "de-DE" Then
msg = "#User logged in: " & USERS_LOGGED_IN.ToString()
msg = "#User logged in: " & LICENSES_USED.ToString()
End If
LabelLoggedIn.Caption = msg
LOGGER.Info(msg + "(+1)")
LOGGER.Debug(msg)
End Sub
Sub Display_ConString()
Try
@@ -413,7 +418,7 @@ Public Class frmMain
End If
Dim sql = "SELECT COUNT(GUID) FROM TBPMO_USER_GLOBAL_SEARCH WHERE USER_ID = " & USER_GUID
Dim Count = MYDB_ECM.GetScalarValue(SQL)
Dim Count = MYDB_ECM.GetScalarValue(sql)
If Count = 0 Then
btnGlobalSearch.Enabled = False
groupSearchAllOver.Visible = False
@@ -576,7 +581,7 @@ Public Class frmMain
End If
'Lizenz abgellaufen, überprüfen ob User Admin ist
If LICENSE_COUNT <= (USERS_LOGGED_IN + 1) Then
If LICENSE_COUNT <= (LICENSES_USED + 1) Then
If USER_IS_ADMIN = True Then
LOGGER.Info("User is Admin - Timer will be started")
'If USER_LANGUAGE = "de-DE" Then
@@ -793,7 +798,7 @@ Public Class frmMain
End Sub
Private Sub TimerClose3Minutes_Tick(sender As Object, e As EventArgs) Handles TimerClose3Minutes.Tick
If LICENSE_EXPIRED = True Or LICENSE_COUNT <= (USERS_LOGGED_IN + 1) Then
If LICENSE_EXPIRED = True Or LICENSE_COUNT <= (LICENSES_USED + 1) Then
'If USER_LANGUAGE = "de-DE" Then
' MsgBox("Global Indexer wird nun geschlossen, weil keine neue Lizenzdaten eingegeben wurden!", MsgBoxStyle.Information)
'Else