1ded23ab18
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.
45 lines
1.9 KiB
VB.net
45 lines
1.9 KiB
VB.net
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 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
|
|
_UserID = pUserID
|
|
_ModShort = pModShort
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
cmbLanguage.DataSource = _DT_LANG
|
|
cmbLanguage.DisplayMember = _DT_LANG.Columns.Item("LANG_CODE").ColumnName
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
Private Sub btnStep1_Click(sender As Object, e As EventArgs) Handles btnStep1.Click
|
|
If cmbLanguage.SelectedIndex <> -1 Then
|
|
btnStep1.Enabled = False
|
|
btnStep2.Visible = True
|
|
End If
|
|
|
|
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 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
|
|
End Class |