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

MSEdmiAppServerRename

Browse Source
This commit is contained in:
SchreiberM 2020-12-18 08:01:03 +01:00
parent 82897a2f12
commit e3e17ce1be
4 changed files with 11 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
app/DD_PM_WINDREAM/ClassConfig.vb
View File

@ -8,19 +8,12 @@ Public Class ClassConfig
Public Property ConnectionStringTest As String = "" Public Property ConnectionStringTest As String = ""
<ConnectionStringAppServer> <ConnectionStringAppServer>
Public Property ConnectionStringAppServer As String = "" Public Property ConnectionStringAppServer As String = ""
<AppServerConfig> <EDMIAppServer>
Public Property AppServerConfig As String = "" Public Property EDMIAppServer As String = ""
Public Property TestMode As Boolean = False Public Property TestMode As Boolean = False
' PDF Viewer Settings ' PDF Viewer Settings
Public Property UniversalViewerPath As String = ""
Public Property XChangeViewerPath As String = ""
Public Property SumatraViewerPath As String = ""
Public Property PDFViewerZoomLevel As Integer = 3
Public Property PDFViewer As String = "internal"
Public Property DefaultViewer As String = "docview"
' Windream Settings ' Windream Settings
Public Property IndexDmsErstellt As String = "DMS erstellt" Public Property IndexDmsErstellt As String = "DMS erstellt"

16
app/DD_PM_WINDREAM/ClassInit.vb
View File

@ -23,7 +23,7 @@ Public Class ClassInit
LOGGER.Info("## ProcessManager started - {0}", Now) LOGGER.Info("## ProcessManager started - {0}", Now)
Try Try
Dim directory As New IO.DirectoryInfo(Application.LocalUserAppDataPath & "\Log") Dim directory As New IO.DirectoryInfo(LOGCONFIG.LogDirectory)
For Each file As IO.FileInfo In directory.GetFiles For Each file As IO.FileInfo In directory.GetFiles
If (Now - file.CreationTime).Days > 29 Then If (Now - file.CreationTime).Days > 29 Then
@ -42,15 +42,15 @@ Public Class ClassInit
<STAThread()> <STAThread()>
Public Sub InitUserConfig() Public Sub InitUserConfig()
Try Try
Dim AppdataPath = Application.UserAppDataPath Dim UserAppDataPath = Application.UserAppDataPath
Dim CommonAppDataPath = Application.CommonAppDataPath Dim CommonAppDataPath = Application.CommonAppDataPath
Dim StartupPath = Application.StartupPath Dim StartupPath = Application.StartupPath
If My.Settings.UseAppConfigConString = True Then If My.Settings.UseAppConfigConString = True Then
AppdataPath = StartupPath ' UserAppDataPath = StartupPath
CommonAppDataPath = StartupPath CommonAppDataPath = StartupPath
End If End If
CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, AppdataPath, CommonAppDataPath, StartupPath) CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, UserAppDataPath, CommonAppDataPath, StartupPath)
LOGGER.Info("Config loaded") LOGGER.Info("Config loaded")
If CONFIG.Config.ConnectionStringTest <> String.Empty And CONFIG.Config.TestMode = True Then If CONFIG.Config.ConnectionStringTest <> String.Empty And CONFIG.Config.TestMode = True Then
@ -69,11 +69,9 @@ Public Class ClassInit
CONNECTION_STRING_READ = CONNECTION_STRING CONNECTION_STRING_READ = CONNECTION_STRING
End If End If
If CONFIG.Config.AppServerConfig <> String.Empty Then If CONFIG.Config.EDMIAppServer <> String.Empty Then
Try Try
Dim oSplit() = CONFIG.Config.AppServerConfig.ToString.Split(";") Dim oSplit() = CONFIG.Config.EDMIAppServer.ToString.Split(";")
Dim oAppServer = oSplit(0) Dim oAppServer = oSplit(0)
Dim oAppServerPort = 9000 Dim oAppServerPort = 9000
If oSplit.Length = 2 Then If oSplit.Length = 2 Then
@ -82,7 +80,7 @@ Public Class ClassInit
_Client = New Client(LOGCONFIG, oAppServer, oAppServerPort) _Client = New Client(LOGCONFIG, oAppServer, oAppServerPort)
If Not IsNothing(_Client) Then If Not IsNothing(_Client) Then
If _Client.Connect() Then If _Client.Connect() Then
APPSERVER_ACTIVE = True EDMIAppServerActive = True
End If End If
End If End If

2
app/DD_PM_WINDREAM/ModuleMySettings.vb
View File

@ -9,7 +9,7 @@
Public CONNECTION_STRING_IDB_READ As String = "" Public CONNECTION_STRING_IDB_READ As String = ""
Public CONNECTION_STRING_IDB_WRITE As String = "" Public CONNECTION_STRING_IDB_WRITE As String = ""
Public IDB_ACTIVE As Boolean = False Public IDB_ACTIVE As Boolean = False
Public APPSERVER_ACTIVE As Boolean = False Public EDMIAppServerActive As Boolean = False
Public IDB_USES_WMFILESTORE As Boolean = False Public IDB_USES_WMFILESTORE As Boolean = False
Public BASIC_CONF_VISIBLE As Boolean = True Public BASIC_CONF_VISIBLE As Boolean = True

2
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -313,7 +313,7 @@ Public Class frmMain
LOGGER.Debug($"Got the IDB_DOC_DATA_SQL..{IDB_DOC_DATA_SQL}") LOGGER.Debug($"Got the IDB_DOC_DATA_SQL..{IDB_DOC_DATA_SQL}")
End If End If
bsiGeneralInfo.Caption = "IDB active" bsiGeneralInfo.Caption = "IDB active"
If APPSERVER_ACTIVE = True Then If EDMIAppServerActive = True Then
BarStaticItemAppServer.Visibility = DevExpress.XtraBars.BarItemVisibility.Always BarStaticItemAppServer.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else Else
BarStaticItemAppServer.Visibility = DevExpress.XtraBars.BarItemVisibility.Never BarStaticItemAppServer.Visibility = DevExpress.XtraBars.BarItemVisibility.Never