AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix Wix Path finally :D, Translate frmIndex to en

Browse Source
This commit is contained in:
Jonathan Jenne
2021-03-01 12:33:41 +01:00
parent 6042b7321d
commit d831fbc50d
23 changed files with 1723 additions and 1091 deletions
Download Patch File Download Diff File Expand all files Collapse all files

220
Global_Indexer/frmIndex.vb
View File

@@ -27,12 +27,36 @@ Public Class frmIndex
Private Property ViewerString As String
Private Const TEXT_MISSING_INPUT = "Bitte vervollständigen Sie die Eingaben!"
Private Const TEXT_MISSING_INPUT_DE = "Bitte vervollständigen Sie die Eingaben!"
Private Const TEXT_MISSING_INPUT_EN = "Please complete your entries!"
Private Const TEXT_CHECK_MANUAL_INDEXES_DE = "Die Überprüfung der manuellen Indexe ist fehlerhaft. Bitte informieren Sie Ihrenm Systembetreuer."
Private Const TEXT_CHECK_MANUAL_INDEXES_EN = "There is an error in the validation settings of the manual indexes. Please inform your administrator."
Private Const TEXT_CATCH_BLOCK_DE = "Unvorhergesehener Fehler in {0}: Fehlermeldung {1}"
Private Const TEXT_CATCH_BLOCK_EN = "Unexpected Error in {0}: Errormessage {1}"
Private Const LANG_DE = "de-DE"
Private _Logger As Logger
#End Region
Private Sub ShowErrorMessage(Exception As Exception, MethodTitle As String, Optional MoreInfo As String = "")
Dim oMessage As String
Dim oMoreInfo As String = IIf(MoreInfo = "", "", "(" & MoreInfo & ")")
If USER_LANGUAGE = LANG_DE Then
oMessage = String.Format(TEXT_CATCH_BLOCK_DE, MethodTitle, Exception.Message) & oMoreInfo
Else
oMessage = String.Format(TEXT_CATCH_BLOCK_EN, MethodTitle, Exception.Message) & oMoreInfo
End If
_Logger.Warn(oMessage)
_Logger.Error(Exception.Message)
MsgBox(oMessage, MsgBoxStyle.Critical, Text)
End Sub
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -139,8 +163,7 @@ Public Class frmIndex
End If
Next
Catch ex As Exception
MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Indexwert_checkValue:")
_Logger.Info(" - Unvorhergesehener Unexpected error in Indexwert_checkValue - Fehler: " & vbNewLine & ex.Message)
ShowErrorMessage(ex, "Indexwert_checkValue")
Return False
End Try
End Function
@@ -198,9 +221,7 @@ Public Class frmIndex
End If
Next
Catch ex As Exception
_Logger.Warn(" - Unvorhergesehener Unexpected error in GetManIndex_Value - Fehler: " & vbNewLine & ex.Message)
_Logger.Error(ex.Message)
MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in GetManIndex_Value:")
ShowErrorMessage(ex, "GetManIndex_Value")
Return Nothing
End Try
End Function
@@ -237,9 +258,7 @@ Public Class frmIndex
End If
Next
Catch ex As Exception
_Logger.Warn(" - Unvorhergesehener Unexpected error in GetAutoIndex_Value - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
_Logger.Error(ex.Message)
MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in GetAutoIndex_Value:")
ShowErrorMessage(ex, "GetAutoIndex_Value")
Return ""
End Try
End Function
@@ -271,9 +290,7 @@ Public Class frmIndex
End If
Catch ex As Exception
_Logger.Warn(" - Unexpected error in Get_AutomatischerIndex_SQL - Fehler: " & vbNewLine & ex.Message)
_Logger.Error(ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_AutomatischerIndex_SQL:")
ShowErrorMessage(ex, "GetAutomaticIndexSQLValue")
Return ""
End Try
End Function
@@ -292,7 +309,13 @@ Public Class frmIndex
If box.Text = "" Then
Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & dokartid & " AND NAME = '" & Replace(box.Name, "txt", "") & "'", MyConnectionString, True)
If optional_index = False Then
MsgBox(TEXT_MISSING_INPUT, MsgBoxStyle.Exclamation, "Fehlende Eingabe:")
If USER_LANGUAGE = LANG_DE Then
MsgBox(TEXT_MISSING_INPUT_DE, MsgBoxStyle.Exclamation, "Fehlende Eingabe:")
Else
MsgBox(TEXT_MISSING_INPUT_EN, MsgBoxStyle.Exclamation, "Missing Input:")
End If
box.Focus()
Return False
Else
@@ -301,8 +324,18 @@ Public Class frmIndex
End If
Else
If Indexwert_checkValueDB(Replace(box.Name, "txt", ""), box.Text) = False Then
_Logger.Info(" - Der eingegebene Wert wurde nicht in der Datenbank gefunden")
MsgBox("Der eingegebene Wert wurde nicht in der Datenbank gefunden!", MsgBoxStyle.Exclamation, "Fehlerhafte Indexierung:")
Dim oMessage, oTitle As String
If USER_LANGUAGE = LANG_DE Then
oTitle = "Fehlerhafte Indexierung:"
oMessage = "Der eingegebene Wert wurde nicht in der Datenbank gefunden!"
Else
oTitle = "Erroneous Indexing:"
oMessage = "The value was not found in the Database!"
End If
_Logger.Info(oMessage)
MsgBox(oMessage, MsgBoxStyle.Exclamation, oTitle)
box.Focus()
Return False
Else
@@ -320,7 +353,12 @@ Public Class frmIndex
Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & dokartid & " AND NAME = '" & Replace(oLookup.Name, "cmbMulti", "") & "'", MyConnectionString, True)
If optional_index = False Then
MsgBox(TEXT_MISSING_INPUT, MsgBoxStyle.Exclamation, Text)
If USER_LANGUAGE = LANG_DE Then
MsgBox(TEXT_MISSING_INPUT_DE, MsgBoxStyle.Exclamation, Text)
Else
MsgBox(TEXT_MISSING_INPUT_EN, MsgBoxStyle.Exclamation, Text)
End If
oLookup.Focus()
Return False
Else
@@ -339,7 +377,11 @@ Public Class frmIndex
Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & dokartid & " AND NAME = '" & Replace(cmbSingle.Name, "cmbSingle", "") & "'", MyConnectionString, True)
If optional_index = False Then
MsgBox(TEXT_MISSING_INPUT, MsgBoxStyle.Exclamation, Text)
If USER_LANGUAGE = LANG_DE Then
MsgBox(TEXT_MISSING_INPUT_DE, MsgBoxStyle.Exclamation, Text)
Else
MsgBox(TEXT_MISSING_INPUT_EN, MsgBoxStyle.Exclamation, Text)
End If
cmbSingle.Focus()
Return False
Else
@@ -355,7 +397,11 @@ Public Class frmIndex
If cmb.Text = "" Then
Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & dokartid & " AND NAME = '" & Replace(cmb.Name, "cmb", "") & "'", MyConnectionString, True)
If optional_index = False Then
MsgBox(TEXT_MISSING_INPUT, MsgBoxStyle.Exclamation, Text)
If USER_LANGUAGE = LANG_DE Then
MsgBox(TEXT_MISSING_INPUT_DE, MsgBoxStyle.Exclamation, Text)
Else
MsgBox(TEXT_MISSING_INPUT_EN, MsgBoxStyle.Exclamation, Text)
End If
cmb.Focus()
Return False
Else
@@ -375,7 +421,11 @@ Public Class frmIndex
Dim optional_index As Boolean = ClassDatabase.Execute_Scalar($"SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = {dokartid} AND NAME = '{oIndexName}'", MyConnectionString, True)
If optional_index = False Then
MsgBox(TEXT_MISSING_INPUT, MsgBoxStyle.Exclamation, Text)
If USER_LANGUAGE = LANG_DE Then
MsgBox(TEXT_MISSING_INPUT_DE, MsgBoxStyle.Exclamation, Text)
Else
MsgBox(TEXT_MISSING_INPUT_EN, MsgBoxStyle.Exclamation, Text)
End If
dtp.Focus()
Return False
Else
@@ -396,16 +446,14 @@ Public Class frmIndex
Continue For
End If
If oControl.Name.StartsWith("lbl") = False And result = False Then
_Logger.Info("Die Überprüfung der manuellen Indices ist fehlerhaft. Bitte informieren Sie den Systembetreuer")
_Logger.Info(TEXT_CHECK_MANUAL_INDEXES_EN)
Return False
End If
Next
Return True
Catch ex As Exception
_Logger.Warn(" - Unvorhergesehener Fehler in CheckWrite_IndexeMan - Fehler: " & vbNewLine & ex.Message)
_Logger.Error(ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unerwarteter Unexpected error in CheckWrite_IndexeMan:")
ShowErrorMessage(ex, "CheckWrite_IndexeMan")
Return False
End Try
End Function
@@ -447,9 +495,7 @@ Public Class frmIndex
End If
Next
Catch ex As Exception
_Logger.Warn(" - Unvorhergesehener Unexpected error in Indexwert_Postprocessing - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
_Logger.Error(ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Indexwert_Postprocessing:")
ShowErrorMessage(ex, "Indexwert_Postprocessing")
End Try
End Sub
@@ -644,9 +690,7 @@ Public Class frmIndex
End If
Catch ex As Exception
_Logger.Warn(" - Unvorhergesehener Unexpected error in Name_Generieren - Fehler: " & vbNewLine & ex.Message)
_Logger.Error(ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Allgemeiner Unexpected error in Name_Generieren:")
ShowErrorMessage(ex, "Name_Generieren")
Return False
End Try
@@ -787,9 +831,7 @@ Public Class frmIndex
End If
End If
Catch ex As Exception
_Logger.Warn("Unexpected error in Write_Indizes - Fehler: " & vbNewLine & ex.Message)
_Logger.Error(ex.Message)
MsgBox("Error in Write_Indizes:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ShowErrorMessage(ex, "Write_Indizes")
Return False
End Try
Return True
@@ -799,8 +841,7 @@ Public Class frmIndex
_Logger.Info("Indexvalue: " & indexvalue.ToString)
Return WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, indexvalue, CURR_DOKART_OBJECTTYPE)
Catch ex As Exception
_Logger.Error(ex)
MsgBox("Error in WriteIndex2File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ShowErrorMessage(ex, "WriteIndex2File")
Return False
End Try
@@ -1099,9 +1140,7 @@ Public Class frmIndex
Return indexierung_erfolgreich
End If
Catch ex As Exception
MsgBox("Error in SetEmailIndices:" & vbNewLine & ex.Message & vbNewLine & "Please check the configuration Email-Indexing!", MsgBoxStyle.Critical)
_Logger.Warn("Error in SetEmailIndices (Step finisched: " & _step & "): " & ex.Message)
_Logger.Error(ex)
ShowErrorMessage(ex, "SetEmailIndices")
Return False
End Try
End Function
@@ -1178,8 +1217,7 @@ Public Class frmIndex
Return indexierung_erfolgreich
End If
Catch ex As Exception
_Logger.Error(ex)
MsgBox("Error in SetAttachmentIndices:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ShowErrorMessage(ex, "SetAttachmentIndices")
Return False
End Try
@@ -1214,8 +1252,7 @@ Public Class frmIndex
Return oStreamSuccessful
Catch ex As Exception
_Logger.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in SINGLEFILE_2_WINDREAM:")
ShowErrorMessage(ex, "SINGLEFILE_2_WINDREAM")
Return False
End Try
End Function
@@ -1268,8 +1305,7 @@ Public Class frmIndex
End If
Return False
Catch ex As Exception
_Logger.Error(ex.Message)
_Logger.Warn(" - Unexpected error in Move_Rename - Insert_String: " & Insert_String)
ShowErrorMessage(ex, "Move_Rename_Only")
Return True
End Try
End Function
@@ -1279,7 +1315,7 @@ Public Class frmIndex
If File.Exists(CURRENT_FILENAME) Then
Select Case CancelAttempts
Case 0
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_DE Then
MsgBox("Bitte indexieren Sie die Datei vollständig!" & vbNewLine & "(Abbruch 1 des Indexierungsvorgangs)", MsgBoxStyle.Information)
Else
MsgBox("Please Index file completely" & vbNewLine & "(Abort 1 of Indexdialog)", MsgBoxStyle.Information)
@@ -1288,7 +1324,7 @@ Public Class frmIndex
e.Cancel = True
Case 1
Dim result As MsgBoxResult
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_DE Then
result = MessageBox.Show("Sie brechen nun zum zweiten Mal den Indexierungsvorgang ab!" & vbNewLine & "Wollen Sie die Indexierung aller Dateien abbrechen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
Else
result = MessageBox.Show("You abort the indexdialog for the 2nd time!" & vbNewLine & "Do You want to abort indexing?", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
@@ -1320,7 +1356,7 @@ Public Class frmIndex
'Zuerst die Daten des Ablaufs löschen
If ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True) = True Then
If containsfw_file = True Then
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_DE Then
MsgBox("Der Indexierungsprozess beinhaltete (auch) Dateien per Folderwatch!" & vbNewLine & "Diese Dateien wurden nicht gelöscht und verbleiben im Folderwatch-Verzeichnis!" & vbNewLine & "Bitte verschieben Sie die Dateien ggfls.", MsgBoxStyle.Information, "Achtung - Hinweis:")
Else
MsgBox("The Indexingprocess contained (also) files from folderwatch!" & vbNewLine & "These files weren't deleted and will stay in the folderwatch-folder!" & vbNewLine & "Please move these files manually.", MsgBoxStyle.Information, "Achtung - Hinweis:")
@@ -1361,9 +1397,7 @@ Public Class frmIndex
ClassWindowLocation.SaveFormLocationSize(Me)
My.Settings.Save()
Catch ex As Exception
_Logger.Warn(" - Unexpected error in Schliessen des Formulares - Fehler: " & vbNewLine & ex.Message)
_Logger.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Schliessen des Formulares:")
ShowErrorMessage(ex, "Form Close")
End Try
End Select
Else
@@ -1408,7 +1442,7 @@ Public Class frmIndex
End If
If DropType = "|DROPFROMFSYSTEM|" Then
If USER_LANGUAGE <> "de-DE" Then
If USER_LANGUAGE <> LANG_DE Then
Me.Text = "Indexing of dropped file"
Else
Me.Text = "Indexierung der gedroppten Datei"
@@ -1417,14 +1451,14 @@ Public Class frmIndex
Select Case DropType
Case "|FW_MSGONLY|"
_Logger.Info(".msg-file from folderwatch")
If USER_LANGUAGE <> "de-DE" Then
If USER_LANGUAGE <> LANG_DE Then
Me.Text = "Indexing of msg-File (without Attachments) - from Folderwatch"
Else
Me.Text = "Indexierung der msg-Datei (ohne Anhang) - aus Folderwatch"
End If
Case "|OUTLOOK_MESSAGE|"
_Logger.Info(".msg-file through dragdrop")
If USER_LANGUAGE <> "de-DE" Then
If USER_LANGUAGE <> LANG_DE Then
Me.Text = "Indexing of msg-File (without Attachments)"
Else
Me.Text = "Indexierung der msg-Datei (ohne Anhang)"
@@ -1432,7 +1466,7 @@ Public Class frmIndex
End Select
ElseIf DropType = "|MSGONLY|" Then
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_DE Then
Me.Text = "Indexierung der msg-Datei (ohne Anhang)"
Else
Me.Text = "Indexing of msg-File (without Attachments)"
@@ -1440,14 +1474,14 @@ Public Class frmIndex
ElseIf DropType = "|ATTMNTEXTRACTED|" Or DropType = "|OUTLOOK_ATTACHMENT|" Then
CURRENT_ISATTACHMENT = True
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_DE Then
Me.Text = "Indexierung eines Email-Attachments"
Else
Me.Text = "Indexing of email-Attachment"
End If
ElseIf DropType = "|FW_SIMPLEINDEXER|" Then
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_DE Then
Me.Text = "Indexierung einer Folderwatch-Datei"
Else
Me.Text = "Indexing of Folderwatch-File"
@@ -1468,7 +1502,7 @@ 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
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_DE Then
checkMultiindex.Text = "Multi-Indexing - Alle nachfolgenden Dateien (" & MULTIFILES & ") identisch indexieren"
Else
checkMultiindex.Text = "Multi-Indexing - All following files (" & MULTIFILES & ") will be indexed identically"
@@ -1487,9 +1521,7 @@ Public Class frmIndex
Catch ex As Exception
_Logger.Warn(" - Unexpected error in Öffnen des Formulares - Fehler: " & vbNewLine & ex.Message)
_Logger.Error(ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Öffnen des Formulares:")
ShowErrorMessage(ex, "Form Open")
End Try
End Sub
Sub Load_String()
@@ -1539,8 +1571,7 @@ Public Class frmIndex
End If
End If
Catch ex As Exception
_Logger.Warn(" - Unexpected error DTTBGI_REGEX_DOCTYPE - ErrorMessage: " & vbNewLine & ex.Message)
_Logger.Error(ex.Message)
ShowErrorMessage(ex, "Form Shown")
End Try
End Sub
Sub Refresh_Dokart()
@@ -1555,9 +1586,7 @@ Public Class frmIndex
cmbDokumentart.AutoCompleteSource = AutoCompleteSource.ListItems
cmbDokumentart.SelectedIndex = -1
Catch ex As Exception
_Logger.Warn(" - Unexpected error inm Laden der Dokumentarten - Fehler: " & vbNewLine & ex.Message)
_Logger.Error(ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Laden der Dokumentarten:")
ShowErrorMessage(ex, "Refresh_Dokart")
End Try
End Sub
Private Sub cmbDokumentart_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbDokumentart.SelectedIndexChanged
@@ -1592,9 +1621,7 @@ Public Class frmIndex
pnlIndex.Visible = True
LoadIndexe_Man()
Catch ex As System.Exception
_Logger.Error(ex)
_Logger.Warn("Fehler Refresh_IndexeMan: DOKART-ID: " & dokartid & " - Fehler: " & vbNewLine & ex.Message & vbNewLine & sql)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Refresh_IndexeMan:")
ShowErrorMessage(ex, "Refresh_IndexeMan", "DOKART-ID: " & dokartid)
End Try
End Sub
' <STAThread()> _
@@ -1613,8 +1640,7 @@ Public Class frmIndex
Return Nothing
End If
Catch ex As Exception
_Logger.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Check_HistoryValues:")
ShowErrorMessage(ex, "Check_HistoryValues")
Return Nothing
End Try
End Function
@@ -1692,7 +1718,7 @@ Public Class frmIndex
pnlIndex.Controls.Add(oPicker)
Case Else
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_DE Then
MsgBox("Bitte überprüfen Sie den Datentyp des hinterlegten Indexwertes!", MsgBoxStyle.Critical, "Achtung:")
Else
MsgBox("Please check Datatype of Indexvalue!", MsgBoxStyle.Critical, "Warning:")
@@ -1717,8 +1743,7 @@ Public Class frmIndex
SendKeys.Send("{TAB}")
Catch ex As Exception
_Logger.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in LoadIndexe_Man:")
ShowErrorMessage(ex, "LoadIndexe_Man")
End Try
End Sub
@@ -1888,8 +1913,7 @@ Public Class frmIndex
Return True
Catch ex As Exception
_Logger.Error(ex)
MsgBox(ex.Message)
ShowErrorMessage(ex, "FillIndexe_Autom")
Return False
End Try
End Function
@@ -1901,8 +1925,7 @@ Public Class frmIndex
Try
DocumentViewer1.LoadFile(CURRENT_WORKFILE)
Catch ex As Exception
_Logger.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in PreviewFile:")
ShowErrorMessage(ex, "PreviewFile")
End Try
End Sub
Private Function UnicodeBytesToString(ByVal bytes() As Byte) As String
@@ -1955,7 +1978,7 @@ Public Class frmIndex
End If
Else
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_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)
@@ -1963,7 +1986,7 @@ Public Class frmIndex
Return False
End If
Else
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_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)
@@ -1973,7 +1996,7 @@ Public Class frmIndex
'#### Automatische Werte indexieren ####
End If
Else
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_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)
@@ -1981,8 +2004,7 @@ Public Class frmIndex
Return False
End If
Catch ex As Exception
_Logger.Error(ex)
MsgBox("Unexpected Error in WORK_FILE:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ShowErrorMessage(ex, "WORK_FILE")
Return False
End Try
End Function
@@ -2020,7 +2042,7 @@ Public Class frmIndex
Next
Me.Cursor = Cursors.Default
If err = False Then
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_DE Then
MsgBox("Alle Dateien wurden mit Multiindexing erfolgreich verarbeitet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
Else
MsgBox("All files were successfully processed through Multiindexing", MsgBoxStyle.Information, "Success")
@@ -2035,7 +2057,7 @@ Public Class frmIndex
Me.Cursor = Cursors.Default
If CONFIG.Config.ShowIndexResult = True Then
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_DE Then
MsgBox("Die Datei wurde erfolgreich verarbeitet!" & vbNewLine & "Ablagepfad:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Erfolgsmeldung")
Else
MsgBox("File sucessfully processed!" & vbNewLine & "Path:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Success")
@@ -2114,7 +2136,7 @@ Public Class frmIndex
Else
oError = True
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_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)
@@ -2130,8 +2152,7 @@ Public Class frmIndex
Return False
End If
Catch ex As Exception
_Logger.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected Error in Move File2Target:")
ShowErrorMessage(ex, "Move_File2_Target")
Return False
End Try
End Function
@@ -2231,7 +2252,7 @@ Public Class frmIndex
Case Else
_Logger.Warn(" - Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & oMatch.Value.ToUpper)
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_DE Then
MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & oMatch.Value.ToUpper, MsgBoxStyle.Exclamation, "Unexpected error in Name generieren:")
Else
MsgBox("Attention - One element in Namingconvention could not be matched!" & vbNewLine & "Elementname: " & oMatch.Value.ToUpper, MsgBoxStyle.Exclamation, "Unexpected error in Name generieren:")
@@ -2277,9 +2298,7 @@ Public Class frmIndex
Return True
Catch ex As Exception
MsgBox("Unexpected Error in CreateFolderforIndex-Method:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
_Logger.Warn("Fehler in CrFolderForIndex: " & ex.Message)
_Logger.Error(ex)
ShowErrorMessage(ex, "CreateFolderForIndex")
Return False
End Try
End Function
@@ -2288,7 +2307,7 @@ Public Class frmIndex
If File.Exists(CURRENT_FILENAME) Then
Select Case CancelAttempts
Case 0
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_DE Then
MsgBox("Bitte indexieren Sie die Datei vollständig!" & vbNewLine & "(Abbruch 1 des Indexierungsvorgangs)", MsgBoxStyle.Information)
Else
MsgBox("Please Index file completely" & vbNewLine & "(Abort 1 of Indexdialog)", MsgBoxStyle.Information)
@@ -2296,10 +2315,10 @@ Public Class frmIndex
CancelAttempts = CancelAttempts + 1
Case 1
Dim result As MsgBoxResult
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_DE Then
result = MessageBox.Show("Sie brechen nun zum zweiten Mal den Indexierungsvorgang ab!" & vbNewLine & "Wollen Sie die Indexierung aller Dateien abbrechen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
Else
result = MessageBox.Show("You abort the indexdialog for the 2nd time!" & vbNewLine & "Do You want to abort indexing?", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result = MessageBox.Show("You are aborting the indexdialog for the 2nd time!" & vbNewLine & "Do You want to abort indexing?", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
End If
If result = MsgBoxResult.Yes Then
@@ -2330,7 +2349,7 @@ Public Class frmIndex
'Zuerst die Daten des Ablaufs löschen
If ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True) = True Then
If containsfw_file = True Then
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_DE Then
MsgBox("Der Indexierungsprozess beinhaltete (auch) Dateien per Folderwatch!" & vbNewLine & "Diese Dateien wurden nicht gelöscht und verbleiben im Folderwatch-Verzeichnis!" & vbNewLine & "Bitte verschieben Sie die Dateien ggfls.", MsgBoxStyle.Information, "Achtung - Hinweis:")
Else
MsgBox("The Indexingprocess contained (also) files from folderwatch!" & vbNewLine & "These files weren't deleted and will stay in the folderwatch-folder!" & vbNewLine & "Please move these files manually.", MsgBoxStyle.Information, "Achtung - Hinweis:")
@@ -2370,7 +2389,12 @@ Public Class frmIndex
Private Sub labelFilePath_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles labelFilePath.ItemClick
Clipboard.SetText(CURRENT_WORKFILE)
MsgBox("Aktuellen Pfad in die Zwischenablage kopiert!", MsgBoxStyle.Information, Text)
If USER_LANGUAGE = LANG_DE Then
MsgBox("Aktuellen Pfad in die Zwischenablage kopiert!", MsgBoxStyle.Information, Text)
Else
MsgBox("Current Path copied to Clipboard!", MsgBoxStyle.Information, Text)
End If
End Sub
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles btnOK.Click
@@ -2405,7 +2429,7 @@ Public Class frmIndex
Next
Me.Cursor = Cursors.Default
If err = False Then
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_DE Then
MsgBox("Alle Dateien wurden mit Multiindexing erfolgreich verarbeitet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
Else
MsgBox("All files were successfully processed through Multiindexing", MsgBoxStyle.Information, "Success")
@@ -2425,7 +2449,7 @@ Public Class frmIndex
If WORK_FILE() = True Then
Me.Cursor = Cursors.Default
If CONFIG.Config.ShowIndexResult = True Then
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_DE Then
MsgBox("Die Datei wurde erfolgreich verarbeitet!" & vbNewLine & "Ablagepfad:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Erfolgsmeldung")
Else
MsgBox("File sucessfully processed!" & vbNewLine & "Path:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Success")
@@ -2449,7 +2473,7 @@ Public Class frmIndex
End Sub
Private Sub checkMultiindex_CheckedChanged(sender As Object, e As EventArgs) Handles checkMultiindex.CheckedChanged
If USER_LANGUAGE = "de-DE" Then
If USER_LANGUAGE = LANG_DE Then
If checkMultiindex.Checked Then
Me.btnOK.Text = "Dateien indexieren"
MULTIINDEXING_ACTIVE = True