AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First pass of new config

Browse Source
This commit is contained in:
Jonathan Jenne
2019-04-16 12:39:48 +02:00
parent 93bd7d0733
commit 4c86bd4c5c
28 changed files with 984 additions and 1127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
app/DD_PM_WINDREAM/ModuleMySettings.vb
View File

@@ -2,28 +2,27 @@
Imports System.Xml
Module ModuleMySettings
'Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml")
Public Const USER_CONFIG_FILE = "UserConfig.xml"
Public Const COMPUTER_CONFIG_FILE = "ComputerConfig.xml"
Public MyConnectionString As String = ""
Public UniversalViewer As String = ""
Public PDFXChangeViewer As String = ""
Public SumatraViewer As String = ""
Public LogErrorsOnly As Boolean = True
Public PDFViewer_ZoomMode As Integer = 3
Public vpdfviewer As String = "internal"
Public Viewer As String = "docview"
Public IDX_DMS_ERSTELLT = "DMS erstellt"
Public IDX_DMS_ERSTELLT_ZEIT = "DMS erstellt (Zeit)"
Public USRMNGRPATH = ""
Public LOG_ERRORS_ONLY As Boolean = True
Public CONNECTION_STRING As String = ""
Public CURRENT_FILE As String = ""
' Viewer Settings
Public VIEWER_UNIVERSAL As String = ""
Public VIEWER_XCHANGE As String = ""
Public VIEWER_SUMATRA As String = ""
Public VIEWER_ZOOM_LEVEL As Integer = 3
Public VIEWER_PDF As String = "internal"
Public VIEWER_ALL As String = "docview"
Public INDEX_DMS_ERSTELLT = "DMS erstellt"
Public INDEX_DMS_ERSTELLT_ZEIT = "DMS erstellt (Zeit)"
Public USER_MANAGER_PATH = ""
Public vWLaufwerk As String = "W"
Public vVERSION_DELIMITER As String = "~"
Public vFILE_DELIMITER As String = "_"
' These settings are loaded from the database
Public VERSION_DELIMITER As String = "~"
Public FILE_DELIMITER As String = "_"
Public WMSESSION_STARTSTOP_STARTUP As Boolean = False
Public Function GetUserConfigPath() As String
@@ -83,31 +82,31 @@ Module ModuleMySettings
oConnectionString = oRow.Item("Value").ToString
End If
MyConnectionString = oConnectionString
CONNECTION_STRING = oConnectionString
ClassDatabase.Init()
Else
MyConnectionString = ""
CONNECTION_STRING = ""
End If
Case "LogErrorsOnly"
LogErrorsOnly = CBool(oRow.Item("Value"))
LOG_ERRORS_ONLY = CBool(oRow.Item("Value"))
Case "UniversalViewer"
UniversalViewer = oRow.Item("Value")
VIEWER_UNIVERSAL = oRow.Item("Value")
Case "PDFXChangeViewer"
PDFXChangeViewer = oRow.Item("Value")
VIEWER_XCHANGE = oRow.Item("Value")
Case "PDFViewer_ZoomMode"
PDFViewer_ZoomMode = oRow.Item("Value")
VIEWER_ZOOM_LEVEL = oRow.Item("Value")
Case "vpdfviewer"
vpdfviewer = oRow.Item("Value")
VIEWER_PDF = oRow.Item("Value")
Case "Viewer"
Viewer = oRow.Item("Value")
VIEWER_ALL = oRow.Item("Value")
Case "SumatraViewer"
SumatraViewer = oRow.Item("Value")
VIEWER_SUMATRA = oRow.Item("Value")
Case "IDX_DMS_ERSTELLT"
IDX_DMS_ERSTELLT = oRow.Item("Value")
INDEX_DMS_ERSTELLT = oRow.Item("Value")
Case "IDX_DMS_ERSTELLT_ZEIT"
IDX_DMS_ERSTELLT_ZEIT = oRow.Item("Value")
INDEX_DMS_ERSTELLT_ZEIT = oRow.Item("Value")
Case "USRMNGRPATH"
USRMNGRPATH = oRow.Item("Value")
USER_MANAGER_PATH = oRow.Item("Value")
End Select
Next
Return True