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

5
app/DD_PM_WINDREAM/frmMain.vb
View File

@@ -81,7 +81,6 @@ Public Class frmMain
Try
tslblLicenses.Text = "Anzahl Lizenzen: " & LICENSE_COUNT
'userexists = TBPM_USERTableAdapter.CmdUser_exists(Environment.UserName)
If ERROR_STATE = "NO USER" Then
MsgBox("Achtung: Sie sind nicht für die Nutzung von ProcessManager freigegeben!" & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
Me.Close()
@@ -99,7 +98,7 @@ Public Class frmMain
tstrpbtn_Config.Visible = False
End If
'Anzahl der eingeloggten User
'UserLoggedin = TBPM_USERTableAdapter.CmdGetAnzahl_loggedIn
tslblUserLoggedin.Text = "Anzahl User eingeloggt: " & USERCOUNT_LOGGED_IN
End If
Catch ex As Exception
@@ -237,7 +236,7 @@ Public Class frmMain
End Sub
Sub Load_Profiles_for_User()
Try
Dim sql = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T, TBPM_PROFILE_USER T1, TBPM_USER T2 WHERE T.GUID = T1.PROFIL_ID AND T1.USER_ID = T2.GUID AND UPPER(T2.USERNAME) = UPPER('{0}')", Environment.UserName)
Dim sql = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T, TBPM_PROFILE_USER T1, TBDD_USER T2 WHERE T.GUID = T1.PROFIL_ID AND T1.USER_ID = T2.GUID AND UPPER(T2.USERNAME) = UPPER('{0}')", Environment.UserName)
CURR_DT_VWPM_PROFILE_ACTIVE = ClassDatabase.Return_Datatable(sql)
Catch ex As Exception
ClassLogger.Add("Load_Profiles_for_User - Error: " & ex.Message)