DocSearchModul
This commit is contained in:
@@ -114,7 +114,7 @@ Public Class ClassInit
|
||||
LICENSE_EXPIRED = True
|
||||
LICENSE_COUNT = 0
|
||||
End If
|
||||
LOGGER.Debug(" >> license initialized....", False)
|
||||
LOGGER.Debug("license initialized....")
|
||||
|
||||
LICENSE_PROFILES = split(2)
|
||||
Catch ex As Exception
|
||||
@@ -147,7 +147,7 @@ Public Class ClassInit
|
||||
CLIENT_SELECTED = 1
|
||||
End Try
|
||||
|
||||
LOGGER.Info(">> Username: " & USER_USERNAME, False)
|
||||
LOGGER.Info(">> Username: " & USER_USERNAME)
|
||||
|
||||
Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", Environment.UserName, CLIENT_SELECTED)
|
||||
|
||||
@@ -180,10 +180,10 @@ Public Class ClassInit
|
||||
USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
|
||||
USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
|
||||
USER_RIGHT_FILE_DELETE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT_FILE_DEL")
|
||||
|
||||
USER_DATE_FORMAT = DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
|
||||
USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
|
||||
|
||||
LOGGER.Debug(" >> User exists....", False)
|
||||
LOGGER.Debug("User exists....")
|
||||
'Am System anmelden
|
||||
Refresh_Licence()
|
||||
'Check_User_Exists_in_PMGroups()
|
||||
@@ -196,18 +196,18 @@ Public Class ClassInit
|
||||
' USERCOUNT_LOGGED_IN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
|
||||
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Process-Manager'"
|
||||
ClassDatabase.Execute_non_Query(sql, True)
|
||||
LOGGER.Debug(" >> Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString, False)
|
||||
LOGGER.Debug("Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString)
|
||||
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
|
||||
MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_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!", MsgBoxStyle.Critical, "Achtung:")
|
||||
LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!", False)
|
||||
LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!")
|
||||
If USER_IS_ADMIN = False Then
|
||||
ClassAllgemeineFunktionen.LoginOut("LOGOUT")
|
||||
LOGGER.Info(" - Wieder abgemeldet - START INCOMPLETE", False)
|
||||
LOGGER.Info(" - Wieder abgemeldet - START INCOMPLETE")
|
||||
ERROR_STATE = "START INCOMPLETE"
|
||||
End If
|
||||
End If
|
||||
'Alles OK bis hierhin...nun die FolderwatchKonfig laden
|
||||
LOGGER.Debug(" >> Init Userlogin successfull completed....", False)
|
||||
LOGGER.Debug("Init Userlogin successfull completed....")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
|
||||
Reference in New Issue
Block a user