MS - Changes Doc2Doc search

app/DD_PM_WINDREAM/ClassInit.vb

@@ -5,9 +5,11 @@ Imports DLLLicenseManager
 Public Class ClassInit
 
     Public _lizenzManager As ClassLicenseManager
+
     Public Sub New()
     End Sub
 
+    <STAThread()>
     Public Sub InitLogger()
         ClassLogger.Init("", Environment.UserName)
         ClassLogger.Add("## ProcessManager für Windream gestartet - " & Now, False)
@@ -18,9 +20,11 @@ Public Class ClassInit
         End If
         'Throw New Exception("Dummy Fehler!")
     End Sub
+    <STAThread()>
     Public Sub InitUserConfig()
         Settings_Load()
     End Sub
+    <STAThread()>
     Public Function InitDatabase()
         Dim dbResult As Boolean
 
@@ -53,6 +57,7 @@ Public Class ClassInit
     '        Return False
     '    End Try
     'End Function
+    <STAThread()>
     Sub Refresh_Licence()
         Try
             Me._lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
@@ -79,6 +84,7 @@ Public Class ClassInit
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Licensemanager:")
         End Try
     End Sub
+    <STAThread()>
     Public Sub InitUserLogin()
         Try
             USER_USERNAME = Environment.UserName
@@ -102,6 +108,7 @@ Public Class ClassInit
             End Try
 
             ClassLogger.Add(">> Username: " & USER_USERNAME, False)
+
             Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", Environment.UserName, CLIENT_SELECTED)
 
 
@@ -166,6 +173,7 @@ Public Class ClassInit
         End Try
 
     End Sub
+    <STAThread()>
     Public Shared Sub InitBasics()
         Try
             Dim sql = String.Format("select * from TBPM_KONFIGURATION WHERE GUID = 1")
@@ -179,6 +187,7 @@ Public Class ClassInit
             ERROR_STATE = "Basics not initialized"
         End Try
     End Sub
+    <STAThread()>
     Private Shared Function Settings_LoadBasicConfig()
         Try
             Dim sql As String = "select * from tbdd_Modules where SHORT_NAME = 'PM'"
@@ -204,61 +213,5 @@ Public Class ClassInit
         End Try
         Return True
     End Function
-    Private Function Check_User_Exists_in_Group(ByVal Groupname As String)
-        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) = '{1}'", USER_ID, Groupname)
-            Dim DT As DataTable = ClassDatabase.Return_Datatable(sel)
-            If Not IsNothing(DT) Then
-                If DT.Rows.Count = 1 Then
-                    Return True
-                Else
-                    Return False
-                End If
-            Else
-                Return False
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CheckUserExistsinGroup:")
-            Return False
-        End Try
-    End Function
-    'Private Function Check_User_Exists_in_PMGroups()
-    '    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) = 'PM_USER'", 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 PM_USER-Group....", False)
-    '                USER_IN_MODULE = True
-    '            Else
-    '                If LogErrorsOnly = False Then ClassLogger.Add(" >> User is NOT in PM_USER-Group...." & sel, False)
-    '                sel = String.Format("select T.* from TBDD_USER_MODULES T WHERE T.USER_ID = {0} AND T.MODULE_ID = 3", USER_ID)
-    '                DT = ClassDatabase.Return_Datatable(sel)
-    '                If Not IsNothing(DT) Then
-    '                    If DT.Rows.Count = 1 Then
-    '                        If LogErrorsOnly = False Then ClassLogger.Add(" >> Singe User-relation defined for user....", False)
-    '                        USER_IN_MODULE = True
-    '                        USER_IS_ADMIN = DT.Rows(0).Item("IS_ADMIN")
-    '                        USER_RIGHT_FILE_DELETE = DT.Rows(0).Item("RIGHT1")
-    '                    End If
-    '                End If
-    '            End If
-    '        End If
-    '        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) = 'PM_ADMINS'", USER_ID)
-    '        DT = ClassDatabase.Return_Datatable(sel)
 
-    '        If Not IsNothing(DT) Then
-    '            If DT.Rows.Count = 1 Then
-    '                If LogErrorsOnly = False Then ClassLogger.Add(" >> User is in PM_ADMINS-Group....", False)
-    '                USER_IS_ADMIN = True
-    '                USER_IN_MODULE = True
-    '            Else
-    '                If LogErrorsOnly = False Then ClassLogger.Add(" >> User is NOT in PM_ADMINS-Group...." & sel, False)
-    '            End If
-    '        End If
-
-    '    Catch ex As Exception
-    '        MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Check_User_Exists_in_PMGroups:")
-    '    End Try
-    'End Function
 End Class