48 lines
1.3 KiB
VB.net
48 lines
1.3 KiB
VB.net
Module ModuleRuntimeVariables
|
|
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_FORM_TYPE As Integer
|
|
Public CURRENT_PARENTID 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
|
|
|
|
End Module
|