Imports DigitalData.Modules.Config Imports DigitalData.Modules.Database Imports DigitalData.Modules.EDMI.API Imports DigitalData.Modules.Logging Imports DigitalData.Modules.ZooFlow.Params Module modCurrent Public LogConfig As LogConfig Public Logger As Logger Public Database As MSSQLServer Public DatabaseAppServ As MSSQLServer Public Automation As ClassAutomation Public Const LANGUAGE_GERMAN As String = "de-DE" Public ConfigManager As ConfigManager(Of ClassConfig) Public MyConnectionString As String = "" Public MyConStringAppserv As String = "" Public HotkeyFunctionKey As String = ClassConstants.HOTKEY_CTRL Public HotkeySearchKey As String = "d" Public HotkeySearchKey_via_Server As Boolean = False Public LogErrorsOnly As Boolean = True Public CURRENT_WINDOW_NAME As String Public CURRENT_USER_SHORT As String Public USER_USERNAME As String Public USER_IS_ADMIN As Boolean = False Public USER_ID Public USER_PRENAME Public USER_SURNAME Public USER_SHORTNAME Public USER_EMAIL Public USER_LANGUAGE As String = LANGUAGE_GERMAN Public USER_DATE_FORMAT As String Public USER_EXISTS = False Public USER_IN_MODULE = False Public ADDITIONAL_TITLE As String = "CW" Public USERCOUNT_LOGGED_IN As Integer Public LICENSE_COUNT As Integer Public LICENSE_DATE As Date Public LICENSE_EXPIRED As Boolean = False Public DT_CLIENT_USER As DataTable Public ERROR_INIT As String = "" Public START_INCOMPLETE As Boolean = False Public CONNECTION_CHANGED As Boolean = False Public ESC_Hidden As Boolean = False Public CURRENT_WD_TEMPSEARCH As String Public TEMP_FILES As List(Of String) = New List(Of String) Public WD_UNICODE As Boolean = False Public GDPICTURE_LICENSE As String = String.Empty Public DT_USER_PROFILES As DataTable Public DT_CONNECTIONS As MyDataset.TBDD_CONNECTIONDataTable Public CURRENT_MATCHING_PROFILES As New List(Of ProfileData) Public CURRENT_PROFILES_WITH_RESULTS As New List(Of ProfileData) Public CURRENT_CLIPBOARD_CONTENTS 'Public CURR_MATCH_WM_SEARCH Public CURR_FOCUSED_WINDOWNAME Public MONITORING_ACTIVE As Boolean = True Public CURRENT_PROCESSID As String Public CURRENT_PROCESSNAME As String Public CURRENT_WINDOWTITLE As String Public CLIENT_SELECTED As Integer = 0 Public CurrDT_PROFILE_MATCH As DataTable Public DTPROFILE_REL_PROCESS As DataTable Public DTPROFILE_REL_WINDOW As DataTable Public DTPROFILE_REL_CONTROL As DataTable Public CURRENT_DT_DOC_SEARCHES As DataTable Public CURRENT_DT_DATA_SEARCHES As DataTable Public CurrSearchOpen As Boolean = False Public CurrMatchTreeView As New TreeView Public Property _Client As Client Public Property DatabaseFallback As DatabaseWithFallback Public APPSERVER_ACTIVE As Boolean = False Public WORKING_MODE As String = "" Public BASIC_CONF_VISIBLE As Boolean = True Public NOMATCH_INFO As Boolean = False Public NOTIFY_MODE As String = "NotifyIcon" End Module