MS

app/DD-Record-Organizer/Classes/ClassInit.vb

@@ -1,6 +1,7 @@
 Imports System.ComponentModel
 Imports System.IO
 Imports DD_LIB_Standards
+Imports DevExpress.DataAccess.Native
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Logging
 
@@ -49,11 +50,12 @@ Public Class ClassInit
                     LOGGER.Debug("Connection String loaded")
                     MyConnectionString = DecryptConnectionString(CONFIG.Config.ConnectionString)
                 End If
-
-
             Catch ex As Exception
                 LOGGER.Error(ex, "Unexpected Error Getting CONFIG.TestMode or CONFIG.ConnectionStringTest")
             End Try
+
+
+
         Catch ex As Exception
 
         End Try
@@ -413,6 +415,8 @@ WHERE (USERNAME = '{0}') AND T2.SHORT_NAME = 'ADDI'", USER_USERNAME)
                     If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
                         SQL_FULLTEXT = "SELECT DISTINCT [dwDocID] FROM [dbo].FullText WHERE CONTAINS([Text], '""*@FULLTEXT*""') "
                     End If
+                    Dim oSQL = $"SELECT COUNT(GU.GUID) FROM	TBDD_GROUPS_USER GU INNER JOIN TBDD_GROUPS G ON GU.GROUP_ID = G.GUID WHERE G.NAME = 'ORGFLOW-Supervisor' AND GU.USER_ID = {USER_GUID}"
+                    USER_IS_SUPERVISOR = ClassDatabase.Execute_Scalar(oSQL, False)
                     Return True
                     'LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & anzahl.ToString
                 End If