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

PMMS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-06-21 11:16:09 +02:00
parent fc8631bad8
commit cb3d370085
12 changed files with 674 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_PM_WINDREAM/ClassUser.vb
View File

@@ -1,7 +1,7 @@
Public Class ClassUser
Public Shared Function Check_User_Exists_in_UMGroups()
Try
Dim sel = String.Format("select T1.* from TBDD_GROUPS T, TBDD_GROUPS_USER T1 WHERE T.GUID = T1.GROUP_ID AND T1.USER_ID = {0} AND UPPER(T.NAME) = 'UM_ADMINS'", CURRENT_USER_ID)
Dim sel = String.Format("select T1.* from TBDD_GROUPS T, TBDD_GROUPS_USER T1 WHERE T.GUID = T1.GROUP_ID AND T1.USER_ID = {0} AND UPPER(T.NAME) = 'UM_ADMINS'", USER_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sel)
If Not IsNothing(DT) Then
If DT.Rows.Count = 1 Then