25 lines
830 B
VB.net
25 lines
830 B
VB.net
Module ModuleRuntimeVariables
|
|
|
|
' Diese Werte müssen später zur Laufzeit geladen werden
|
|
Public CURRENT_ProfilGUID As Integer
|
|
Public CURRENT_ProfilName As String
|
|
Public CURRENT_HTML_DOC As String
|
|
Public CURRENT_DOC_ID As Integer
|
|
Public ERROR_STATE = ""
|
|
Public USER_IS_ADMIN As Boolean = False
|
|
Public CURRENT_USERID
|
|
Public LICENSE_COUNT As Integer = 0
|
|
Public LICENSE_EXPIRED As Boolean = False
|
|
Public LICENSE_PROFILES As Integer = 0
|
|
Public USERCOUNT_LOGGED_IN As Integer = 0
|
|
Public CURRENT_INDEX_ID As Integer
|
|
Public CURRENT_OBJECTTYPE As String
|
|
Public CURRENT_DESIGN_TYPE As String
|
|
Public CURRENT_SQL_CON As Integer
|
|
Public CURRENT_SQL_COMAMND As String
|
|
Public CURRENT_DT_SQL_CONFIG_TABLE As DataTable
|
|
|
|
Public CURRENT_CONTROL_ID As Integer
|
|
|
|
End Module
|