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

Aktualisiere DevExpress und verbessere Fehlerbehandlung

Browse Source 
Die Verweise auf DevExpress-Bibliotheken in `DocumentViewer.vbproj`, `LookupControl.vbproj` und `Common.vbproj` wurden von Version 21.2 auf 25.2 aktualisiert, einschließlich der Anpassung der DLL-Pfade und der Hinzufügung des Attributs `<SpecificVersion>False</SpecificVersion>`.

Die Assembly-Versionen in `AssemblyInfo.vb` für `DocumentViewer`, `LookupControl` und `Loader` wurden entsprechend aktualisiert.

In `Loader.vb` wurden neue Ausnahmebehandlungen für `UnauthorizedAccessException` und bestimmte `IOException`-Fehlercodes hinzugefügt, um spezifische Warnungen und Fehlerprotokollierungen zu ermöglichen.

In `frmLanguage_Select.vb` wurden die Imports für `DigitalData.Modules.EDMI.API` hinzugefügt und die Datenbanklogik auf `DatabaseWithFallback` umgestellt. Die Benutzeridentifikation wurde von `USERNAME` auf `GUID` geändert, und es wurden zusätzliche Methodenaufrufe für die Sprachänderung hinzugefügt.
This commit is contained in:
Developer01
2026-10-22 15:56:06 +02:00
parent 8220852e56
commit 1ded23ab18
8 changed files with 214 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

82
GUIs.Common/Common.vbproj
View File

@@ -52,24 +52,74 @@
<Reference Include="BouncyCastle.Cryptography, Version=2.0.0.0, Culture=neutral, PublicKeyToken=072edcf4a5328938, processorArchitecture=MSIL">
<HintPath>..\packages\BouncyCastle.Cryptography.2.5.0\lib\net461\BouncyCastle.Cryptography.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Dialogs.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Office.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Printing.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Data.Desktop.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.RichEdit.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Sparkline.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraDialogs.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraPrinting.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraRichEdit.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<Reference Include="DevExpress.Data.Desktop.v25.2, Version=25.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 25.2\Components\Bin\Framework\DevExpress.Data.Desktop.v25.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Data.v25.2, Version=25.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 25.2\Components\Bin\Framework\DevExpress.Data.v25.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Dialogs.v25.2.Core, Version=25.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 25.2\Components\Bin\Framework\DevExpress.Dialogs.v25.2.Core.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Drawing.v25.2, Version=25.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 25.2\Components\Bin\Framework\DevExpress.Drawing.v25.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Office.v25.2.Core, Version=25.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 25.2\Components\Bin\Framework\DevExpress.Office.v25.2.Core.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Printing.v25.2.Core, Version=25.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 25.2\Components\Bin\Framework\DevExpress.Printing.v25.2.Core.dll</HintPath>
</Reference>
<Reference Include="DevExpress.RichEdit.v25.2.Core, Version=25.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 25.2\Components\Bin\Framework\DevExpress.RichEdit.v25.2.Core.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Sparkline.v25.2.Core, Version=25.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 25.2\Components\Bin\Framework\DevExpress.Sparkline.v25.2.Core.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Utils.v25.2, Version=25.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 25.2\Components\Bin\Framework\DevExpress.Utils.v25.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraBars.v25.2, Version=25.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 25.2\Components\Bin\Framework\DevExpress.XtraBars.v25.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraDialogs.v25.2, Version=25.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 25.2\Components\Bin\Framework\DevExpress.XtraDialogs.v25.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraEditors.v25.2, Version=25.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 25.2\Components\Bin\Framework\DevExpress.XtraEditors.v25.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraGrid.v25.2, Version=25.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 25.2\Components\Bin\Framework\DevExpress.XtraGrid.v25.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraLayout.v25.2, Version=25.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 25.2\Components\Bin\Framework\DevExpress.XtraLayout.v25.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraPrinting.v25.2, Version=25.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 25.2\Components\Bin\Framework\DevExpress.XtraPrinting.v25.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraRichEdit.v25.2, Version=25.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 25.2\Components\Bin\Framework\DevExpress.XtraRichEdit.v25.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraTreeList.v25.2, Version=25.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 25.2\Components\Bin\Framework\DevExpress.XtraTreeList.v25.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DigitalData.Controls.DocumentViewer, Version=2.7.3.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>

15
GUIs.Common/DocumentResultList/Loader.vb
View File

@@ -145,8 +145,21 @@ Namespace DocumentResultList
Return oMemoryStream.ToArray()
End Using
End Using
Catch ex As UnauthorizedAccessException
Logger.Warn("Access denied for file [{0}]. Check permissions or network credentials.", pFullPath)
Logger.Error(ex)
Return Nothing
Catch ex As IOException When (ex.HResult = -2147024843 OrElse
ex.HResult = -2147023570 OrElse
ex.HResult = -2147024829)
' -2147024843 = 0x80070035 Netzwerkpfad nicht gefunden
' -2147023570 = 0x8007052E Falscher Benutzername oder Kennwort (Error 1326)
' -2147024829 = 0x80070043 Netzwerkname nicht gefunden
Logger.Warn("Network access failed for file [{0}]. HResult: 0x{1:X8} – Possible causes: wrong credentials, unavailable share or disconnected network drive.", pFullPath, ex.HResult)
Logger.Error(ex)
Return Nothing
Catch ex As Exception
Logger.Warn("Loading file [{0}] failed.", pFullPath)
Logger.Warn("Loading file [{0}] failed. Exception: {1}", pFullPath, ex.GetType().Name)
Logger.Error(ex)
Return Nothing
End Try

4
GUIs.Common/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.8.0.0")>
<Assembly: AssemblyFileVersion("2.8.0.0")>
<Assembly: AssemblyVersion("2.9.1.0")>
<Assembly: AssemblyFileVersion("2.9.1.0")>

25
GUIs.Common/frmLanguage_Select.vb
View File

@@ -1,15 +1,19 @@
Public Class frmLanguage_Select
Private ReadOnly _Database As Modules.Database.MSSQLServer
Private ReadOnly _Username As String
Imports DigitalData.Modules.EDMI.API
Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback
Public Class frmLanguage_Select
Private ReadOnly _DatabaseFallback As DatabaseWithFallback
Private ReadOnly _UserID As String
Private ReadOnly _ModShort As String
Private ReadOnly _DT_LANG As DataTable
Public Property pChanged As Boolean = False
Public Sub New(pLogConfig As Modules.Logging.LogConfig, oConStringECM As String, pUserName As String, pDT_LANG As DataTable, pModShort As String)
_Database = New Modules.Database.MSSQLServer(pLogConfig, oConStringECM)
Public Property pChanged_Language As String = False
Public Sub New(pLogConfig As Modules.Logging.LogConfig, oDBFallback As DatabaseWithFallback, pUserID As String, pDT_LANG As DataTable, pModShort As String)
_DatabaseFallback = oDBFallback
_DT_LANG = pDT_LANG
_Username = pUserName
_UserID = pUserID
_ModShort = pModShort
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -29,9 +33,12 @@
End Sub
Private Sub btnStep2_Click(sender As Object, e As EventArgs) Handles btnStep2.Click
Dim update As String = $"UPDATE TBDD_USER SET [LANGUAGE] = '{cmbLanguage.Text}', CHANGED_WHO = 'LANG_CHANGE_GUI_{_ModShort}' WHERE USERNAME = '{_Username}'"
If _Database.ExecuteNonQuery(update) = True Then
Dim update As String = $"UPDATE TBDD_USER SET [LANGUAGE] = '{cmbLanguage.Text}', CHANGED_WHO = 'LANG_CHANGE_GUI_{_ModShort}' WHERE GUID = '{_UserID}'"
If _DatabaseFallback.ExecuteNonQueryECM(update) = True Then
_DatabaseFallback.ExecuteAppServiceWrite(New GetDatatableOptions(
$"TBDD_USER_MODULE?USER_ID={_UserID}!USER_LANGUAGE='{cmbLanguage.Text}'"))
pChanged = True
pChanged_Language = cmbLanguage.Text
Me.Close()
End If
End Sub