MS
This commit is contained in:
SchreiberM
@@ -82,86 +82,85 @@ Public Class ClassInit
|
||||
ClassLogger.Add(">> Username: " & Environment.UserName, False)
|
||||
|
||||
CURRENT_USERID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
|
||||
If IsDBNull(CURRENT_USERID) Then
|
||||
Try
|
||||
Dim USERID = CInt(CURRENT_USERID)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("User '" & Environment.UserName & "' not configured in Useradministration! (DBNull)", True)
|
||||
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
|
||||
'Me.Close()
|
||||
START_INCOMPLETE = True
|
||||
Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
|
||||
Exit Sub
|
||||
End Try
|
||||
|
||||
sql = "SELECT SHORTNAME FROM TBDD_USER WHERE GUID = " & CURRENT_USERID
|
||||
CURRENT_USER_SHORT = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
|
||||
If IsNothing(CURRENT_USER_SHORT) Or IsDBNull(CURRENT_USER_SHORT) Then
|
||||
CURRENT_USER_SHORT = ""
|
||||
End If
|
||||
|
||||
sql = String.Format("SELECT MODULE_GI FROM TBDD_USER WHERE GUID = {0}", CURRENT_USERID)
|
||||
|
||||
If ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) = False Then
|
||||
ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False)
|
||||
START_INCOMPLETE = True
|
||||
'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
|
||||
Throw New Exception("Your user is not allowed to use this module." & vbNewLine & "Please contact the system administrator!")
|
||||
'Me.Close()
|
||||
Else
|
||||
If IsNothing(CURRENT_USERID) Then
|
||||
ClassLogger.Add(" - User: " & Environment.UserName & " ' not configured in Useradministration! (nothing)", False)
|
||||
START_INCOMPLETE = True
|
||||
Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
|
||||
Else
|
||||
sql = "SELECT SHORTNAME FROM TBDD_USER WHERE GUID = " & CURRENT_USERID
|
||||
CURRENT_USER_SHORT = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
|
||||
If IsNothing(CURRENT_USER_SHORT) Or IsDBNull(CURRENT_USER_SHORT) Then
|
||||
CURRENT_USER_SHORT = ""
|
||||
End If
|
||||
sql = String.Format("SELECT MODULE_GI FROM TBDD_USER WHERE GUID = {0}", CURRENT_USERID)
|
||||
|
||||
If ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) = False Then
|
||||
ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False)
|
||||
START_INCOMPLETE = True
|
||||
'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
|
||||
Throw New Exception("Your user is not allowed to use this module." & vbNewLine & "Please contact the system administrator!")
|
||||
'Me.Close()
|
||||
'Am System anmelden
|
||||
ClassLicence.Refresh_Licence()
|
||||
Dim sql1 = "SELECT COUNT(T.GUID) FROM TBDD_DOKUMENTART T, TBDD_DOKUMENTART_MODULE T1 WHERE T.AKTIV = 1 AND T.GUID = T1.DOKART_ID AND T1.MODULE_ID = 1"
|
||||
DOCTYPE_COUNT_ACTUAL = ClassDatabase.Execute_Scalar(sql1, MyConnectionString, True)
|
||||
If DOCTYPE_COUNT_ACTUAL > LICENSE_DOCTYPE_COUNT Then
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox("Ihre Anzahl von konfigurierbaren Dokumentarten ist limitiert auf: '" & LICENSE_DOCTYPE_COUNT.ToString & "'." & vbNewLine & "Bitte kontaktieren Sie Digital Data für weitere Details.", MsgBoxStyle.Information)
|
||||
Else
|
||||
'Am System anmelden
|
||||
ClassLicence.Refresh_Licence()
|
||||
Dim sql1 = "SELECT COUNT(T.GUID) FROM TBDD_DOKUMENTART T, TBDD_DOKUMENTART_MODULE T1 WHERE T.AKTIV = 1 AND T.GUID = T1.DOKART_ID AND T1.MODULE_ID = 1"
|
||||
DOCTYPE_COUNT_ACTUAL = ClassDatabase.Execute_Scalar(sql1, MyConnectionString, True)
|
||||
If DOCTYPE_COUNT_ACTUAL > LICENSE_DOCTYPE_COUNT Then
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox("Ihre Anzahl von konfigurierbaren Dokumentarten ist limitiert auf: '" & LICENSE_DOCTYPE_COUNT.ToString & "'." & vbNewLine & "Bitte kontaktieren Sie Digital Data für weitere Details.", MsgBoxStyle.Information)
|
||||
Else
|
||||
MsgBox("Your amount of configurable documenttypes is limited to " & LICENSE_DOCTYPE_COUNT.ToString & " doctypes. You can not add more doctypes!" & vbNewLine & "Please contact Digital Data for further licensedetails", MsgBoxStyle.Information)
|
||||
End If
|
||||
End If
|
||||
Try
|
||||
USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & CURRENT_USERID, MyConnectionString, True)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("LANGUAGE COULD NOT BE READ - " & ex.Message, True)
|
||||
USER_LANGUAGE = "de-DE"
|
||||
End Try
|
||||
|
||||
|
||||
sql = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
|
||||
sql = sql.Replace("@LogInOut", 1)
|
||||
sql = sql.Replace("@ANGEMELDETWO", Environment.MachineName)
|
||||
sql = sql.Replace("@user", Environment.UserName)
|
||||
ClassDatabase.Execute_non_Query(sql)
|
||||
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & CURRENT_USERID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
|
||||
ClassDatabase.Execute_non_Query(sql, True)
|
||||
|
||||
sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & CURRENT_USERID & ",'Global-Indexer')"
|
||||
ClassDatabase.Execute_non_Query(sql)
|
||||
sql = "SELECT GI_ADMIN FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
|
||||
sql = sql.Replace("@user", Environment.UserName)
|
||||
CURRENT_USER_IS_ADMIN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
|
||||
|
||||
sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')"
|
||||
Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Angemeldete User: " & anzahl.ToString, False)
|
||||
UserLoggedin = CInt(anzahl)
|
||||
If LICENSE_COUNT < UserLoggedin And LICENSE_EXPIRED = False Then
|
||||
MsgBox("Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.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:")
|
||||
ClassLogger.Add(" >> Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Global Indexer!", False)
|
||||
If CURRENT_USER_IS_ADMIN = False Then
|
||||
'Anmeldung wieder herausnehmen
|
||||
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & CURRENT_USER_IS_ADMIN & " AND MODULE= 'Global-Indexer'"
|
||||
ClassDatabase.Execute_non_Query(sql, True)
|
||||
ClassLogger.Add(" - Wieder abgemeldet", False)
|
||||
START_INCOMPLETE = True
|
||||
End If
|
||||
End If
|
||||
'Alles OK bis hierhin...nun die FolderwatchKonfig laden
|
||||
Init_Folderwatch()
|
||||
'LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & anzahl.ToString
|
||||
MsgBox("Your amount of configurable documenttypes is limited to " & LICENSE_DOCTYPE_COUNT.ToString & " doctypes. You can not add more doctypes!" & vbNewLine & "Please contact Digital Data for further licensedetails", MsgBoxStyle.Information)
|
||||
End If
|
||||
End If
|
||||
Try
|
||||
USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & CURRENT_USERID, MyConnectionString, True)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("LANGUAGE COULD NOT BE READ - " & ex.Message, True)
|
||||
USER_LANGUAGE = "de-DE"
|
||||
End Try
|
||||
|
||||
|
||||
sql = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
|
||||
sql = sql.Replace("@LogInOut", 1)
|
||||
sql = sql.Replace("@ANGEMELDETWO", Environment.MachineName)
|
||||
sql = sql.Replace("@user", Environment.UserName)
|
||||
ClassDatabase.Execute_non_Query(sql)
|
||||
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & CURRENT_USERID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
|
||||
ClassDatabase.Execute_non_Query(sql, True)
|
||||
|
||||
sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & CURRENT_USERID & ",'Global-Indexer')"
|
||||
ClassDatabase.Execute_non_Query(sql)
|
||||
sql = "SELECT GI_ADMIN FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
|
||||
sql = sql.Replace("@user", Environment.UserName)
|
||||
CURRENT_USER_IS_ADMIN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
|
||||
|
||||
sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')"
|
||||
Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Angemeldete User: " & anzahl.ToString, False)
|
||||
UserLoggedin = CInt(anzahl)
|
||||
If LICENSE_COUNT < UserLoggedin And LICENSE_EXPIRED = False Then
|
||||
MsgBox("Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.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:")
|
||||
ClassLogger.Add(" >> Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Global Indexer!", False)
|
||||
If CURRENT_USER_IS_ADMIN = False Then
|
||||
'Anmeldung wieder herausnehmen
|
||||
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & CURRENT_USER_IS_ADMIN & " AND MODULE= 'Global-Indexer'"
|
||||
ClassDatabase.Execute_non_Query(sql, True)
|
||||
ClassLogger.Add(" - Wieder abgemeldet", False)
|
||||
START_INCOMPLETE = True
|
||||
End If
|
||||
End If
|
||||
'Alles OK bis hierhin...nun die FolderwatchKonfig laden
|
||||
Init_Folderwatch()
|
||||
'LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & anzahl.ToString
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True)
|
||||
START_INCOMPLETE = True
|
||||
|
||||
Reference in New Issue
Block a user