jj 08.08 - update translations
This commit is contained in:
Jonathan Jenne
@@ -1762,12 +1762,25 @@ Public Class frmIndex
|
||||
End Select
|
||||
|
||||
ElseIf DropType = "|MSGONLY|" Then
|
||||
Me.Text = "Indexierung der msg-Datei (ohne Anhang):"
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
Me.Text = "Indexierung der msg-Datei (ohne Anhang):"
|
||||
Else
|
||||
Me.Text = "Indexing of msg-File (without Attachments):"
|
||||
End If
|
||||
ElseIf DropType = "|ATTMNTEXTRACTED|" Or DropType = "|OUTLOOK_ATTACHMENT|" Then
|
||||
CURRENT_ISATTACHMENT = True
|
||||
Me.Text = "Indexierung eines Email-Attachments:"
|
||||
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
Me.Text = "Indexierung eines Email-Attachments:"
|
||||
Else
|
||||
Me.Text = "Indexing of email-Attachment:"
|
||||
End If
|
||||
ElseIf DropType = "|FW_SIMPLEINDEXER|" Then
|
||||
Me.Text = "Indexierung einer Folderwatch-Datei:"
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
Me.Text = "Indexierung einer Folderwatch-Datei:"
|
||||
Else
|
||||
Me.Text = "Indexing of Folderwatch-File:"
|
||||
End If
|
||||
End If
|
||||
txtIndexfilepath.Text = CURRENT_WORKFILE
|
||||
ClassWindowLocation.LoadFormLocationSize(Me)
|
||||
@@ -1781,7 +1794,12 @@ Public Class frmIndex
|
||||
MULTIFILES = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_WORKFILE_GUID & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", MyConnectionString, True)
|
||||
MULTIINDEXING_ACTIVE = False
|
||||
If MULTIFILES > 0 Then
|
||||
chkMultiIndexer.Text = "Multi-Indexing - Alle nachfolgenden Dateien (" & MULTIFILES & ") identisch indexieren"
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
chkMultiIndexer.Text = "Multi-Indexing - Alle nachfolgenden Dateien (" & MULTIFILES & ") identisch indexieren"
|
||||
Else
|
||||
chkMultiIndexer.Text = "Multi-Indexing - All following files (" & MULTIFILES & ") will be indexed identically"
|
||||
End If
|
||||
|
||||
chkMultiIndexer.Checked = False
|
||||
chkMultiIndexer.Visible = True
|
||||
Else
|
||||
@@ -2307,7 +2325,7 @@ Public Class frmIndex
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei " & CURRENT_WORKFILE & " wird nun indexiert...", False)
|
||||
If FillIndexe_Autom(Me.cmbDokumentart.SelectedValue) = True Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" ...FillIndexe_Autom durchlaufen", False)
|
||||
|
||||
|
||||
'Den Zielnamen zusammenbauen
|
||||
If Name_Generieren() = True Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" ...Name_Generieren durchlaufen", False)
|
||||
@@ -2348,21 +2366,33 @@ Public Class frmIndex
|
||||
End If
|
||||
|
||||
Else
|
||||
MsgBox("Unerwarteter Unexpected error in Name_Generieren - Bitte überprüfen sie die LogFile", MsgBoxStyle.Critical)
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox("Unerwarteter Fehler in Name_Generieren - Bitte überprüfen sie die Logdatei", MsgBoxStyle.Critical)
|
||||
Else
|
||||
MsgBox("Unexpected error in Name_Generieren - Please check the Logfile", MsgBoxStyle.Critical)
|
||||
End If
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
MsgBox("Unvorhergesesehene Ausnahme in FillIndexe_Autom - Bitte überprüfen Sie die LogFile", MsgBoxStyle.Critical)
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox("Unerwarteter Fehler in FillIndexe_Autom - Bitte überprüfen sie die Logdatei", MsgBoxStyle.Critical)
|
||||
Else
|
||||
MsgBox("Unexpected error in FillIndexe_Autom - Please check the Logfile", MsgBoxStyle.Critical)
|
||||
End If
|
||||
Return False
|
||||
End If
|
||||
'#### Automatische Werte indexieren ####
|
||||
End If
|
||||
Else
|
||||
MsgBox("Bitte überprüfen Sie die Konfiguration dieser Dokumentart." & vbNewLine & "Es sind KEINE manuellen Indizes konfiguriert oder aktiv geschaltet!", MsgBoxStyle.Exclamation)
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox("Bitte überprüfen Sie die Konfiguration dieser Dokumentart." & vbNewLine & "Es sind KEINE manuellen Indizes konfiguriert oder aktiv geschaltet!", MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
MsgBox("Please check the configuration for this document-type." & vbNewLine & "There are NO manual indicies that are either configured or set to active!", MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Unerwarteter Fehler in WORK_FILE:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
MsgBox("Unexpected Error in WORK_FILE:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -2515,8 +2545,13 @@ Public Class frmIndex
|
||||
err = True
|
||||
End If
|
||||
Else
|
||||
MsgBox("Der Export nach windream war nicht erfolgreich - Check LogFile", MsgBoxStyle.Exclamation)
|
||||
err = True
|
||||
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox("Der Export nach windream war nicht erfolgreich - Check LogFile", MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
MsgBox("Export to windream was unsucessful - Check LogFile", MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
'False oder True zurückgeben
|
||||
@@ -2528,7 +2563,7 @@ Public Class frmIndex
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Allgemeiner Fehler in Move File2Target:")
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected Error in Move File2Target:")
|
||||
err = True
|
||||
End Try
|
||||
End Function
|
||||
@@ -2549,7 +2584,11 @@ Public Class frmIndex
|
||||
End Sub
|
||||
Sub PDF_Pagenumber()
|
||||
Try
|
||||
pdfstatuslblPageNumber.Text = "Seite " & PdfViewer1.CurrentPageNumber & "/" & PdfViewer1.PageCount
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
pdfstatuslblPageNumber.Text = "Seite " & PdfViewer1.CurrentPageNumber & "/" & PdfViewer1.PageCount
|
||||
Else
|
||||
pdfstatuslblPageNumber.Text = "Page " & PdfViewer1.CurrentPageNumber & "/" & PdfViewer1.PageCount
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
@@ -2636,7 +2675,12 @@ Public Class frmIndex
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> FolderPatter nach V-Element: '" & folderindex & "'", False)
|
||||
Case Else
|
||||
ClassLogger.Add(" - Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper)
|
||||
MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Unexpected error in Name generieren:")
|
||||
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Unexpected error in Name generieren:")
|
||||
Else
|
||||
MsgBox("Attention - One element in Namingconvention could not be matched!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Unexpected error in Name generieren:")
|
||||
End If
|
||||
End Select
|
||||
Next
|
||||
|
||||
@@ -2770,20 +2814,38 @@ Public Class frmIndex
|
||||
End Sub
|
||||
|
||||
Private Sub chkMultiIndexer_CheckedChanged(sender As Object, e As EventArgs) Handles chkMultiIndexer.CheckedChanged
|
||||
If chkMultiIndexer.Checked Then
|
||||
Me.btnOK.Text = "Dateien indexieren"
|
||||
MULTIINDEXING_ACTIVE = True
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
If chkMultiIndexer.Checked Then
|
||||
Me.btnOK.Text = "Dateien indexieren"
|
||||
MULTIINDEXING_ACTIVE = True
|
||||
Else
|
||||
Me.btnOK.Text = "Datei indexieren"
|
||||
MULTIINDEXING_ACTIVE = False
|
||||
End If
|
||||
Else
|
||||
Me.btnOK.Text = "Indexiere Datei"
|
||||
MULTIINDEXING_ACTIVE = False
|
||||
If chkMultiIndexer.Checked Then
|
||||
Me.btnOK.Text = "Index Files"
|
||||
MULTIINDEXING_ACTIVE = True
|
||||
Else
|
||||
Me.btnOK.Text = "Index File"
|
||||
MULTIINDEXING_ACTIVE = False
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CheckBox1_CheckedChanged_1(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
|
||||
If My.Settings.DA_Vorauswahlaktiv = True Then
|
||||
CheckBox1.Text = "Vorauswahl Dokumentart aktivieren"
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
If My.Settings.DA_Vorauswahlaktiv = True Then
|
||||
CheckBox1.Text = "Vorauswahl Dokumentart aktivieren"
|
||||
Else
|
||||
CheckBox1.Text = "Vorauswahl Dokumentart deaktivieren"
|
||||
End If
|
||||
Else
|
||||
CheckBox1.Text = "Vorauswahl Dokumentart inaktivieren"
|
||||
If My.Settings.DA_Vorauswahlaktiv = True Then
|
||||
CheckBox1.Text = "Activate Preselection of Document-Type"
|
||||
Else
|
||||
CheckBox1.Text = "Deactivate Preselection of Document-Type"
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user