112 lines
4.0 KiB
VB.net
112 lines
4.0 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_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_DT_TBPMO_ENTITY_RIGHT_CONTROLS 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 = ""
|
|
|
|
Public RECORD_CHANGED As Boolean = False
|
|
Public CURRENT_COMBOBOX_SELECTED_INDEX As Integer = 0
|
|
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 15 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 15 Minutes (related to the amount of files)!" & vbNewLine & "Would You like to continue?"
|
|
End Module
|