MS: Bugfixing und Änderungen UM Aufruf

app/DD_PM_WINDREAM/ClassUser.vb

@@ -0,0 +1,22 @@
+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