MS

Global_Indexer/ClassInit.vb

@@ -14,7 +14,6 @@ Public Class ClassInit
         ClassLogger.Add(">> Username: " & Environment.UserName, False)
         LOGCONFIG = New LogConfig(LogConfig.PathType.AppData)
         LOGGER = LOGCONFIG.GetLogger("Globix")
-        LOGGER.Info("Programmstart")
         LOGGER.Info("Username: {0}", Environment.UserName)
     End Sub
 
@@ -76,11 +75,14 @@ Public Class ClassInit
     Public Function Load_BasicConfig()
         Try
             ClassDatabase.Init()
-            Dim sql As String = "select * from tbdd_Modules where NAME = 'Global-Indexer'"
-            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
+            Dim oSql As String = "select * from tbdd_Modules where NAME = 'Global-Indexer'"
+            Dim DT As DataTable = ClassDatabase.Return_Datatable(oSql)
             If DT.Rows.Count = 1 Then
                 GI_withWindream = DT.Rows(0).Item("BIT1")
                 vWLaufwerk = DT.Rows(0).Item("STRING1")
+
+                DTTBGI_REGEX_DOCTYPE = ClassDatabase.Return_Datatable("SELECT T1.DOCTYPE as DocType, T.* FROM TBGI_REGEX_DOCTYPE T, VWGI_DOCTYPE T1 WHERE T.DOCTYPE_ID = T1.DOCTYPE_ID")
+                Return True
             Else
                 Return False
             End If
@@ -199,7 +201,7 @@ Public Class ClassInit
         Try
             Dim sql = "SELECT MAX(GUID) FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
             sql = sql.Replace("@user", Environment.UserName)
-            ClassLogger.Add(">> Username: " & Environment.UserName, False)
+            ' ClassLogger.Add(">> Username: " & Environment.UserName, False)
 
             USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
             Try