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

Änderungen an licenseCount

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2019-04-17 17:25:22 +02:00
parent d194b80440
commit 2fcec8d2b6
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb
View File

@ -4,27 +4,30 @@ Imports System.IO
Imports WINDREAMLib Imports WINDREAMLib
Public Class ClassAllgemeineFunktionen Public Class ClassAllgemeineFunktionen
Public Shared Sub LoginOut(LoginOut As String) Public Shared Function LoginOut(LoginorOut As String) As Boolean
Try Try
If USER_EXISTS = False Then If USER_EXISTS = False Then
Exit Sub Return False
End If End If
Dim Sql As String Dim Sql As String
If LoginOut = "LOGIN" Then 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) 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)
Else Else
Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Process-Manager')" Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Process-Manager')"
End If End If
If ClassDatabase.Execute_non_Query(Sql, True) = True Then If ClassDatabase.Execute_non_Query(Sql, True) = True Then
LOGGER.Debug(" >> User logged in....", False) LOGGER.Debug(" >> User logged in....", False)
Return True
Else Else
LOGGER.Info(" >> User could not be logged in/out....", False) LOGGER.Info(" >> User could not be logged in/out....", False)
Return False
End If End If
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Error in LoginOut: " & ex.Message) LOGGER.Info("Error in LoginOut: " & ex.Message)
Return False
End Try End Try
End Sub End Function
Public Function Insert_LogEntry(PROFIL_ID As String, ERR_MSG As String, USR As String) Public Function Insert_LogEntry(PROFIL_ID As String, ERR_MSG As String, USR As String)
Try Try

6
app/DD_PM_WINDREAM/ClassInit.vb
View File

@ -182,13 +182,15 @@ Public Class ClassInit
USER_RIGHT_FILE_DELETE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT_FILE_DEL") USER_RIGHT_FILE_DELETE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT_FILE_DEL")
USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN") USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
ss
LOGGER.Debug(" >> User exists....", False) LOGGER.Debug(" >> User exists....", False)
'Am System anmelden 'Am System anmelden
Refresh_Licence() Refresh_Licence()
'Check_User_Exists_in_PMGroups() 'Check_User_Exists_in_PMGroups()
ClassAllgemeineFunktionen.LoginOut("LOGIN") If ClassAllgemeineFunktionen.LoginOut("LOGIN") = True Then
USERCOUNT_LOGGED_IN += 1
End If
'sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Process-Manager') AND CLIENT_ID = {0}", 1) 'sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Process-Manager') AND CLIENT_ID = {0}", 1)
' USERCOUNT_LOGGED_IN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) ' USERCOUNT_LOGGED_IN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)