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