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

ms

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-08-14 10:20:03 +02:00
parent 4928d841fa 6c39d857f2
commit 80561a4eac
86 changed files with 14803 additions and 32803 deletions
Download Patch File Download Diff File Expand all files Collapse all files

196
Global_Indexer/frmIndex.vb
View File

@@ -133,8 +133,20 @@ Public Class frmIndex
AddHandler cmb.SelectedIndexChanged, AddressOf OncmbSIndexChanged
AddHandler cmb.GotFocus, AddressOf OncmbGotFocus
AddHandler cmb.LostFocus, AddressOf OncmbLostFocus
AddHandler cmb.KeyDown, AddressOf OncmbKeyDown
Return cmb
End Function
' <STAThread()> _
Public Sub OncmbKeyDown(sender As System.Object, e As System.EventArgs)
Dim cmb As ComboBox = sender
' Verhindert, dass Auswahlliste und Autocompleteliste übereinander liegen
If cmb.DroppedDown = True Then
cmb.DroppedDown = False
End If
End Sub
' <STAThread()> _
Public Sub OncmbGotFocus(sender As System.Object, e As System.EventArgs)
Dim cmb As ComboBox = sender
@@ -942,7 +954,7 @@ Public Class frmIndex
'####
' Regulären Ausdruck zum Auslesen der Indexe definieren
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
Dim preg As String = "\[%{1}[a-zA-Z0-9ß\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
'schonmal den gesamten Pfad laden
Dim DATEINAME As String = Zielordner & "\" & DT.Rows(0).Item("NAMENKONVENTION")
NewFileString = DATEINAME
@@ -973,7 +985,13 @@ Public Class frmIndex
If optional_index = True Then
Dim result As MsgBoxResult
result = MessageBox.Show("Achtung der optionale Index ist leer, wird aber für die Benennung der Datei benutzt." & vbNewLine & "Wollen Sie stattdessen den Originaldateinamen verwenden?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If USER_LANGUAGE = "de-DE" Then
result = MessageBox.Show("Achtung der optionale Index ist leer, wird aber für die Benennung der Datei benutzt." & vbNewLine & "Wollen Sie stattdessen den Originaldateinamen verwenden?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
Else
result = MessageBox.Show("Attention: optional index is empty, but is being used in renaming the file." & vbNewLine & "Do you want to use the original filename instead?", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
End If
If result = MsgBoxResult.Yes Then
DATEINAME = DATEINAME.Replace(element.Value, System.IO.Path.GetFileNameWithoutExtension(CURRENT_WORKFILE))
NewFileString = DATEINAME
@@ -1332,7 +1350,7 @@ Public Class frmIndex
End If
_step = "4"
' Regular Expressions vorbereiten
If fromPattern <> "" And toPattern <> "" Then
_step = "4.1"
Dim FromRegexList As New List(Of Regex)
@@ -1343,7 +1361,7 @@ Public Class frmIndex
FromRegexList.Add(fromRegex)
ToRegexList.Add(toRegex)
Dim emailFrom
Dim emailTo
' Email Absender und Empfänger
@@ -1418,7 +1436,7 @@ Public Class frmIndex
_step = "6.1.x"
ClassLogger.Add(" >> emailFrom is Nothing?!")
End If
If Not IsNothing(emailTo) Then
_step = "6.1.1 " & emailTo.ToString
emailTo = emailTo.Replace("<", "")
@@ -1738,24 +1756,49 @@ Public Class frmIndex
If DropType = "|DROPFROMFSYSTEM|" Then
chkdelete_origin.Visible = True
chkdelete_origin.Checked = CURR_DELETE_ORIGIN
Me.Text = "Indexierung der gedroppten Datei:"
If USER_LANGUAGE <> "de-DE" Then
Me.Text = "Indexing of dropped file:"
Else
Me.Text = "Indexierung der gedroppten Datei:"
End If
ElseIf DropType = "|OUTLOOK_MESSAGE|" Or DropType = "|FW_MSGONLY|" Then
Select Case DropType
Case "|FW_MSGONLY|"
If LogErrorsOnly = False Then ClassLogger.Add(" >> .msg-file from folderwatch", False)
Me.Text = "Indexierung der msg-Datei (ohne Anhang) - aus Folderwatch:"
If USER_LANGUAGE <> "de-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|"
If LogErrorsOnly = False Then ClassLogger.Add(" >> .msg-file through dragdrop", False)
Me.Text = "Indexierung der msg-Datei (ohne Anhang):"
If USER_LANGUAGE <> "de-DE" Then
Me.Text = "Indexing of msg-File (without Attachments)"
Else
Me.Text = "Indexierung der msg-Datei (ohne Anhang)"
End If
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)
@@ -1769,7 +1812,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
@@ -1935,7 +1983,12 @@ Public Class frmIndex
Case "DATE"
AddDateTimePicker(DR.Item("NAME"), y)
Case Else
MsgBox("Bitte überprüfen Sie den Datentyp des hinterlegten Indexwertes!", MsgBoxStyle.Critical, "Achtung:")
If USER_LANGUAGE = "de-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:")
End If
ClassLogger.Add(" - Datentyp nicht hinterlegt - LoadIndexe_Man")
End Select
@@ -2036,7 +2089,7 @@ Public Class frmIndex
' Return False
End If
End If
Next
If LogErrorsOnly = False Then ClassLogger.Add(" >> Replaced and complete SQL-result: " & SqlString, False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Ausführen SQL....", False)
@@ -2170,8 +2223,12 @@ Public Class frmIndex
Try
Me.grpBetreff.Dock = DockStyle.Top
Me.grpbxMailBody.Dock = DockStyle.Fill
Dim msg_email As New Msg.Message(CURRENT_WORKFILE)
msg_email.Encoding = Encoding.Unicode
'Dim msg_email As New Msg.Message(CURRENT_WORKFILE)
'Dim foo As New Email.Mime.Message(CURRENT_WORKFILE)
Dim msg_email As New Msg.Message()
msg_email.Encoding = Encoding.UTF8
msg_email.Open(CURRENT_WORKFILE)
Dim headers As String = ClassEmailHeaderExtractor.getMessageHeaders(msg_email)
If LogErrorsOnly = False Then ClassLogger.Add(" EMAIL-HEADER: " & headers, False)
@@ -2191,11 +2248,17 @@ Public Class frmIndex
If My.Computer.FileSystem.FileExists(tempFilename) Then
My.Computer.FileSystem.DeleteFile(tempFilename)
End If
If msg_email_unicode.Subject = "" Then
Dim codepage As Integer = Console.OutputEncoding.CodePage
Dim msg_email_subject As New Msg.Message()
msg_email_subject.Encoding = Encoding.GetEncoding(codepage)
msg_email_subject.Open(CURRENT_WORKFILE)
If msg_email_subject.Subject = "" Then
Me.txtBetreff.Text = "!!No subject in email!!"
Else
If LogErrorsOnly = False Then ClassLogger.Add(" ...subject before converting: '" & msg_email_unicode.Subject & "'", False)
Dim betreff = ClassHelper.encode_utf8(msg_email_unicode.Subject)
If LogErrorsOnly = False Then ClassLogger.Add(" ...subject before converting: '" & msg_email_subject.Subject & "'", False)
Dim betreff = ClassHelper.encode_utf8(msg_email_subject.Subject)
If Not IsNothing(betreff) Then
If ClassHelper.CheckSpecialSigns(betreff) > 0 Then
@@ -2205,10 +2268,10 @@ Public Class frmIndex
Me.txtBetreff.Text = betreff
Else
ClassLogger.Add(" ...subject could not be converted to utf8!", False)
Me.txtBetreff.Text = msg_email_unicode.Subject
Me.txtBetreff.Text = msg_email_subject.Subject
End If
End If
'Try
Dim wFile As System.IO.FileStream
Dim byteData() As Byte
@@ -2290,7 +2353,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)
@@ -2331,21 +2394,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
@@ -2396,7 +2471,12 @@ Public Class frmIndex
Next
Me.Cursor = Cursors.Default
If err = False Then
MsgBox("Alle Dateien wurden mit Multiindexing erfolgreich verarbeitet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
If USER_LANGUAGE = "de-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")
End If
DTACTUAL_FILES.Clear()
Me.Close()
End If
@@ -2406,7 +2486,11 @@ Public Class frmIndex
If WORK_FILE() = True Then
Me.Cursor = Cursors.Default
If My.Settings.Show_IndexResult = True Then
MsgBox("Die Datei wurde erfolgreich verarbeitet!" & vbNewLine & "Ablagepfad:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Erfolgsmeldung")
If USER_LANGUAGE = "de-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")
End If
End If
Me.Close()
@@ -2492,8 +2576,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
@@ -2505,7 +2594,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
@@ -2526,7 +2615,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
@@ -2613,7 +2706,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
@@ -2747,20 +2845,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