Release
This commit is contained in:
@@ -1,9 +1,11 @@
|
||||
Public Class ClassParamRefresh
|
||||
Imports DigitalData.Modules.Database
|
||||
|
||||
Public Class ClassParamRefresh
|
||||
Public Shared Sub Refresh_Params(DT_CHECKUSER As DataTable)
|
||||
Dim oStopwatch As New RefreshHelper.SW("Refresh_Params")
|
||||
FORCE_LAYOUT_OVERVIEW = False
|
||||
SHOW_CHARTS = True
|
||||
USER_DEBUG_LOG = False
|
||||
|
||||
|
||||
|
||||
If DT_CHECKUSER.Rows.Count = 1 Then
|
||||
@@ -30,54 +32,66 @@
|
||||
LOGGER.Debug($"oWorkingMode Parameter: {oMode}")
|
||||
If oMode = "PM.FORCE_LAYOUT_OVERVIEW" Then
|
||||
FORCE_LAYOUT_OVERVIEW = True
|
||||
LOGGER.Info($"FORCE_LAYOUT_OVERVIEW [{FORCE_LAYOUT_OVERVIEW}]")
|
||||
LOGGER.Debug($"FORCE_LAYOUT_OVERVIEW [{FORCE_LAYOUT_OVERVIEW}]")
|
||||
ElseIf oMode = "PM.NO_MASS_VALIDATOR" Then
|
||||
SHOW_MASS_VALIDATOR = False
|
||||
LOGGER.Info($"SHOW_MASS_VALIDATOR [{SHOW_MASS_VALIDATOR}]")
|
||||
LOGGER.Debug($"SHOW_MASS_VALIDATOR [{SHOW_MASS_VALIDATOR}]")
|
||||
ElseIf oMode = "PM.NO_CHARTS" Then
|
||||
SHOW_CHARTS = False
|
||||
LOGGER.Info($"SHOW_CHARTS [{SHOW_CHARTS}]")
|
||||
LOGGER.Debug($"SHOW_CHARTS [{SHOW_CHARTS}]")
|
||||
ElseIf oMode = "PM.DEBUG_LOG" Then
|
||||
USER_DEBUG_LOG = True
|
||||
DEBUG = True
|
||||
LOGCONFIG.Debug = True
|
||||
ElseIf oMode = "PM.IDBWITHWMFS" Then
|
||||
IDB_USES_WMFILESTORE = True
|
||||
ElseIf oMode = "PM.NO_BASICCONF" Then
|
||||
BASIC_CONF_VISIBLE = False
|
||||
LOGGER.Info($"BASIC_CONF_VISIBLE [{BASIC_CONF_VISIBLE}]")
|
||||
LOGGER.Debug($"BASIC_CONF_VISIBLE [{BASIC_CONF_VISIBLE}]")
|
||||
ElseIf oMode.StartsWith("PM.IDB_CONID!") Then
|
||||
Dim CON_ID = oMode.Replace("PM.IDB_CONID!", "")
|
||||
Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
|
||||
CONNECTION_STRING_IDB = oConString
|
||||
If ClassDatabase.Init(CONNECTION_STRING_IDB) = False Then
|
||||
IDB_ACTIVE = False
|
||||
If CONNECTION_STRING_IDB <> "" And Not IsNothing(Database_IDB) Then
|
||||
If Database_IDB.DBInitialized = True Then
|
||||
IDB_ACTIVE = True
|
||||
Continue For
|
||||
End If
|
||||
Else
|
||||
IDB_ACTIVE = True
|
||||
LOGGER.Info($"Got an IDB-Connection [{CON_ID}]!")
|
||||
End If
|
||||
ElseIf oMode.StartsWith("PM.IDB_APP_SERV_CONID!") Then
|
||||
Dim CON_ID = oMode.Replace("PM.IDB_APP_SERV_CONID!", "")
|
||||
Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
|
||||
CONNECTION_STRING_IDB_APP_SERVER = oConString
|
||||
If ClassDatabase.Init(CONNECTION_STRING_IDB_APP_SERVER) = True Then
|
||||
LOGGER.Info($"Got an IDB APP-Server-Connection [{CON_ID}]!")
|
||||
Dim CON_ID = oMode.Replace("PM.IDB_CONID!", "")
|
||||
Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
|
||||
|
||||
CONNECTION_STRING_IDB = oConString
|
||||
Database_IDB = New MSSQLServer(LOGCONFIG, CONNECTION_STRING_IDB)
|
||||
If Database_IDB.DBInitialized = True Then
|
||||
IDB_ACTIVE = True
|
||||
LOGGER.Info($"IDB is active - IDB-Connection [{CON_ID}]!")
|
||||
Else
|
||||
IDB_ACTIVE = False
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'ElseIf oMode.StartsWith("PM.IDB_APP_SERV_CONID!") Then
|
||||
' Dim CON_ID = oMode.Replace("PM.IDB_APP_SERV_CONID!", "")
|
||||
' Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
|
||||
' CONNECTION_STRING_IDB_APP_SERVER = oConString
|
||||
' If ClassDatabase.Init(CONNECTION_STRING_IDB_APP_SERVER) = True Then
|
||||
' LOGGER.Info($"Got an IDB APP-Server-Connection [{CON_ID}]!")
|
||||
' End If
|
||||
ElseIf oMode = "PM.MONITORING" Then
|
||||
MONITORING_ACTIVE = True
|
||||
LOGGER.Info($"SHOW_MASS_VALIDATOR [{SHOW_MASS_VALIDATOR}]")
|
||||
LOGGER.Debug($"SHOW_MASS_VALIDATOR [{SHOW_MASS_VALIDATOR}]")
|
||||
ElseIf oMode = "PM.GHOSTMODE" Then
|
||||
GHOSTMODE_ACTIVE = True
|
||||
LOGGER.Info($"GHOSTMODE_ACTIVE [{GHOSTMODE_ACTIVE}]")
|
||||
LOGGER.Debug($"GHOSTMODE_ACTIVE [{GHOSTMODE_ACTIVE}]")
|
||||
ElseIf oMode.StartsWith("PM.COLORSCHEME") Then
|
||||
Dim oColorScheme = oMode.Replace("PM.COLORSCHEME=", "")
|
||||
RIBBON_COLOR_SCHEME = oColorScheme.ToUpper
|
||||
LOGGER.Info($"RIBBON_COLOR_SCHEME [{RIBBON_COLOR_SCHEME}]")
|
||||
LOGGER.Debug($"RIBBON_COLOR_SCHEME [{RIBBON_COLOR_SCHEME}]")
|
||||
ElseIf oMode.StartsWith("PM.NO_DETAIL_PROFILES") Then
|
||||
NO_DETAIL_PROFILES = True
|
||||
LOGGER.Info($"NO_DETAIL_PROFILES [{NO_DETAIL_PROFILES}]")
|
||||
LOGGER.Debug($"NO_DETAIL_PROFILES [{NO_DETAIL_PROFILES}]")
|
||||
ElseIf oMode = "PM.NO_POPUP" Then
|
||||
POPUP_REMINDER_ACTIVE = False
|
||||
LOGGER.Info($"POPUP_REMINDER_ACTIVE [{POPUP_REMINDER_ACTIVE}]")
|
||||
LOGGER.Debug($"POPUP_REMINDER_ACTIVE [{POPUP_REMINDER_ACTIVE}]")
|
||||
ElseIf oMode.StartsWith("PM.CONV_IDENTIFICATION") Then
|
||||
Dim oIdent = oMode.Replace("PM.CONV_IDENTIFICATION=", "")
|
||||
CONV_IDENTIFICATION = oIdent
|
||||
@@ -86,15 +100,16 @@
|
||||
Try
|
||||
|
||||
INACTIVITY_DURATION = CInt(oInactivityDuration)
|
||||
LOGGER.Info($"InactivityDuration [{INACTIVITY_DURATION}]")
|
||||
LOGGER.Debug($"InactivityDuration [{INACTIVITY_DURATION}]")
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn($"INACTIVITY_DURATION = 0 - {ex.Message}")
|
||||
INACTIVITY_DURATION = 0
|
||||
End Try
|
||||
ElseIf oMode.StartsWith("PM.COL_LAST_EDITED") Then
|
||||
Dim oLEDITEDCOL = oMode.Replace("PM.COL_LAST_EDITED=", "")
|
||||
Try
|
||||
LAST_EDITED_COLUMN = oLEDITEDCOL
|
||||
LOGGER.Info($"LAST_EDITED_COLUMN: {oLEDITEDCOL}")
|
||||
LOGGER.Debug($"LAST_EDITED_COLUMN: {oLEDITEDCOL}")
|
||||
Catch ex As Exception
|
||||
LAST_EDITED_COLUMN = ""
|
||||
|
||||
@@ -103,7 +118,7 @@
|
||||
Dim oLEDITEDCOL = oMode.Replace("PM.COL_LAST_ADDED=", "")
|
||||
Try
|
||||
LAST_ADDED_COLUMN = oLEDITEDCOL
|
||||
LOGGER.Info($"LAST_ADDED_COLUMN: {oLEDITEDCOL}")
|
||||
LOGGER.Debug($"LAST_ADDED_COLUMN: {oLEDITEDCOL}")
|
||||
Catch ex As Exception
|
||||
LAST_ADDED_COLUMN = ""
|
||||
|
||||
@@ -162,23 +177,30 @@
|
||||
ElseIf oMode.StartsWith("PM.RibbonPageCustItm1") Then
|
||||
Dim oAfterReplace = oMode.Replace("PM.RibbonPageCustItm1=", "")
|
||||
RibbonPageCustItm1 = oAfterReplace
|
||||
ElseIf oMode.StartsWith("PM.ButtonExport2FolderCaption") Then
|
||||
Dim oAfterReplace = oMode.Replace("PM.ButtonExport2FolderCaption=", "")
|
||||
ButtonExport2Folder_Caption = oAfterReplace
|
||||
ElseIf oMode.StartsWith("PM.ButtonExport2Folder_RootFolder") Then
|
||||
Dim oAfterReplace = oMode.Replace("PM.ButtonExport2Folder_RootFolder=", "")
|
||||
ButtonExport2Folder_RootFolder = oAfterReplace
|
||||
|
||||
Else
|
||||
LOGGER.Info($"Wrong oMode: {oMode}")
|
||||
End If
|
||||
Next
|
||||
If IDB_ACTIVE Then
|
||||
If CONNECTION_STRING_APP_SERVER <> String.Empty Then
|
||||
If USE_APPSERVER = True Then
|
||||
CONNECTION_STRING_IDB_READ = CONNECTION_STRING_APP_SERVER
|
||||
Else
|
||||
CONNECTION_STRING_IDB_READ = CONNECTION_STRING_IDB
|
||||
End If
|
||||
'If IDB_ACTIVE Then
|
||||
' If CONNECTION_STRING_APP_SERVER <> String.Empty Then
|
||||
' If USE_APPSERVER = True Then
|
||||
' CONNECTION_STRING_IDB_READ = CONNECTION_STRING_APP_SERVER
|
||||
' Else
|
||||
' CONNECTION_STRING_IDB_READ = CONNECTION_STRING_IDB
|
||||
' End If
|
||||
|
||||
Else
|
||||
CONNECTION_STRING_IDB_READ = CONNECTION_STRING_IDB
|
||||
End If
|
||||
CONNECTION_STRING_IDB_WRITE = CONNECTION_STRING_IDB
|
||||
End If
|
||||
' Else
|
||||
' CONNECTION_STRING_IDB_READ = CONNECTION_STRING_IDB
|
||||
' End If
|
||||
' CONNECTION_STRING_IDB_WRITE = CONNECTION_STRING_IDB
|
||||
'End If
|
||||
End If
|
||||
oStopwatch.Done()
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user