jj: für MS
This commit is contained in:
Digital Data - Marlon Schreiber
@@ -61,9 +61,9 @@ Public Class ClassInit
|
||||
Public Sub Init_Folderwatch()
|
||||
Try
|
||||
'Die FolderWatch starten
|
||||
Dim sql1 = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & CURRENT_USERID
|
||||
Dim sql1 = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & CURRENT_USER_ID
|
||||
Dim folderwatch = ClassDatabase.Execute_Scalar(sql1, MyConnectionString, True)
|
||||
sql1 = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & CURRENT_USERID
|
||||
sql1 = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & CURRENT_USER_ID
|
||||
Dim folderwatch_SCAN = ClassDatabase.Execute_Scalar(sql1, MyConnectionString, True)
|
||||
If Not folderwatch Is Nothing Then
|
||||
CURRENT_FOLDERWATCH = folderwatch
|
||||
@@ -75,7 +75,7 @@ Public Class ClassInit
|
||||
FW_ISSTARTED = True
|
||||
ClassFolderWatcher.StartStop_FolderWatch()
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
If Not folderwatch_SCAN Is Nothing Then
|
||||
@@ -96,9 +96,9 @@ Public Class ClassInit
|
||||
sql = sql.Replace("@user", Environment.UserName)
|
||||
ClassLogger.Add(">> Username: " & Environment.UserName, False)
|
||||
|
||||
CURRENT_USERID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
|
||||
CURRENT_USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
|
||||
Try
|
||||
Dim USERID = CInt(CURRENT_USERID)
|
||||
Dim USERID = CInt(CURRENT_USER_ID)
|
||||
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:")
|
||||
@@ -108,15 +108,14 @@ Public Class ClassInit
|
||||
Exit Sub
|
||||
End Try
|
||||
|
||||
sql = "SELECT SHORTNAME FROM TBDD_USER WHERE GUID = " & CURRENT_USERID
|
||||
sql = "SELECT SHORTNAME FROM TBDD_USER WHERE GUID = " & CURRENT_USER_ID
|
||||
CURRENT_USER_SHORT = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
|
||||
If IsNothing(CURRENT_USER_SHORT) Or IsDBNull(CURRENT_USER_SHORT) Then
|
||||
CURRENT_USER_SHORT = ""
|
||||
End If
|
||||
Check_User_Exists_in_GIGroups()
|
||||
|
||||
sql = String.Format("SELECT MODULE_GI FROM TBDD_USER WHERE GUID = {0}", CURRENT_USERID)
|
||||
|
||||
If ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) = False Then
|
||||
If USER_IN_MODULE = 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:")
|
||||
@@ -125,6 +124,9 @@ Public Class ClassInit
|
||||
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
|
||||
@@ -135,7 +137,7 @@ Public Class ClassInit
|
||||
End If
|
||||
End If
|
||||
Try
|
||||
USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & CURRENT_USERID, MyConnectionString, True)
|
||||
USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & CURRENT_USER_ID, MyConnectionString, True)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("LANGUAGE COULD NOT BE READ - " & ex.Message, True)
|
||||
USER_LANGUAGE = "de-DE"
|
||||
@@ -147,14 +149,11 @@ Public Class ClassInit
|
||||
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')"
|
||||
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & CURRENT_USER_ID & " 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')"
|
||||
sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & CURRENT_USER_ID & ",'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)
|
||||
@@ -178,9 +177,47 @@ Public Class ClassInit
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||
START_INCOMPLETE = True
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function Check_User_Exists_in_GIGroups()
|
||||
Try
|
||||
Dim sel = String.Format("select T1.* from TBDD_GROUPS T, TBDD_GROUPS_USER T1 WHERE T.GUID = T1.GROUP_ID AND T1.USER_ID = {0} AND UPPER(T.NAME) = 'GLOBIX_USER'", CURRENT_USER_ID)
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(sel)
|
||||
If Not IsNothing(DT) Then
|
||||
If DT.Rows.Count = 1 Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> User is in PM_USER-Group....", False)
|
||||
USER_IN_MODULE = True
|
||||
Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> User is NOT in PM_USER-Group...." & sel, False)
|
||||
sel = String.Format("select T.* from TBDD_USER_MODULES T WHERE T.USER_ID = {0} AND T.MODULE_ID = 2", CURRENT_USER_ID)
|
||||
DT = ClassDatabase.Return_Datatable(sel)
|
||||
If Not IsNothing(DT) Then
|
||||
If DT.Rows.Count = 1 Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Singe User-relation defined for user....", False)
|
||||
USER_IN_MODULE = True
|
||||
CURRENT_USER_IS_ADMIN = DT.Rows(0).Item("IS_ADMIN")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
sel = String.Format("select T1.* from TBDD_GROUPS T, TBDD_GROUPS_USER T1 WHERE T.GUID = T1.GROUP_ID AND T1.USER_ID = {0} AND UPPER(T.NAME) = 'GLOBIX_ADMINS'", CURRENT_USER_ID)
|
||||
DT = ClassDatabase.Return_Datatable(sel)
|
||||
|
||||
If Not IsNothing(DT) Then
|
||||
If DT.Rows.Count = 1 Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> User is in PM_ADMINS-Group....", False)
|
||||
CURRENT_USER_IS_ADMIN = True
|
||||
USER_IN_MODULE = True
|
||||
Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> User is NOT in PM_ADMINS-Group...." & sel, False)
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Check_User_Exists_in_PMGroups:")
|
||||
End Try
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user