AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Diverses Customizing

Browse Source
This commit is contained in:
Developer01
2024-07-31 11:10:21 +02:00
parent 2039b614c1
commit c15a0ee5a0
36 changed files with 1140 additions and 1612 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
app/DD-Record-Organizer/Classes/ClassInit.vb
View File

@@ -11,9 +11,10 @@ Public Class ClassInit
Public Sub InitLoggerANDConfig()
Try
LOGCONFIG = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing,
Dim oLocalUserAppDataPath As String = Application.LocalUserAppDataPath
LOGCONFIG = New LogConfig(LogConfig.PathType.AppData, oLocalUserAppDataPath & "\Log", Nothing,
My.Application.Info.CompanyName,
"OrgFlow")
My.Application.Info.ProductName)
LOGGER = LOGCONFIG.GetLogger()
LOGGER.Info("OrgFlow started")
@@ -195,7 +196,14 @@ Public Class ClassInit
If oRow.Item("TITLE") = "ADDI_DOC_SEARCH_RECORD" Then
SQL_DOC_RESULT_RECORD = oRow.Item("SQL_COMMAND")
LOGGER.Debug("SQL_DOC_RESULT_RECORD = " + SQL_DOC_RESULT_RECORD)
ElseIf oRow.Item("TITLE") = "OF_GLOBAL_SEARCH" Then
SQL_GLOBAL_SEARCH = oRow.Item("SQL_COMMAND")
ElseIf oRow.Item("TITLE") = "OF_NODE_SEARCH" Then
SQL_OF_NODE_SEARCH = oRow.Item("SQL_COMMAND")
End If
Next
Try
oSql = "SELECT * FROM TBDD_CATALOG"
@@ -288,11 +296,13 @@ Public Class ClassInit
WM_USER_PW = PWplainText
USER_GUID = USER_DT.Rows(0).Item("USER_ID")
LOGGER.Debug($"USER_GUID: {USER_GUID}")
Try
USERID_FK_INT_ECM = USER_DT.Rows(0).Item("USERID_FK_INT_ECM")
Catch ex As Exception
USERID_FK_INT_ECM = 0
End Try
LOGGER.Debug($"USERID_FK_INT_ECM: {USERID_FK_INT_ECM}")
USER_IS_ADMIN = USER_DT.Rows(0).Item("IS_ADMIN")
USER_LANGUAGE = USER_DT.Rows(0).Item("USER_LANGUAGE")
clsCURRENT.USER_LANGUAGE = USER_LANGUAGE