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

MS TBPM_USER

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-03-08 16:25:18 +01:00
parent 65ddd4ae22
commit 3fed2d8551
21 changed files with 487 additions and 931 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD_PM_WINDREAM/ClassInit.vb
View File

@@ -80,7 +80,7 @@ Public Class ClassInit
Public Sub InitUserLogin()
Try
USER_USERNAME = Environment.UserName
Dim sql = String.Format("SELECT MAX(GUID) FROM TBPM_USER WHERE LOWER(USERNAME) = LOWER('{0}')", Environment.UserName)
Dim sql = String.Format("SELECT MAX(GUID) FROM TBDD_USER WHERE LOWER(USERNAME) = LOWER('{0}')", Environment.UserName)
ClassLogger.Add(">> Username: " & USER_USERNAME, False)
CURRENT_USERID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
@@ -104,13 +104,13 @@ Public Class ClassInit
MsgBox("Your amount of configurable profiles is limited to " & LICENSE_PROFILES.ToString & " profiles. You can not add more profiles!" & vbNewLine & "Please contact Digital Data for further licensedetails", MsgBoxStyle.Information)
End If
sql = String.Format("UPDATE TBPM_USER SET LOGGED_IN = 1, LOGGED_WHERE = '{0}' WHERE GUID = {1}", Environment.MachineName, CURRENT_USERID)
sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 1, LOGGED_WHERE = '{0}' WHERE GUID = {1}", Environment.MachineName, CURRENT_USERID)
ClassDatabase.Execute_non_Query(sql)
sql = String.Format("SELECT ADMIN FROM TBPM_USER WHERE GUID = {0}", CURRENT_USERID)
sql = String.Format("SELECT PM_ADMIN FROM TBDD_USER WHERE GUID = {0}", CURRENT_USERID)
USER_IS_ADMIN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
sql = "SELECT COUNT(*) AS Expr1 FROM TBPM_USER WHERE LOGGED_IN = 1"
sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER WHERE LOGGED_IN = 1"
USERCOUNT_LOGGED_IN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Angemeldete User: " & USERCOUNT_LOGGED_IN.ToString, False)
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
@@ -118,7 +118,7 @@ Public Class ClassInit
ClassLogger.Add(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!", False)
If USER_IS_ADMIN = False Then
'Anmeldung wieder herausnehmen
sql = String.Format("UPDATE TBPM_USER SET LOGGED_IN = 0, LOGGED_WHERE = '' WHERE GUID = {0}", CURRENT_USERID)
sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 0, LOGGED_WHERE = '' WHERE GUID = {0}", CURRENT_USERID)
ClassDatabase.Execute_non_Query(sql, True)
ClassLogger.Add(" - Wieder abgemeldet", False)
ERROR_STATE = "START INCOMPLETE"