jj: remove references to LOGGED_IN, LOGGED_WHERE from dataset and code
This commit is contained in:
@@ -299,14 +299,8 @@ Public Class frmStart
|
||||
|
||||
ClassLogger.Add("", False)
|
||||
If START_INCOMPLETE = False Then
|
||||
Dim sql = "UPDATE TBDD_USER SET LOGGED_IN = 0, LOGGED_WHERE = '' WHERE LOWER(USERNAME) = LOWER('" & Environment.UserName & "')"
|
||||
If ClassDatabase.Execute_non_Query(sql, True) = True Then
|
||||
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
|
||||
If ClassDatabase.Execute_non_Query(sql, True) = True Then
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
|
||||
ClassDatabase.Execute_non_Query(Sql, True)
|
||||
End If
|
||||
ClassWindowLocation.SaveFormLocationSize(Me)
|
||||
Catch ex As Exception
|
||||
|
||||
Reference in New Issue
Block a user