jj: remove references to LOGGED_IN, LOGGED_WHERE from dataset and code

This commit is contained in:
Jonathan Jenne
2018-11-06 12:01:39 +01:00
parent eb05e0ca9d
commit 4ad91296cd
3 changed files with 8 additions and 16 deletions

View File

@@ -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