MS24112015

Global_Indexer/ModuleCURRENT.vb

@@ -11,24 +11,36 @@
     Public CURRENT_LASTDOKART As String = ""
     Public CURRENT_INDEXMAN As Integer
     Public CURRENT_INDEXAUTO As Integer
+    Public CURRENT_SQL_CONFIG As String
+
     Public VERSION_DELIMITER As String
     Public FILE_DELIMITER As String
     Public CURRENT_MESSAGEID As String
     Public CURRENT_MESSAGEDATE As String
     Public CURRENT_MESSAGESUBJECT As String
     Public CURRENT_ISATTACHMENT As Boolean = False
+
     Public CURRENT_USERID As Integer
+    Public CURRENT_USER_IS_ADMIN As Boolean = False
+    Public UserLoggedin As Integer = 0
+    Public USER_LANGUAGE As String = "DE"
+
+
     Public CURRENT_FOLDERWATCH As String = ""
     Public CURRENT_SCAN_FOLDERWATCH As String = ""
+
+    Public FW_ISSTARTED As Boolean = False
+
     Public CURR_DOKART_WD_DIRECT As Boolean = False
     Public CURR_DOKART_OBJECTTYPE As String
     Public CURRENT_WD_TEMPSEARCH As String = ""
 
-    Public License_Expired As Boolean = False
-    Public License_Anzahl As Integer = 0
-    Public LicenseProfiles As Integer = 0
+    Public LICENSE_EXPIRED As Boolean = False
+    Public LICENSE_COUNT As Integer = 0
+    Public LICENSE_DOCTYPE_COUNT As Integer = 0
+    Public DOCTYPE_COUNT_ACTUAL As Integer = 0
     Public LicenseHotKey As Integer = 0
-    Public UserLoggedin As Integer = 0
+
     Public CURRENT_HTML_DOC As String
 
     Public CURRENT_ABBRUCH As Integer = 0
@@ -41,5 +53,10 @@
 
     Public CURRENT_SQLRESULT As String
     Public DTSQL_RESULT As DataTable
+    Public TEMP_FILES As List(Of String) = New List(Of String)
 
+    Public CURRENT_FOCUSES_WINDOWNAME As String
+
+    Public LANGUAGE_CHANGED As Boolean = False
 End Module
+