frm Validator translations

2022-10-24 10:09:39 +02:00
parent 176a95f24f
commit bfb68ec692
6 changed files with 625 additions and 38 deletions
--- a/app/DD_PM_WINDREAM/frmValidator.vb
+++ b/app/DD_PM_WINDREAM/frmValidator.vb
@@ -106,6 +106,9 @@ Public Class frmValidator
    Private AdditionalDocResultsExist As Boolean = False
    Private AdditionalDataResultsExist As Boolean = False

+    Private Class S
+        Inherits My.Resources.frmValidator_Strings
+    End Class

    Public Sub New(pEnvironment As Environment)
        'MyBase.New
@@ -265,15 +268,17 @@ Public Class frmValidator
                                If text <> "" Then
                                    btnSave.Text = text
                                Else
-                                    Try
-                                        btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton")
-                                    Catch ex As Exception
-                                        LOGGER.Warn("Missing Config frmValidator.ValidationButton in TBDD_GUI_LANGUAGE_PHRASE")
-                                    End Try
+                                    'Try
+                                    '    btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton")
+                                    'Catch ex As Exception
+                                    '    LOGGER.Warn("Missing Config frmValidator.ValidationButton in TBDD_GUI_LANGUAGE_PHRASE")
+                                    'End Try
+                                    btnSave.Text = S.Speichern___Nächster_Vorgang__F2_

                                End If
                            Else
-                                btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton")
+                                'btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton")
+                                btnSave.Text = S.Speichern___Nächster_Vorgang__F2_
                            End If
                            LOGGER.Debug("Buttontext validation loaded")
                        Catch ex As Exception
@@ -320,7 +325,9 @@ Public Class frmValidator
                End If
            End If

-            oErrMsgMissingInput = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.MissingInput")
+            'oErrMsgMissingInput = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.MissingInput")
+            oErrMsgMissingInput = S.Bitte_validieren_Sie_die_rot_markierten_Felder_
+
            RibbonPageConversations.Visible = False
            If IDB_ACTIVE Then
                Dim oSQL = $"SELECT * FROM [dbo].[FNIDB_OBJECT_DYNAMIC_CONFIG] ({CURRENT_DOC_ID},{USER_ID})"
@@ -333,7 +340,10 @@ Public Class frmValidator
                    LOGGER.Debug("CONVERSATION-RIGHTS EXISTING")
                    RibbonPageConversations.Visible = True
                    RibbonPageGroupConv1.Enabled = True
-                    ConversationQUDT_Delete = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.Conversation_Delete")
+
+                    'ConversationQUDT_Delete = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.Conversation_Delete")
+                    ConversationQUDT_Delete = Nothing
+
                    oView = New DataView(DTDYNAMIC_RIGHTS)
                    oView.RowFilter = "CONF_TITLE = 'CONVERSATION_USER_ACTIVE'"
                    Conversation_initialized = Conversation_init()
@@ -2631,7 +2641,8 @@ Public Class frmValidator

                ' ############ Infos eintragen #################
                ' txtDateipfad.Text = Document_Path
-                Dim omsg = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("remainingOps")}: {Amount_Docs2Validate}"
+                'Dim omsg = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("remainingOps")}: {Amount_Docs2Validate}"
+                Dim omsg = String.Format(S.Verbleibende_Vorgänge___0_, Amount_Docs2Validate)

                If Amount_Docs2Validate > 0 Then
                    bsiInformation.Caption = omsg
@@ -2702,15 +2713,10 @@ Public Class frmValidator
                    errormessage = oErrMsgMissingInput
                    frmError.ShowDialog()
                Else
-                    Dim oMsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("msgEndOfProfile")
-
+                    'Dim oMsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("msgEndOfProfile")
+                    Dim oMsg = S.Ende_des_Profils___Keine_weiteren_Vorgänge
                    LOGGER.Info(oMsg)
-                    Dim oROW As DataRow = ClassAllgemeineFunktionen.GUI_LANGUAGE_MSGBOX("frmValidator.NoMoreDocument")
-                    'Try
-                    '    MsgBox(oROW.Item("STRING1"), MsgBoxStyle.Information, oROW.Item("STRING2"))
-                    'Catch ex As Exception
-                    '    MsgBox("No more documents! (No translation so far)" & vbNewLine & "Form will be closed now!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
-                    'End Try
+
                    activate_controls(True)
                    Me.Close()
                End If
@@ -4675,7 +4681,9 @@ Public Class frmValidator

                            Case "System.Windows.Forms.TextBox"
                                Try
-                                    Dim oWrongInputMessage = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.WrongInputControl")
+                                    'Dim oWrongInputMessage = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.WrongInputControl")
+                                    Dim oWrongInputMessage = S.Falsche_Eingabe
+
                                    If oRegexMatch <> String.Empty AndAlso Not Regex.IsMatch(oControl.Text, oRegexMatch) Then
                                        oMissing = True

@@ -5766,8 +5774,8 @@ Public Class frmValidator
        My.Settings.Save()
    End Sub
    Private Sub btnSave_MouseHover(sender As Object, e As EventArgs) Handles btnSave.MouseHover
-        Dim oMsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("F2forSave")
-        ToolTip1.Show(oMsg, btnSave)
+        'Dim oMsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("F2forSave")
+        ToolTip1.Show(S.F2_für_Speichern, btnSave)
    End Sub

    Sub Reload_Controls(SingleAttribute As String)
@@ -5842,7 +5850,8 @@ Public Class frmValidator
    Private Sub bbtniRefresh_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbtniRefresh.ItemClick
        Reload_Controls("")
        Try
-            btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton")
+            'btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton")
+            btnSave.Text = S.Speichern___Nächster_Vorgang__F2_
        Catch ex As Exception

        End Try
@@ -5875,7 +5884,8 @@ Public Class frmValidator
    Private Sub BbtnItm_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BbtnitmSave.ItemClick
        If ForceGridValidation() = True Then
            Dim oRESULT As String
-            oRESULT = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("InputSaved")
+            'oRESULT = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("InputSaved")
+            oRESULT = S.Eingaben_gespeichert

            If Check_UpdateIndexe() = True Then
                SetStatusLabel($"Data saved", "LimeGreen")
@@ -5958,24 +5968,18 @@ Public Class frmValidator

    Private Sub bbtnitem_ConversationEnd_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnitemConversationEnd.ItemClick
        If ChatControl1.CurrentConversationID <> 0 Then
-            Dim oQuestion As DataTable = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.Conversation_Delete")
-            If Not IsNothing(oQuestion) Then
-                If oQuestion.Rows.Count = 1 Then
-                    Dim result As MsgBoxResult
-                    result = MessageBox.Show(oQuestion.Rows(0).Item("STRING1").ToString, oQuestion.Rows(0).Item("STRING2").ToString, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
-                    If result = MsgBoxResult.Yes Then
-                        Dim oSQL = $"EXEC PRIDB_END_CONVERSATION {ChatControl1.CurrentConversationID}, '{USER_USERNAME}', '{USER_LANGUAGE}'"
-                        If DatabaseFallback.ExecuteNonQueryIDB(oSQL) = True Then
-                            btnitemConversationEnd.Enabled = False
-                            SplitContainer2_DV_Chat.Collapsed = True
-                            btnitemConversationEnd.Enabled = True
-                        Else
-                            MsgBox("Unexpected error in PRIDB_END_CONVERSATION - Check Your log!", MsgBoxStyle.Exclamation)
-                        End If
-                    End If
+            Dim result As MsgBoxResult
+            result = MessageBox.Show(S.Wollen_Sie_die_Konversation_beenden_, Text, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
+            If result = MsgBoxResult.Yes Then
+                Dim oSQL = $"EXEC PRIDB_END_CONVERSATION {ChatControl1.CurrentConversationID}, '{USER_USERNAME}', '{USER_LANGUAGE}'"
+                If DatabaseFallback.ExecuteNonQueryIDB(oSQL) = True Then
+                    btnitemConversationEnd.Enabled = False
+                    SplitContainer2_DV_Chat.Collapsed = True
+                    btnitemConversationEnd.Enabled = True
+                Else
+                    MsgBox("Unexpected error in PRIDB_END_CONVERSATION - Check Your log!", MsgBoxStyle.Exclamation)
                End If
            End If
-
        End If
    End Sub