MS12.02.2016
This commit is contained in:
SchreiberM
@@ -936,12 +936,15 @@ Public Class frmIndex
|
||||
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
|
||||
' einen Regulären Ausdruck laden
|
||||
Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
|
||||
' die Vorkommen im SQL-String auslesen
|
||||
Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(DATEINAME)
|
||||
'####
|
||||
If elemente.Count = 0 Then
|
||||
ClassLogger.Add(" >> No RegularExpression Fileds on Nameconvention!", False)
|
||||
End If
|
||||
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
|
||||
For Each element As System.Text.RegularExpressions.Match In elemente
|
||||
Console.WriteLine(element.ToString)
|
||||
@@ -1018,6 +1021,10 @@ Public Class frmIndex
|
||||
datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year
|
||||
Case "OFilename"
|
||||
DATEINAME = DATEINAME.Replace(element.Value, System.IO.Path.GetFileNameWithoutExtension(CURRENT_WORKFILE))
|
||||
Case "Username"
|
||||
DATEINAME = DATEINAME.Replace(element.Value, Environment.UserName)
|
||||
Case "Usercode"
|
||||
DATEINAME = DATEINAME.Replace(element.Value, CURRENT_USER_SHORT)
|
||||
End Select
|
||||
If datetemp <> "" Then
|
||||
DATEINAME = DATEINAME.Replace(element.Value, datetemp)
|
||||
@@ -1056,8 +1063,14 @@ Public Class frmIndex
|
||||
If folder_Created = False Then
|
||||
' Den Zielordner erstellen
|
||||
If Directory.Exists(path) = False Then
|
||||
'Try to create the directory.
|
||||
Directory.CreateDirectory(path)
|
||||
Try
|
||||
'Try to create the directory.
|
||||
Directory.CreateDirectory(path)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in 'Name_Generieren' - Error: " & vbNewLine & ex.Message & vbNewLine & "Directory.CreateDirectory(" & path & ")", True)
|
||||
MsgBox("Unexpected Error in 'Name_Generieren' - Error: " & vbNewLine & ex.Message & vbNewLine & "Directory.CreateDirectory(" & path & ")", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
End If
|
||||
folder_Created = True
|
||||
End If
|
||||
@@ -1156,7 +1169,7 @@ Public Class frmIndex
|
||||
MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End If
|
||||
ElseIf DropType = "@ATTMNTEXTRACTED@" Then
|
||||
ElseIf DropType = "@ATTMNTEXTRACTED@" Or DropType = "@OUTLOOK_ATTACHMENT@" Then
|
||||
indexierung_erfolgreich = SetAttachmentIndices()
|
||||
If indexierung_erfolgreich = False Then
|
||||
MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical)
|
||||
@@ -1343,8 +1356,6 @@ Public Class frmIndex
|
||||
Return False
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
Private Function SINGLEFILE_2_WINDREAM(_Objekttyp As String)
|
||||
@@ -1416,6 +1427,7 @@ Public Class frmIndex
|
||||
Try
|
||||
ClassWindowLocation.SaveFormLocationSize(Me)
|
||||
CloseUniversalViewer()
|
||||
My.Settings.Save()
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Fehler bei Schliessen des Formulares - Fehler: " & vbNewLine & ex.Message)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Schliessen des Formulares:")
|
||||
@@ -1447,7 +1459,6 @@ Public Class frmIndex
|
||||
End Try
|
||||
|
||||
End If
|
||||
My.Settings.Save()
|
||||
|
||||
'If Not IsNothing(DocView) And viewer_string <> "" Then
|
||||
' DocView.CloseView(viewer_string, 0)
|
||||
@@ -1476,7 +1487,7 @@ Public Class frmIndex
|
||||
|
||||
ElseIf DropType = "@MSGONLY@" Then
|
||||
Me.Text = "Indexierung der msg-Datei (ohne Anhang):"
|
||||
ElseIf DropType = "@ATTMNTEXTRACTED@" Then
|
||||
ElseIf DropType = "@ATTMNTEXTRACTED@" Or DropType = "@OUTLOOK_ATTACHMENT@" Then
|
||||
CURRENT_ISATTACHMENT = True
|
||||
Me.Text = "Indexierung eines Email-Attachments:"
|
||||
ElseIf DropType = "@FW_SIMPLEINDEXER@" Then
|
||||
@@ -1535,6 +1546,11 @@ Public Class frmIndex
|
||||
Refresh_Dokart()
|
||||
Me.pnlIndex.Controls.Clear()
|
||||
formloaded = True
|
||||
If My.Settings.DA_Vorauswahlaktiv = True Then
|
||||
If CURRENT_LASTDOKART <> "" Then
|
||||
cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_LASTDOKART)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Sub Refresh_Dokart()
|
||||
Try
|
||||
@@ -1545,9 +1561,6 @@ Public Class frmIndex
|
||||
cmbDokumentart.AutoCompleteMode = AutoCompleteMode.Suggest
|
||||
cmbDokumentart.AutoCompleteSource = AutoCompleteSource.ListItems
|
||||
Me.cmbDokumentart.SelectedIndex = -1
|
||||
'If CURRENT_LASTDOKART <> "" Then
|
||||
'cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_LASTDOKART)
|
||||
'End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Fehler beim Laden der Dokumentarten - Fehler: " & vbNewLine & ex.Message)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Laden der Dokumentarten:")
|
||||
@@ -1734,6 +1747,11 @@ Public Class frmIndex
|
||||
DEFAULTVALUE = owner
|
||||
Case "$DateDDMMYYY".ToUpper
|
||||
DEFAULTVALUE = System.DateTime.Now.ToShortDateString
|
||||
Case "$Username"
|
||||
DEFAULTVALUE = Environment.UserName
|
||||
Case "$Usercode"
|
||||
DEFAULTVALUE = CURRENT_USER_SHORT
|
||||
|
||||
End Select
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis der Windowsvariable: '" & DEFAULTVALUE & "'", False)
|
||||
Else
|
||||
@@ -1915,7 +1933,7 @@ Public Class frmIndex
|
||||
'Den Zielnamen zusammenbauen
|
||||
If Name_Generieren() = True Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" ...Name_Generieren durchlaufen", False)
|
||||
'Dokumentenviewer ausblenden
|
||||
'Dokumentenviewer ausblenden um keinen Zugriffsfehler zu produzieren
|
||||
CloseUniversalViewer()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" ...Viewer geschlossen", False)
|
||||
'Die Datei verschieben
|
||||
@@ -1925,17 +1943,23 @@ Public Class frmIndex
|
||||
If DropType = "@DROPFROMFSYSTEM@" Then
|
||||
If chkdelete_origin.Checked = True Then
|
||||
'Die temporäre Datei löschen
|
||||
File.Delete(CURRENT_WORKFILE)
|
||||
DeleteFile
|
||||
End If
|
||||
ElseIf DropType = "@ATTMNTEXTRACTED@" Then
|
||||
ElseIf DropType = "@ATTMNTEXTRACTED@" Or DropType = "@OUTLOOK_ATTACHMENT@" Then
|
||||
'Die temporäre Datei löschen
|
||||
File.Delete(CURRENT_WORKFILE)
|
||||
If CURRENT_WORKFILE.EndsWith("pdf") Then
|
||||
Me.PdfViewer1.DocumentFilePath = ""
|
||||
End If
|
||||
|
||||
DeleteFile()
|
||||
ElseIf (DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_MSGONLY@" Or DropType = "@MSGONLY@") Then
|
||||
'Die temporäre Datei löschen
|
||||
File.Delete(CURRENT_WORKFILE)
|
||||
DeleteFile()
|
||||
|
||||
ElseIf DropType = "@FW_SIMPLEINDEXER@" Then
|
||||
'Die temporäre Datei löschen
|
||||
File.Delete(CURRENT_WORKFILE)
|
||||
DeleteFile()
|
||||
|
||||
End If
|
||||
|
||||
CURRENT_LASTDOKART = cmbDokumentart.Text
|
||||
@@ -1964,6 +1988,13 @@ Public Class frmIndex
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
Sub DeleteFile()
|
||||
Try
|
||||
File.Delete(CURRENT_WORKFILE)
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpeted Error in Delete Current Workfile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub OK_Button_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
||||
lblhinweis.Visible = False
|
||||
lblerror.Visible = False
|
||||
@@ -2057,14 +2088,14 @@ Public Class frmIndex
|
||||
Try
|
||||
Insert_String = sql_history_INSERT_INTO & ",ADDED_WHO) VALUES ('" & CURRENT_WORKFILE & "','" & CURRENT_NEWFILENAME & "'" & sql_history_Index_Values & ",'" & Environment.UserDomainName & "\" & Environment.UserName & "')"
|
||||
ClassDatabase.Execute_Scalar(Insert_String, MyConnectionString, True)
|
||||
If DropType.Contains("MSG") Or DropType = "@ATTMNTEXTRACTED@" Then
|
||||
If DropType.Contains("MSG") Or DropType = "@ATTMNTEXTRACTED@" Or DropType = "@OUTLOOK_ATTACHMENT@" Then
|
||||
If CURRENT_MESSAGEID <> "" Then
|
||||
Dim max As String = "SELECT MAX(GUID) FROM TBGI_HISTORY"
|
||||
Dim GUID = ClassDatabase.Execute_Scalar(max, MyConnectionString, True)
|
||||
Try
|
||||
If GUID > 0 Then
|
||||
Dim sqlUpdate As String
|
||||
If DropType = "@ATTMNTEXTRACTED@" Then
|
||||
If DropType = "@ATTMNTEXTRACTED@" Or DropType = "@OUTLOOK_ATTACHMENT@" Then
|
||||
sqlUpdate = "Update TBGI_HISTORY SET ATTACHMENT = 1, MSG_ID = '" & CURRENT_MESSAGEID & "' WHERE GUID = " & GUID
|
||||
ClassDatabase.Execute_non_Query(sqlUpdate, True)
|
||||
Else
|
||||
@@ -2319,4 +2350,12 @@ Public Class frmIndex
|
||||
MULTIINDEXING_ACTIVE = False
|
||||
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"
|
||||
Else
|
||||
CheckBox1.Text = "Vorauswahl Dokumentart inaktivieren"
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user