AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2020-10-21 10:23:59 +02:00
parent feeafb57ec
commit 856aa7c298
17 changed files with 16448 additions and 9577 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb
View File

@@ -39,27 +39,20 @@ Public Class ClassAllgemeineFunktionen
If USER_EXISTS = False Then
Return False
End If
Dim Sql As String
Dim oSql As String
If LoginorOut = "LOGIN" Then
Sql = String.Format("INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME) VALUES ({0},{1},'Process-Manager','{2}','{3}')", USER_ID, 1, My.Application.Info.Version.ToString, Environment.MachineName)
oSql = String.Format("INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME) VALUES ({0},{1},'Process-Manager','{2}','{3}')", USER_ID, 1, My.Application.Info.Version.ToString, Environment.MachineName)
Else
Sql = $"DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = {USER_ID} AND UPPER(MODULE) = UPPER('Process-Manager')"
End If
If ClassDatabase.Execute_non_Query(Sql, "LOGIN/OUT") = True Then
Try
If LoginorOut = "LOGOUT" Then
If INACTIVITYRecognized = True Then
Dim oSQL As String = $"UPDATE TBDD_USER_LOGIN_OUT SET COMMENT = 'Inactivity Detected' WHERE GUID IN (SELECT GUID FROM TBDD_USER_LOGIN_OUT
If INACTIVITYRecognized = True Then
oSql = $"UPDATE TBDD_USER_LOGIN_OUT SET COMMENT = 'Inactivity Detected' WHERE GUID IN (SELECT GUID FROM TBDD_USER_LOGIN_OUT
WHERE USER_ID = {USER_ID} AND MODULE = 'Process-Manager'"
ClassDatabase.Execute_non_Query(Sql, "Inactivity insert")
End If
End If
Catch ex As Exception
LOGGER.Warn($"Unexpected Error in logging Inactivity [{ex.Message}] ")
End Try
ClassDatabase.Execute_non_Query(oSql, "Inactivity insert")
End If
LOGGER.Debug($"User {LoginorOut} successfully!")
oSql = $"DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = {USER_ID} AND UPPER(MODULE) = UPPER('Process-Manager')"
End If
If ClassDatabase.Execute_non_Query(oSql, "LOGIN/OUT") = True Then
LOGGER.Debug($"{LoginorOut} of User successfully!")
Return True
Else
LOGGER.Info("User could not be logged in/out....")