23 lines
915 B
VB.net
23 lines
915 B
VB.net
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 DT As DataTable = ClassDatabase.Return_Datatable(sel)
|
|
If Not IsNothing(DT) Then
|
|
If DT.Rows.Count = 1 Then
|
|
If LogErrorsOnly = False Then ClassLogger.Add(" >> User is in UM_ADMINS-Group....", False)
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
Else
|
|
Return False
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Check_User_Exists_in_UMGroups:")
|
|
Return False
|
|
End Try
|
|
End Function
|
|
End Class
|