diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
index 4235068..2d51abc 100644
--- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
+++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
@@ -533,6 +533,11 @@
True
frmMain_Strings.resx
+
+ True
+ True
+ frmValidator_Strings.resx
+
XtraReport1.vb
@@ -691,6 +696,13 @@
ResXFileCodeGenerator
frmMain_Strings.Designer.vb
+
+
+
+ My.Resources
+ ResXFileCodeGenerator
+ frmValidator_Strings.Designer.vb
+
XtraReport1.vb
diff --git a/app/DD_PM_WINDREAM/Translations/frmValidator_Strings.Designer.vb b/app/DD_PM_WINDREAM/Translations/frmValidator_Strings.Designer.vb
new file mode 100644
index 0000000..0d61f48
--- /dev/null
+++ b/app/DD_PM_WINDREAM/Translations/frmValidator_Strings.Designer.vb
@@ -0,0 +1,139 @@
+'------------------------------------------------------------------------------
+'
+' Dieser Code wurde von einem Tool generiert.
+' Laufzeitversion:4.0.30319.42000
+'
+' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+' der Code erneut generiert wird.
+'
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+
+ 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+ '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+ 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+ 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+ '''
+ ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+ '''
+ _
+ Friend Class frmValidator_Strings
+
+ Private Shared resourceMan As Global.System.Resources.ResourceManager
+
+ Private Shared resourceCulture As Global.System.Globalization.CultureInfo
+
+ _
+ Friend Sub New()
+ MyBase.New
+ End Sub
+
+ '''
+ ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+ '''
+ _
+ Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+ Get
+ If Object.ReferenceEquals(resourceMan, Nothing) Then
+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_ProcessManager.frmValidator_Strings", GetType(frmValidator_Strings).Assembly)
+ resourceMan = temp
+ End If
+ Return resourceMan
+ End Get
+ End Property
+
+ '''
+ ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+ ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+ '''
+ _
+ Friend Shared Property Culture() As Global.System.Globalization.CultureInfo
+ Get
+ Return resourceCulture
+ End Get
+ Set
+ resourceCulture = value
+ End Set
+ End Property
+
+ '''
+ ''' Sucht eine lokalisierte Zeichenfolge, die Bitte validieren Sie die rot markierten Felder! ähnelt.
+ '''
+ Friend Shared ReadOnly Property Bitte_validieren_Sie_die_rot_markierten_Felder_() As String
+ Get
+ Return ResourceManager.GetString("Bitte validieren Sie die rot markierten Felder!", resourceCulture)
+ End Get
+ End Property
+
+ '''
+ ''' Sucht eine lokalisierte Zeichenfolge, die Eingaben gespeichert ähnelt.
+ '''
+ Friend Shared ReadOnly Property Eingaben_gespeichert() As String
+ Get
+ Return ResourceManager.GetString("Eingaben gespeichert", resourceCulture)
+ End Get
+ End Property
+
+ '''
+ ''' Sucht eine lokalisierte Zeichenfolge, die Ende des Profils - Keine weiteren Vorgänge ähnelt.
+ '''
+ Friend Shared ReadOnly Property Ende_des_Profils___Keine_weiteren_Vorgänge() As String
+ Get
+ Return ResourceManager.GetString("Ende des Profils - Keine weiteren Vorgänge", resourceCulture)
+ End Get
+ End Property
+
+ '''
+ ''' Sucht eine lokalisierte Zeichenfolge, die F2 für Speichern ähnelt.
+ '''
+ Friend Shared ReadOnly Property F2_für_Speichern() As String
+ Get
+ Return ResourceManager.GetString("F2 für Speichern", resourceCulture)
+ End Get
+ End Property
+
+ '''
+ ''' Sucht eine lokalisierte Zeichenfolge, die Falsche Eingabe ähnelt.
+ '''
+ Friend Shared ReadOnly Property Falsche_Eingabe() As String
+ Get
+ Return ResourceManager.GetString("Falsche Eingabe", resourceCulture)
+ End Get
+ End Property
+
+ '''
+ ''' Sucht eine lokalisierte Zeichenfolge, die Speichern - Nächster Vorgang (F2) ähnelt.
+ '''
+ Friend Shared ReadOnly Property Speichern___Nächster_Vorgang__F2_() As String
+ Get
+ Return ResourceManager.GetString("Speichern - Nächster Vorgang (F2)", resourceCulture)
+ End Get
+ End Property
+
+ '''
+ ''' Sucht eine lokalisierte Zeichenfolge, die Verbleibende Vorgänge: {0} ähnelt.
+ '''
+ Friend Shared ReadOnly Property Verbleibende_Vorgänge___0_() As String
+ Get
+ Return ResourceManager.GetString("Verbleibende Vorgänge: {0}", resourceCulture)
+ End Get
+ End Property
+
+ '''
+ ''' Sucht eine lokalisierte Zeichenfolge, die Wollen Sie die Konversation beenden? ähnelt.
+ '''
+ Friend Shared ReadOnly Property Wollen_Sie_die_Konversation_beenden_() As String
+ Get
+ Return ResourceManager.GetString("Wollen Sie die Konversation beenden?", resourceCulture)
+ End Get
+ End Property
+ End Class
+End Namespace
diff --git a/app/DD_PM_WINDREAM/Translations/frmValidator_Strings.en.resx b/app/DD_PM_WINDREAM/Translations/frmValidator_Strings.en.resx
new file mode 100644
index 0000000..09991f6
--- /dev/null
+++ b/app/DD_PM_WINDREAM/Translations/frmValidator_Strings.en.resx
@@ -0,0 +1,144 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ Please validate red marked fields!
+
+
+ Inputs saved
+
+
+ End of the profile - No further operations
+
+
+ F2 for save
+
+
+ Wrong input
+
+
+ Save - Next operation (F2)
+
+
+ Remaining operations: {0}
+
+
+ Would You like to end this conversation?
+
+
\ No newline at end of file
diff --git a/app/DD_PM_WINDREAM/Translations/frmValidator_Strings.fr.resx b/app/DD_PM_WINDREAM/Translations/frmValidator_Strings.fr.resx
new file mode 100644
index 0000000..8785d2b
--- /dev/null
+++ b/app/DD_PM_WINDREAM/Translations/frmValidator_Strings.fr.resx
@@ -0,0 +1,144 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ Veuillez valider les champs marqués en rouge!
+
+
+ Saisies enregistrées
+
+
+ Fin du profil - aucune autre opération
+
+
+ F2 pour enregistrer
+
+
+ Mauvaise saisie
+
+
+ Enregistrer - Opération suivante (F2)
+
+
+ Opérations restantes: {0}
+
+
+ Vous voulez mettre fin à la conversation?
+
+
\ No newline at end of file
diff --git a/app/DD_PM_WINDREAM/Translations/frmValidator_Strings.resx b/app/DD_PM_WINDREAM/Translations/frmValidator_Strings.resx
new file mode 100644
index 0000000..84c3589
--- /dev/null
+++ b/app/DD_PM_WINDREAM/Translations/frmValidator_Strings.resx
@@ -0,0 +1,144 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ Bitte validieren Sie die rot markierten Felder!
+
+
+ Eingaben gespeichert
+
+
+ Ende des Profils - Keine weiteren Vorgänge
+
+
+ F2 für Speichern
+
+
+ Falsche Eingabe
+
+
+ Speichern - Nächster Vorgang (F2)
+
+
+ Verbleibende Vorgänge: {0}
+
+
+ Wollen Sie die Konversation beenden?
+
+
\ No newline at end of file
diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb
index 61bdf6a..be125c2 100644
--- 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