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

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