Module ModuleRuntimeVariables Public MAIN_FORM As frmMain = Nothing Public ERROR_INIT = "NONE" Public CtrlBuilder As ClassControlBuilder Public CtrlCommandUI As ClassControlCommandsUI ' Diese Werte müssen später zur Laufzeit geladen werden Public CURRENT_FORM_ID As Integer Public CURRENT_PARENT_ENTITY_ID As Integer Public CURRENT_PARENT_RECORD_ID As Integer Public CURRENT_ACT_LEVEL As Integer Public CURRENT_ENTITYSTRING As String = "" Public CURRENT_ENTITYSQL As String '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_CHANGE_STEP As Integer = 0 Public CURRENT_TASK_ID As Integer Public CURRENT_DOKARTID As Integer Public CURRENT_DOKARTSTRING As String 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_NEWFILENAME As String Public CURRENT_CONTROL_DOCTYPE_MATCH As String = "" Public CURRENT_FORMVIEW_ID As Integer 'Public CURRENT_MASTER_FORM_ID As Integer Public CURRENT_FILEIN_WD As String Public CURRENT_DOC_ID Public NEW_RECORD_ID As Integer Public LOGPATH As String Public INTEGER1 As Integer Public STRING1 As String Public JUMP_STATE As Integer Public JUMP_RECORD_ID As Integer Public TEMP_FILES 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 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_SCAN_TABLE As DataTable Public CURRENT_TASKS_GENERAL 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_ENTITY_DATATABLE As DataTable Public CURRENT_ENTITY_VALUES_DT As DataTable Public CURRENT_CONTROL_VALUES As DataTable Public CURRENT_SQL_AUTO_VALUES_DT As DataTable Public CURRENT_TBPMO_INDEX_MAN As DataTable Public CURRENT_DOC_RESULTS As DataTable Public CURRENT_PARENT_DT 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_DOCVIEW_PATH As String Public CURRENT_DOCVIEW Public CURRENT_CHECK_SUBFOLDER As Boolean = False Public CURRENT_SUBFOLDER As String = "" End Module