95 lines
3.2 KiB
VB.net
95 lines
3.2 KiB
VB.net
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 MyDB_DDECM As MSSQLServer
|
|
Public DatabaseAppServ As MSSQLServer
|
|
Public Automation As ClassAutomation
|
|
Public AppTitle = "easyFLOW"
|
|
Public Const LANGUAGE_GERMAN As String = "de-DE"
|
|
|
|
|
|
Public CONFIG 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"
|
|
Public BASEDATA_DT_LANGUAGE As DataTable
|
|
Public GHOST_USERID As Integer = 0
|
|
End Module
|