60 lines
1.7 KiB
VB.net
60 lines
1.7 KiB
VB.net
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_ID As Integer
|
|
|
|
|
|
Public CURRENT_ENTITYSTRING 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_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_FORMVIEW_ID As Integer
|
|
'Public CURRENT_MASTER_FORM_ID As Integer
|
|
Public CURRENT_FILEIN_WD As String
|
|
|
|
Public NEW_RECORD_ID As Integer
|
|
|
|
Public LOGPATH As String
|
|
|
|
Public INTEGER1 As Integer
|
|
Public STRING1 As String
|
|
|
|
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 CONNECTION_CHANGED As Boolean = False
|
|
|
|
Public CURRENT_SCAN_FOLDERWATCH As String
|
|
Public DTEXCLUDE_FILES As DataTable
|
|
Public LANGUAGE_CHANGED As Boolean = False
|
|
'DATATABLES
|
|
Public CURRENT_SCAN_TABLE As DataTable
|
|
Public CURRENT_TASKS_GENERAL As DataTable
|
|
|
|
End Module
|