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

29
app/DD-Record-Organizer/Classes/ClassInit.vb
View File

@@ -199,6 +199,8 @@ Public Class ClassInit
ElseIf oRow.Item("TITLE") = "OF_NODE_SEARCH" Then
SQL_OF_NODE_SEARCH = oRow.Item("SQL_COMMAND")
ElseIf oRow.Item("TITLE") = "LIC_COUNT_NAMED" Then
SQL_LIC_NAMED_USER = oRow.Item("SQL_COMMAND")
End If
@@ -470,22 +472,30 @@ Public Class ClassInit
MsgBox("Unexpected Error in Creating windream-Session: " & ex.Message & vbNewLine & "Please inform Your sysadmin!", MsgBoxStyle.Critical)
End Try
oFNSQL = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'Record-Organizer' AND CLIENT_ID = {0}", CLIENT_SELECTED)
If SQL_LIC_NAMED_USER <> "" Then
SQL_LIC_NAMED_USER = SQL_LIC_NAMED_USER.Replace("@MODULE", "Record-Organizer")
SQL_LIC_NAMED_USER = SQL_LIC_NAMED_USER.Replace("@CLIENT", CLIENT_SELECTED.ToString)
oFNSQL = SQL_LIC_NAMED_USER
Else
oFNSQL = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'Record-Organizer' AND CLIENT_ID = {0}", CLIENT_SELECTED)
End If
Dim anzahl = MYDB_ECM.GetScalarValue(oFNSQL)
USERS_LOGGED_IN = CInt(anzahl)
LOGGER.Info("User# logged in: " & anzahl.ToString)
LICENSES_USED = CInt(anzahl)
LOGGER.Info("NamedUser in TimeSpan#: " & anzahl.ToString)
LOGGER.Info("LICENSE_COUNT: " & LICENSE_COUNT.ToString)
'####
If LICENSE_COUNT <= (USERS_LOGGED_IN + 1) And LICENSE_EXPIRED = False Then
Dim msg = String.Format("Die Anzahl der aktuell angemeldeten User (" & USERS_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
If LICENSE_COUNT <= (LICENSES_USED) And LICENSE_EXPIRED = False Then
Dim msg = String.Format("Die Anzahl der aktuell verbrauchten Lizenzen (" & LICENSES_USED.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses." & vbNewLine &
msg = String.Format("The number of USED licenses (" & LICENSES_USED.ToString & ") exceeds the number of licenses." & vbNewLine &
"Number of licenses: " & LICENSE_COUNT.ToString & vbNewLine & "Please contact Your admin!")
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
LOGGER.Warn("The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ")
LOGGER.Warn("The number of USED licenses (" & LICENSES_USED.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ")
If USER_IS_ADMIN = False Then
'Anmeldung wieder herausnehmen
oFNSQL = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Record-Organizer'"
@@ -493,6 +503,11 @@ Public Class ClassInit
LOGGER.Warn(" - logged out the user")
Return False
End If
ElseIf LICENSE_EXPIRED = True Then
MsgBox("Your license has expired!" & vbNewLine & "Last valid date: " & LICENSE_DATE & vbNewLine & "Please contact your admin!", MsgBoxStyle.Exclamation)
oFNSQL = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Record-Organizer'"
MYDB_ECM.ExecuteNonQuery(oFNSQL)
Return False
Else
Try
'Die FolderWatch starten