Imports DigitalData.Modules.Config Imports DigitalData.Modules.Database Module ModuleRuntimeVariables Public Property CONFIG As ConfigManager(Of ClassConfig) Public ESC_Hidden As Boolean = False Public MIN_REQUIRED_VERSION As String = "1.0.0.0" Public MAIN_FORM As frmMain = Nothing Public ERROR_INIT = "NONE" ' Diese Werte müssen später zur Laufzeit geladen werden Public CURRENT_PARENT_ENTITY_ID As Integer Public CURRENT_PARENT_RECORD_ID As Integer Public CURRENT_ACT_LEVEL As Integer Public DT_RIGHTS_USER As DataTable Public DT_RIGHTS_GROUP As DataTable Public SQL_RECORD_AND_FILE_READ_ONLY As String = "" Public RIGHT_RECORD_AND_FILE_READ_ONLY As Boolean = False Public SQL_DOC_READ_ONLY As String = "" Public RIGHT_READ_ONLY_DOC As Boolean = False Public RIGHT_EDIT_R As Boolean = True Public RIGHT_ADD_R As Boolean = True Public RIGHT_DELETE_R As Boolean = False Public RIGHT_ADD_DOC As Boolean = True Public RIGHT_VIEW_DOC As Boolean = True Public RIGHT_DELETE_DOC As Boolean = False Public WM_LOGO As Bitmap Public CURRENT_ENTITYSTRING As String = "" Public CURRENT_ENTITYSQL As String Public CURRENT_DT_ENTITY_RECORDS As DataTable Public CURRENT_VIEWNAME As String = "" Public CURRENT_ENTITY_REDUNDANT_ID As Integer 'Public CURRENT_ENTITYSQL As String Public CURRENT_SCREEN_ID As Integer = 1 Public CURRENT_CONTROL_ID As Integer Public CURRENT_RECORD_ID As Integer Public CURRENT_NODE_GUID As Integer Public CURRENT_NODEID As Integer Public CURRENT_CHANGE_STEP As Integer = 0 Public CURRENT_TASK_ID As Integer Public CURRENT_DOKARTID As Integer Public CURRENT_DOKARTSTRING As String Public CURRENT_OPEN_CONSTRUCTOR_FORMS As New List(Of Integer) Public CURRENT_CONSTRUCTOR_ID As Integer = 1 Public CURRENT_CONSTRUCTOR_DETAIL_ID As Integer Public CURRENT_FILEID As Integer Public CURRENT_FILENAME As String Public CURRENT_OFFICE_FILE_CHANGED As Boolean = False Public CURRENT_NEWFILENAME As String Public CURRENT_CONTROL_DOCTYPE_MATCH As String = "" Public CURRENT_NOTIFICATION_MSG As String Public CURRENT_ENTITY_ID As Integer Public CURRENT_FORMVIEW_ID As Integer Public CURRENT_REDUNDANT_FORM_ID As Integer Public CURRENT_REDUNDANT_FORMVIEW_ID As Integer 'Public CURRENT_MASTER_FORM_ID As Integer Public CURRENT_FILEIN_WD As String Public CURRENT_DOC_ID Public CURRENT_NAVIGATION_TYPE As String = "DEFAULT" Public CURRENT_SELECTED_NODE As TreeNode Public NEW_RECORD_ID As Integer Public LOGPATH As String Public INTEGER1 As Integer Public STRING1 As String Public BOOLEAN1 As Boolean = False Public JUMP_STATE As Integer Public JUMP_RECORD_ID As Integer Public TEMP_FILES As List(Of String) = New List(Of String) Public FILE_FORMATS_CHANGE_DURING_EDIT As List(Of String) = New List(Of String) Public LICENSE_EXPIRED As Boolean = False Public LICENSE_COUNT As Integer = 0 Public LICENSE_DOSSIER_COUNT As Integer = 0 Public LICENSE_SAP_Connect As Boolean = False 'Public LICENSE_PROXY As Boolean = False Public LICENSE_SITE As Boolean = False Public LICENSE_DATE As Date Public DT_LICENSE_ADDONS As DataTable Public CONNECTION_CHANGED As Boolean = False Public CURRENT_SCAN_FOLDERWATCH As String Public CURRENT_SCAN_FOLDERWATCH_SD As Boolean = False Public DTEXCLUDE_FILES As DataTable Public LANGUAGE_CHANGED As Boolean = False 'DATATABLES Public CURRENT_TBPMO_CONN_SWITCH As DataTable Public CURRENT_TBPMO_CONTROL As DataTable Public CURRENT_SCAN_TABLE As DataTable Public CURRENT_TASKS_GENERAL As DataTable Public DT_DOCSEARCH_RESULTLIST_CONFIG As DataTable Public CURRENT_VARIABLE_CONTROLS As DataTable Public CURRENT_TBPMO_FORM_VIEW As DataTable Public CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS As DataTable Public CURRENT_TBPMO_RIGHT_USER As DataTable Public CURRENT_RECORD_ENABLED As Boolean = False Public ENTITY_RELOAD_AFT_CONTROL_LOAD As Boolean = False Public CURRENT_COL_COUNT As Integer = 0 Public CURRENT_CONTROL_VALUES As DataTable Public CURRENT_SQL_AUTO_VALUES_DT As DataTable Public CURRENT_ENTITYSQL_WHERE As String Public CURRENT_TBPMO_INDEX_MAN As DataTable Public CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS As DataTable Public CURRENT_DT_DOC_ENTITY_SEARCH As DataTable Public NODE_CONFIGURABLE_NODES_DT As DataTable Public CURRENT_DOC_RESULTS As DataTable Public CURRENT_DOC_DROPDOWN As DataTable Public CURRENT_PARENT_DT As DataTable Public DT_VWPMO_CONTROL_SCREEN As DataTable Public CURRENT_VWPMO_WF_ACTIVE As DataTable Public CURRENT_TBPMO_FILES_USER As DataTable Public CURRENT_SEARCH_TYPE As String = "RECORD" Public CURRENT_FULLTEXT_PATTERN As String Public Property CURRENT_DT_SELECTED_FILES As DataTable Public MASS_RECORD_IDs2CHANGE As ArrayList Public MASS_COLUMN_LIST As ArrayList Public SUCCESSFULL As Boolean = False Public CURRENT_LAST_SQL As String Public CURRENT_DATE_FORMAT As String Public NEW_FILES_ADDED As Boolean = False Public CURRENT_VARIABLE_FOLDER As String Public CURRENT_VARIABLE_FOLDER_OVERRIDE As Boolean = False Public CURRENT_DOCVIEW_PATH As String Public CURRENT_DOCVIEW Public CURRENT_NODE_CONFIGURABLE_ID As Integer Public CURRENT_NODE_IMAGE Public CURRENT_CHECK_SUBFOLDER As Boolean = False Public CURRENT_SUBFOLDER As String = "" Public RECORD_CHANGED As Boolean = False Public CURRENT_COMBOBOX_SELECTED_INDEX As Integer = 0 Public CURRENT_COMBOBOX_SELECTED_TEXT As String = "" Public CURRENT_TEXTBOX_SELECTED_TEXT As String = "" Public RIGHT_CONTROL_CHANGED As Boolean = False Public MSG_RIGHTMODULE_DE = "Achtung: " & vbNewLine & "Sie haben Änderungen an Rechte-relevanten Eingaben vorgenommen!" & vbNewLine & "Alle Rechte der zu diesem Datensatz gespeicherten Dateien werden nach Speichern serverseitig und im Hintergrund überprüft!" & vbNewLine & "Dies kann je nach Anzahl der Dateien bis zu 10 Minuten dauern!" & vbNewLine & "Wollen Sie fortfahren?" Public MSG_RIGHTMODULE_EN_US = "Attention:" & "You applied changes to right-relevant data!" & vbNewLine & "All rights of files belonging to this record will be checked and changed after Saving!" & vbNewLine & "This might take up to 10 Minutes (related to the amount of files)!" & vbNewLine & "Would You like to continue?" 'File Adding User FAU Public FAU_AD_DOMAIN As String Public FAU_AD_USER As String Public FAU_AD_USER_PW As String Public FAU_AD_SERVER As String Public MSG_TYPE As String Public MSG_TITLE As String Public MSG_LABLE1 As String Public MSG_ERROR1 As String Public MSG_LABLE2 As String Public MSG_ERROR2 As String Public INSERT_IN_ACTION As Boolean = False Public CURRENT_CONTROL_VALUE_COUNT As Integer = 1 Public LAYOUT_DOC_GRIDVIEW As String Public CURRENT_DOCSEARCH_SQL As String Public CURRENT_DOCSEARCH_CAPTION As String Public CURRENT_FILE_RIGHT As String Public SQL_DOC_RESULT_RECORD As String = "" Public SQL_GLOBAL_SEARCH As String = "" Public SQL_OF_NODE_SEARCH As String = "" Public CONF_SUPPORTPORTAL As String = "https://www.digitaldata.works/Support'" Public CURRENT_DT_TBPMO_DOC_RECORD_LINK As DataTable Public Property MYDB_ECM As MSSQLServer End Module