CONFIG.UserConfigPath
This commit is contained in:
@@ -5,6 +5,7 @@ Imports DigitalData.Modules.Logging
|
||||
Imports DigitalData.Modules.Config
|
||||
Imports System.Threading
|
||||
Imports DigitalData.Modules.EDMI.API
|
||||
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
|
||||
|
||||
Public Class ClassInit
|
||||
Public _lizenzManager As ClassLicenseManager
|
||||
@@ -100,24 +101,15 @@ Public Class ClassInit
|
||||
If Not IsNothing(_Client) Then
|
||||
If _Client.Connect() Then
|
||||
EDMIAppServerActive = True
|
||||
LOGGER.Info($"EDMIAppServer [{oAppServer}] is active!")
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn($"Could not initialize the AppServer: {ex.Message}")
|
||||
End Try
|
||||
|
||||
End If
|
||||
|
||||
'VIEWER_UNIVERSAL = CONFIG.Config.UniversalViewerPath
|
||||
'VIEWER_XCHANGE = CONFIG.Config.XChangeViewerPath
|
||||
'VIEWER_SUMATRA = CONFIG.Config.SumatraViewerPath
|
||||
'VIEWER_ZOOM_LEVEL = CONFIG.Config.PDFViewerZoomLevel
|
||||
'VIEWER_PDF = CONFIG.Config.PDFViewer
|
||||
'VIEWER_ALL = CONFIG.Config.DefaultViewer
|
||||
|
||||
INDEX_DMS_ERSTELLT = CONFIG.Config.IndexDmsErstellt
|
||||
INDEX_DMS_ERSTELLT_ZEIT = CONFIG.Config.IndexDmsErstelltZeit
|
||||
|
||||
@@ -216,7 +208,7 @@ Public Class ClassInit
|
||||
LOGGER.Info("Unexpected error in Refresh license: " & ex.Message, True)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Licensemanager:")
|
||||
End Try
|
||||
oStopWatch.done
|
||||
oStopWatch.Done()
|
||||
End Sub
|
||||
<STAThread()>
|
||||
Public Sub InitUserLogin(Optional pUSRNAME As String = "")
|
||||
@@ -231,7 +223,14 @@ Public Class ClassInit
|
||||
Try
|
||||
Dim oSQLSW As New RefreshHelper.SW("VWDD_USER_CLIENT")
|
||||
Dim oSQL = $"SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{USER_USERNAME}')"
|
||||
DT_CLIENT_USER = ClassDatabase.Return_Datatable(oSQL, "InitUserLogin1")
|
||||
|
||||
If EDMIAppServerActive = True Then
|
||||
Dim oTableResult As TableResult = _Client.GetDatatableByName("VWDD_USER_CLIENT", $"USERNAME like '{USER_USERNAME}'")
|
||||
DT_CLIENT_USER = oTableResult.Table
|
||||
Else
|
||||
DT_CLIENT_USER = ClassDatabase.Return_Datatable(oSQL, "InitUserLogin1")
|
||||
End If
|
||||
|
||||
oSQLSW.Done()
|
||||
|
||||
If DT_CLIENT_USER.Rows.Count > 1 Then
|
||||
@@ -255,7 +254,13 @@ Public Class ClassInit
|
||||
LOGGER.Debug("Username: " & USER_USERNAME)
|
||||
Dim oFnct As New RefreshHelper.SW("FNDD_CHECK_USER_MODULE")
|
||||
Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED)
|
||||
Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql, "InitUserLogin2")
|
||||
Dim DT_CHECKUSER_MODULE As DataTable
|
||||
If EDMIAppServerActive = True Then
|
||||
Dim oTableResult As TableResult = _Client.GetDatatableByName("TBDD_USER_MODULE", $"USERNAME = '{USER_USERNAME.ToLower}' AND MODULE_SHORT = 'PM'")
|
||||
DT_CHECKUSER_MODULE = oTableResult.Table
|
||||
Else
|
||||
DT_CHECKUSER_MODULE = ClassDatabase.Return_Datatable(sql, "InitUserLogin2")
|
||||
End If
|
||||
oFnct.Done()
|
||||
If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
|
||||
LOGGER.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
|
||||
@@ -349,28 +354,75 @@ Public Class ClassInit
|
||||
Try
|
||||
Dim oStopWatch As New RefreshHelper.SW("InitBasics")
|
||||
Dim oSql = String.Format("select * from TBPM_KONFIGURATION WHERE GUID = 1")
|
||||
BASEDATA_DT_CONFIG = ClassDatabase.Return_Datatable(oSql, "InitBasics1")
|
||||
If EDMIAppServerActive = True Then
|
||||
Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_KONFIGURATION", $"GUID = 1")
|
||||
BASEDATA_DT_CONFIG = oTableResult.Table
|
||||
Else
|
||||
BASEDATA_DT_CONFIG = ClassDatabase.Return_Datatable(oSql, "InitBasics1")
|
||||
End If
|
||||
|
||||
|
||||
Settings_LoadBasicConfig()
|
||||
oSql = "select * from TBDD_CONNECTION WHERE AKTIV = 1"
|
||||
BASEDATA_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(oSql, "InitBasics2")
|
||||
|
||||
If EDMIAppServerActive = True Then
|
||||
Dim oTableResult As TableResult = _Client.GetDatatableByName("TBDD_CONNECTION")
|
||||
BASEDATA_DT_TBDD_CONNECTION = oTableResult.Table
|
||||
Else
|
||||
BASEDATA_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(oSql, "InitBasics2")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
oSql = "Select * FROM TBDD_3RD_PARTY_MODULES WHERE ACTIVE = 1"
|
||||
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSql, "InitBasics3")
|
||||
For Each oROW As DataRow In oDT.Rows
|
||||
Dim oTBDD_3RD_PARTY_MODULES As DataTable
|
||||
If EDMIAppServerActive = True Then
|
||||
Dim oTableResult As TableResult = _Client.GetDatatableByName("TBDD_3RD_PARTY_MODULES")
|
||||
oTBDD_3RD_PARTY_MODULES = oTableResult.Table
|
||||
|
||||
Else
|
||||
oTBDD_3RD_PARTY_MODULES = ClassDatabase.Return_Datatable(oSql, "InitBasics3")
|
||||
End If
|
||||
|
||||
|
||||
For Each oROW As DataRow In oTBDD_3RD_PARTY_MODULES.Rows
|
||||
If oROW.Item("NAME") = "GDPICTURE" Then
|
||||
GDPICTURE_LICENSE = oROW.Item("LICENSE")
|
||||
End If
|
||||
Next
|
||||
oSql = "SELECT * FROM TBDD_GUI_LANGUAGE_PHRASE WHERE MODULE IN ('PM','All Modules')"
|
||||
BASEDATA_DT_GUI_LANGUAGE_PHRASES = ClassDatabase.Return_Datatable(oSql, "InitBasics4")
|
||||
If EDMIAppServerActive = True Then
|
||||
Dim oTableResult As TableResult = _Client.GetDatatableByName("TBDD_GUI_LANGUAGE_PHRASE")
|
||||
BASEDATA_DT_GUI_LANGUAGE_PHRASES = oTableResult.Table
|
||||
Else
|
||||
BASEDATA_DT_GUI_LANGUAGE_PHRASES = ClassDatabase.Return_Datatable(oSql, "InitBasics4")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If EDMIAppServerActive = True Then
|
||||
Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_PROFILE_SEARCH", "TYPE = 'DOC'", "PROFILE_ID,TAB_INDEX")
|
||||
BASEDATA_DT_PROFILES_SEARCHES_DOC = oTableResult.Table
|
||||
Else
|
||||
BASEDATA_DT_PROFILES_SEARCHES_DOC = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX", "InitBasics5")
|
||||
End If
|
||||
|
||||
BASEDATA_DT_PROFILES_SEARCHES_DOC = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX", "InitBasics5")
|
||||
BASEDATA_DT_PROFILE_SEARCHES_DOC = BASEDATA_DT_PROFILES_SEARCHES_DOC.Clone()
|
||||
If EDMIAppServerActive = True Then
|
||||
Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_MAIN_VIEW_GROUPS")
|
||||
BASEDATA_DTGRID_GROUPS = oTableResult.Table
|
||||
Else
|
||||
BASEDATA_DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1", "InitBasics6")
|
||||
End If
|
||||
If EDMIAppServerActive = True Then
|
||||
Dim oTableResult As TableResult = _Client.GetDatatableByName("TBPM_CHART")
|
||||
BASEDATA_DT_CHARTS = oTableResult.Table
|
||||
Else
|
||||
oSql = "SELECT * FROM TBPM_CHART"
|
||||
BASEDATA_DT_CHARTS = ClassDatabase.Return_Datatable(oSql, "InitBasics7")
|
||||
End If
|
||||
|
||||
BASEDATA_DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1", "InitBasics6")
|
||||
oSql = "SELECT * FROM TBPM_CHART"
|
||||
BASEDATA_DT_CHARTS = ClassDatabase.Return_Datatable(oSql, "InitBasics7")
|
||||
oStopWatch.Done()
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
@@ -383,7 +435,15 @@ Public Class ClassInit
|
||||
Try
|
||||
Dim oStopWatch As New RefreshHelper.SW("InitBasics2")
|
||||
Dim oSql = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID = {0}", USER_ID)
|
||||
BASEDATA_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(oSql, "InitBasics2_1")
|
||||
If EDMIAppServerActive = True Then
|
||||
Dim oTableResult As TableResult = _Client.GetDatatableByName("VWPM_PROFILE_USER", $"USER_ID = {USER_ID}")
|
||||
BASEDATA_DT_VW_PROFILE_USER = oTableResult.Table
|
||||
Else
|
||||
BASEDATA_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(oSql, "InitBasics2_1")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If BASEDATA_DT_VW_PROFILE_USER.Rows.Count = 0 Then
|
||||
LOGGER.Warn($"no profiles for user: '{USER_USERNAME}' configured - Check SQL [{oSql}]!", False)
|
||||
End If
|
||||
@@ -400,13 +460,23 @@ Public Class ClassInit
|
||||
Private Shared Function Settings_LoadBasicConfig()
|
||||
Try
|
||||
Dim sql As String = "select * from tbdd_Modules where SHORT_NAME = 'PM'"
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Settings_LoadBasicConfig")
|
||||
If DT.Rows.Count = 1 Then
|
||||
Dim oDTtbdd_Modules As DataTable
|
||||
If EDMIAppServerActive = True Then
|
||||
Dim oTableResult As TableResult = _Client.GetDatatableByName("tbdd_Modules", $" SHORT_NAME = 'PM'")
|
||||
oDTtbdd_Modules = oTableResult.Table
|
||||
If IsNothing(oDTtbdd_Modules) Then
|
||||
oDTtbdd_Modules = ClassDatabase.Return_Datatable(sql, "Settings_LoadBasicConfig")
|
||||
End If
|
||||
Else
|
||||
oDTtbdd_Modules = ClassDatabase.Return_Datatable(sql, "Settings_LoadBasicConfig")
|
||||
End If
|
||||
|
||||
If oDTtbdd_Modules.Rows.Count = 1 Then
|
||||
Try
|
||||
VERSION_DELIMITER = DT.Rows(0).Item("VERSION_DELIMITER")
|
||||
FILE_DELIMITER = DT.Rows(0).Item("FILE_DELIMITER")
|
||||
LICENSE_VALID = DT.Rows(0).Item("LICENSE_VALID")
|
||||
WMSESSION_STARTSTOP_STARTUP = DT.Rows(0).Item("WMSESSION_STARTSTOP_STARTUP")
|
||||
VERSION_DELIMITER = oDTtbdd_Modules.Rows(0).Item("VERSION_DELIMITER")
|
||||
FILE_DELIMITER = oDTtbdd_Modules.Rows(0).Item("FILE_DELIMITER")
|
||||
LICENSE_VALID = oDTtbdd_Modules.Rows(0).Item("LICENSE_VALID")
|
||||
WMSESSION_STARTSTOP_STARTUP = oDTtbdd_Modules.Rows(0).Item("WMSESSION_STARTSTOP_STARTUP")
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
LOGGER.Info("Unexpected Error in Settings_LoadBasicConfig: " & ex.Message, True)
|
||||
|
||||
Reference in New Issue
Block a user