fix login error because of missing client id, fix pdf file not deleted
This commit is contained in:
@@ -275,7 +275,7 @@ Public Class ClassInit
|
||||
|
||||
oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
|
||||
ClassDatabase.Execute_non_Query(oSql, True)
|
||||
oSql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & USER_ID & ",'Global-Indexer')"
|
||||
oSql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE, CLIENT_ID) VALUES (" & USER_ID & ",'Global-Indexer', 1)"
|
||||
ClassDatabase.Execute_non_Query(oSql)
|
||||
oSql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')"
|
||||
' Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
|
||||
|
||||
Reference in New Issue
Block a user