172 lines
6.7 KiB
VB.net
172 lines
6.7 KiB
VB.net
Imports WINDREAMLib
|
|
Imports DigitalData.Modules.Config
|
|
Imports DigitalData.Modules.Logging
|
|
Imports DigitalData.Modules.EDMI.API
|
|
Imports DigitalData.Modules.Database
|
|
Imports DigitalData.Modules.ZooFlow
|
|
|
|
Module ModuleRuntimeVariables
|
|
|
|
Public Property Database As DatabaseWithFallback
|
|
Public Property DatabaseECM As MSSQLServer
|
|
Public Property DatabaseIDB As MSSQLServer
|
|
Public Property EDMIService As New State.ServiceState
|
|
Public Property User As New State.UserState
|
|
' Diese Werte müssen später zur Laufzeit geladen werden
|
|
Public Property BASEDATA_DT_TBDD_CONNECTION As DataTable
|
|
Public Property BASEDATA_DT_TBDD_SQL_COMMANDS As DataTable
|
|
Public Property BASEDATA_DT_CONFIG As DataTable
|
|
Public Property BASEDATA_DTGRID_GROUPS As DataTable
|
|
Public Property BASEDATA_DT_CHARTS As DataTable
|
|
Public Property BASEDATA_DT_GUI_LANGUAGE_PHRASES As DataTable
|
|
Public Property BASEDATA_DT_PROFILES_SEARCHES_DOC As DataTable
|
|
Public Property DT_FILTERED_PROFILE_SEARCHES_DOC As DataTable
|
|
|
|
Public Property BASEDATA_DT_PROFILES_SEARCHES_SQL As DataTable
|
|
Public Property BASEDATA_DT_PROFILE_SEARCHES_SQL As DataTable
|
|
Public Property BASEDATA_DT_VW_PROFILE_USER As DataTable
|
|
|
|
Public Property CURRENT_ProfilGUID As Integer
|
|
Public Property CURRENT_ProfilName As String
|
|
Public Property CURRENT_PROFILE_LOG_INDEX As String
|
|
Public Property CURRENT_HTML_DOC As String
|
|
|
|
Public Property CURRENT_DOC_GUID As Integer
|
|
Public Property CURRENT_DOC_ID As Integer
|
|
Public Property CURRENT_DOC_CREATION_DATE As String
|
|
Public Property CURRENT_DOC_CREATION_TIME As String
|
|
|
|
Public Property CURRENT_CONVERSATION_NEW As Long
|
|
|
|
Public Property CURRENT_CONN_ID As Integer
|
|
|
|
Public Property CURRENT_JUMP_DOC_GUID As Integer
|
|
Public Property CURRENT_WMFILE As WMObject
|
|
|
|
Public Property CURRENT_DOC_PATH As String
|
|
Public Property ERROR_STATE = ""
|
|
|
|
Public Property USER_USERNAME As String
|
|
Public Property DT_USER2MODULE As DataTable
|
|
|
|
Public Property CHANGES_FORM_DESIGN As Boolean = False
|
|
|
|
Public Property USER_IS_ADMIN As Boolean = False
|
|
Public Property USER_ID = 0
|
|
Public Property USER_PRENAME = ""
|
|
Public Property USER_SURNAME = ""
|
|
Public Property USER_SHORTNAME = ""
|
|
Public Property USER_EMAIL = ""
|
|
Public Property USER_LANGUAGE As String = "de-DE"
|
|
Public Property USER_DATE_FORMAT As String
|
|
Public Property USER_EXISTS = False
|
|
Public Property USER_IN_MODULE = False
|
|
Public Property USER_RIGHT_FILE_DELETE As Boolean = False
|
|
Public Property USER_RIGHT_VIEW_ONLY As Boolean = False
|
|
Public Property USER_RIGHT2 As Boolean = False
|
|
Public Property USER_RIGHT3 As Boolean = False
|
|
Public Property USER_RIGHT4 As Boolean = False
|
|
Public Property USER_CONFIG_DEBUG As Boolean = False
|
|
|
|
Public Property USER_GHOST_MODE_ACTIVE As Boolean = False
|
|
Public Property USER_GHOST_MODE_USRNAME As String = ""
|
|
|
|
Public Property FORCE_LAYOUT_OVERVIEW As Boolean = False
|
|
Public Property SHOW_CHARTS As Boolean = True
|
|
Public Property SHOW_MASS_VALIDATOR As Boolean = True
|
|
Public Property WORKING_MODE As String = ""
|
|
Public Property MONITORING_ACTIVE As Boolean = False
|
|
Public Property GHOSTMODE_ACTIVE As Boolean = False
|
|
Public Property RIBBON_COLOR_SCHEME As String = "Blue"
|
|
Public Property ADDITIONAL_TITLE As String = ""
|
|
Public Property CONV_IDENTIFICATION As String = "Username"
|
|
Public Property POPUP_REMINDER_ACTIVE As Boolean = True
|
|
Public Property INACTIVITY_DURATION As Integer = 0
|
|
Public Property INACTIVITYRecognized As Boolean = False
|
|
Public Property LAST_EDITED_COLUMN As String = "NONE"
|
|
Public Property LAST_ADDED_COLUMN As String = "NONE"
|
|
Public Property USE_APPSERVER As Boolean = False
|
|
Public Property SEARCH1 As String = ""
|
|
Public Property SEARCH2 As String = ""
|
|
Public Property TL_ICON As Boolean = True
|
|
Public Property TITLE_NOTIFICATIONS As String = ""
|
|
Public Property START_CW As Boolean = False
|
|
Public Property START_CW_CAPTION As String
|
|
Public Property START_CW_LOC_VARIANT As String = 0
|
|
Public Property RibbonPageCustTitle As String = ""
|
|
Public Property RibbonPageCustItm1 As String = ""
|
|
Public Property ButtonExport2Folder_Caption As String = ""
|
|
Public Property ButtonExport2Folder_RootFolder As String = ""
|
|
|
|
|
|
Public Property LICENSE_COUNT As Integer = 0
|
|
Public Property LICENSE_EXPIRED As Boolean = False
|
|
Public Property LICENSE_PROFILES As Integer = 0
|
|
Public Property LICENSE_VALID As Boolean = False
|
|
Public Property USERCOUNT_LOGGED_IN As Integer = 0
|
|
Public Property CURRENT_INDEX_ID As Integer
|
|
Public Property CURRENT_OBJECTTYPE As String
|
|
Public Property CURRENT_DESIGN_TYPE As String = "FINAL_INDEX"
|
|
Public Property CURRENT_SQL_CON As Integer
|
|
Public Property CURRENT_SQL_COMAMND As String
|
|
Public Property CURRENT_DT_SQL_CONFIG_TABLE As DataTable
|
|
|
|
Public Property CURRENT_CLICKED_PROFILE_ID As Integer = 0
|
|
Public Property CURRENT_CLICKED_PROFILE_TITLE As String
|
|
|
|
Public Property DT_CLIENT_USER As DataTable
|
|
Public Property CLIENT_SELECTED As Integer = 0
|
|
|
|
Public Property CURR_CON_ID As Integer
|
|
Public Property CURR_SELECT_CONTROL As String
|
|
Public Property CURR_CHOICE_LIST As String
|
|
|
|
Public Property CURR_DT_DEPENDING_CONTROLS As DataTable 'enthält zur Laufzeit die abhängigen Controls
|
|
|
|
|
|
Public Property CURRENT_DT_MASS_CHANGE_DOCS As DataTable
|
|
|
|
Public Property CURRENT_DT_FINAL_INDEXING As DataTable
|
|
Public Property CURRENT_DT_PROFILES As DataTable
|
|
Public Property CURRENT_DT_PROFILE As DataTable
|
|
|
|
Public Property CURRENT_CONTROL_LIST As New List(Of Control)
|
|
|
|
Public CURRENT_INDEX_ARRAY(100, 250) As String
|
|
|
|
|
|
|
|
Public Property DTVWCONTROLS_INDEX As DataTable
|
|
Public Property DTVWCONTROL_INDEX As DataTable
|
|
|
|
Public Property DTCONTROLS_WITH_SQL As DataTable
|
|
|
|
Public Property CURRENT_CONTROL_ID As Integer
|
|
|
|
Public Property errormessage As String
|
|
|
|
Public Property WINDREAM As ClassPMWindream
|
|
Public Property WINDREAM_ALLG As ClassWindream_allgemein
|
|
Public Property FINALINDICES As ClassFinalIndex
|
|
Public Property IDBData As ClassIDBData
|
|
Public Property LOGCONFIG As LogConfig
|
|
Public Property LOGGER As Logger
|
|
Public Property CONFIG As ConfigManager(Of ClassConfig)
|
|
|
|
Public Property GDPICTURE_LICENSE As String
|
|
|
|
Public Property MyIndicies As List(Of String)
|
|
Public Property MyIndicies_Types As List(Of Integer)
|
|
|
|
Public Property _Client As Client
|
|
|
|
|
|
|
|
Public Property DatabaseFallback As DatabaseWithFallback
|
|
Public Property dbECMInitialized As Boolean = False
|
|
Public Property dbIDBInitialized As Boolean = False
|
|
|
|
Public Property Timer5Mins_running As Boolean = False
|
|
Public Property TimerRefresh_running As Boolean = False
|
|
End Module
|