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

Aufräumaktion

Browse Source
This commit is contained in:
OlgunR
2025-06-24 13:43:47 +02:00
parent 83e028ea06
commit f256220201
9 changed files with 2784 additions and 3478 deletions
Download Patch File Download Diff File Expand all files Collapse all files

246
Global_Indexer/frmIndex.vb
View File

@@ -1718,22 +1718,39 @@ Public Class frmIndex
DTTBGI_REGEX_DOCTYPE = DATABASE_ECM.GetDatatable("SELECT DISTINCT T1.DOCTYPE as DocType, T.* FROM TBGI_REGEX_DOCTYPE T, VWGI_DOCTYPE T1 WHERE T.DOCTYPE_ID = T1.DOCTYPE_ID")
MULTIFILES = DATABASE_ECM.GetScalarValue("SELECT COUNT(*) FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_WORKFILE_GUID & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
Dim allFiles As Integer = MULTIFILES + 1
MULTIINDEXING_ACTIVE = False
If MULTIFILES > 0 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"
End If
'If allFiles > 1 Then
' If USER_LANGUAGE = LANG_DE Then
' 'BarCheckItem_MultiIndexing.Caption = "Multi-Indexing - Alle nachfolgenden Dateien (" & MULTIFILES & ") identisch indexieren"
' BarCheckItem_MultiIndexing.Caption = "Multi-Indexing - (" & allFiles & ") zu indexierende Dateien"
' Else
' 'BarCheckItem_MultiIndexing.Caption = "Multi-Indexing - All following files (" & MULTIFILES & ") will be indexed identically"
' BarCheckItem_MultiIndexing.Caption = "Multi-Indexing - (" & allFiles & ") files to be indexed"
' End If
checkMultiindex.Checked = False
checkMultiindex.Visible = True
' BarCheckItem_MultiIndexing.Checked = False
' BarCheckItem_MultiIndexing.Visibility = True
BarButtonItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
' BarButtonItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
'Else
' BarCheckItem_MultiIndexing.Visibility = False
' BarButtonItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
'End If
If allFiles < 2 Then
BarCheckItem_MultiIndexing.Caption = "Multi-Indexing"
BarCheckItem_MultiIndexing.Enabled = False
BarButtonItem1.Enabled = False
Else
checkMultiindex.Visible = False
BarButtonItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
If USER_LANGUAGE = LANG_DE Then
BarCheckItem_MultiIndexing.Caption = "Multi-Indexing - (" & allFiles & ") zu indexierende Dateien"
Else
BarCheckItem_MultiIndexing.Caption = "Multi-Indexing - (" & allFiles & ") files to be indexed"
End If
BarCheckItem_MultiIndexing.Checked = False
BarCheckItem_MultiIndexing.Enabled = True
BarButtonItem1.Enabled = True
End If
End If
@@ -2900,7 +2917,145 @@ Public Class frmIndex
End If
End Sub
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles btnOK.Click
'Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles btnOK.Click
' Try
' ClearError()
' ClearNotice()
' Me.Cursor = Cursors.WaitCursor
' CURRENT_DT_REGEX = DATABASE_ECM.GetDatatable("SELECT * FROM TBGI_FUNCTION_REGEX")
' For Each rowregex As DataRow In CURRENT_DT_REGEX.Rows
' If rowregex.Item("FUNCTION_NAME") = "CLEAN_FILENAME" Then
' REGEX_CLEAN_FILENAME = rowregex.Item("REGEX")
' End If
' Next
' If BarCheckItem_MultiIndexing.Checked = True Then
' 'Die erste Datei indexieren
' If WORK_FILE() = True Then
' 'Und nun die folgenden
' Dim DTFiles2Work As DataTable = DATABASE_ECM.GetDatatable("SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_WORKFILE_GUID & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
' If DTFiles2Work IsNot Nothing Then
' Dim err = False
' For Each oRow As DataRow In DTFiles2Work.Rows
' CURRENT_WORKFILE_GUID = oRow.Item("GUID")
' CURRENT_WORKFILE = oRow.Item("FILENAME2WORK")
' CURRENT_WORKFILE_HASH = oRow.ItemEx("FILE_HASH", "")
' DropType = oRow.Item("HANDLE_TYPE")
' If WORK_FILE() = False Then
' err = True
' Exit For
' End If
' Next
' Me.Cursor = Cursors.Default
' If err = False 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")
' End If
' CloseViewer()
' CancelAttempts = 2
' Me.Close()
' End If
' End If
' End If
' Else
' If WORK_FILE() = True Then
' Me.Cursor = Cursors.Default
' If CONFIG.Config.ShowIndexResult = True Then
' If USER_LANGUAGE = LANG_DE Then
' ' MsgBox("Die Datei wurde erfolgreich verarbeitet!" & vbNewLine & "Ablagepfad:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Erfolgsmeldung")
' _FormHelper.ShowSuccessMessage($"Die Datei wurde erfolgreich verarbeitet!{vbNewLine}Ablagepfad:{vbNewLine}{CURRENT_NEWFILENAME}", "Erfolgsmeldung")
' Else
' 'MsgBox($"File sucessfully processed!{vbNewLine}Path:{vbNewLine}{CURRENT_NEWFILENAME}" & vbNewLine & "Path:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Success")
' _FormHelper.ShowSuccessMessage($"File sucessfully processed!{vbNewLine}Path:{vbNewLine}{CURRENT_NEWFILENAME}", "Success")
' End If
' End If
' CloseViewer()
' CancelAttempts = 2
' Me.Close()
' End If
' End If
' Catch ex As Exception
' MsgBox("Uncaught error while indexing: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
' Finally
' Me.Cursor = Cursors.Default
' End Try
'End Sub
Private Sub checkItemPreview_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkItemPreview.CheckedChanged
SetFilePreview(checkItemPreview.Checked)
CONFIG.Config.FilePreview = checkItemPreview.Checked
CONFIG.Save()
End Sub
Private Sub SplitContainer1_SplitterMoved(sender As Object, e As SplitterEventArgs) Handles SplitContainer1.SplitterMoved
CONFIG.Config.SplitterDistanceViewer = SplitContainer1.SplitterDistance
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
DATABASE_ECM.ExecuteNonQuery($"DELETE FROM TBGI_FILES_USER WHERE GUID = {CURRENT_WORKFILE_GUID}")
CancelAttempts = 2
Close()
End Sub
Private Sub checkItemPreselection_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkItemPreselection.CheckedChanged
CONFIG.Config.ProfilePreselection = checkItemPreselection.Checked
CONFIG.Save()
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
Try
MsgBox($"Deleting [{CURRENT_WORKFILE}]", MsgBoxStyle.Information, Text)
File.SetAttributes(CURRENT_WORKFILE, FileAttributes.Normal)
File.Delete(CURRENT_WORKFILE)
'IO.File.Delete(CURRENT_WORKFILE)
Catch ex As Exception
_Logger.Error(ex)
MsgBox(ex.Message)
End Try
End Sub
Private Sub ComboboxDoctype_KeyUp(sender As Object, e As KeyEventArgs) Handles ComboboxDoctype.KeyUp
If e.KeyCode = Keys.F2 Then
Dim oCombo As SearchLookUpEdit = sender
oCombo.ShowPopup()
End If
End Sub
Private Sub BarCheckItem_MultiIndexing_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckItem_MultiIndexing.CheckedChanged
Dim item As DevExpress.XtraBars.BarCheckItem = CType(sender, DevExpress.XtraBars.BarCheckItem)
If item.Checked Then
BarButtonItem1.Enabled = False
MULTIINDEXING_ACTIVE = True
If USER_LANGUAGE = LANG_DE Then
Me.BarButtonItem_OK.Caption = "Dateien indexieren"
Else
Me.BarButtonItem_OK.Caption = "Index Files"
End If
Else
BarButtonItem1.Enabled = True
MULTIINDEXING_ACTIVE = False
If USER_LANGUAGE = LANG_DE Then
Me.BarButtonItem_OK.Caption = "Datei indexieren"
Else
Me.BarButtonItem_OK.Caption = "Index File"
End If
End If
End Sub
Private Sub BarButtonItem_OK_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem_OK.ItemClick
Try
ClearError()
ClearNotice()
@@ -2912,7 +3067,7 @@ Public Class frmIndex
REGEX_CLEAN_FILENAME = rowregex.Item("REGEX")
End If
Next
If checkMultiindex.Visible = True And checkMultiindex.Checked = True Then
If BarCheckItem_MultiIndexing.Checked = True Then
'Die erste Datei indexieren
If WORK_FILE() = True Then
'Und nun die folgenden
@@ -2973,67 +3128,4 @@ Public Class frmIndex
End Try
End Sub
Private Sub checkItemPreview_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkItemPreview.CheckedChanged
SetFilePreview(checkItemPreview.Checked)
CONFIG.Config.FilePreview = checkItemPreview.Checked
CONFIG.Save()
End Sub
Private Sub checkMultiindex_CheckedChanged(sender As Object, e As EventArgs) Handles checkMultiindex.CheckedChanged
If USER_LANGUAGE = LANG_DE Then
If checkMultiindex.Checked Then
Me.btnOK.Text = "Dateien indexieren"
MULTIINDEXING_ACTIVE = True
Else
Me.btnOK.Text = "Datei indexieren"
MULTIINDEXING_ACTIVE = False
End If
Else
If checkMultiindex.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 SplitContainer1_SplitterMoved(sender As Object, e As SplitterEventArgs) Handles SplitContainer1.SplitterMoved
CONFIG.Config.SplitterDistanceViewer = SplitContainer1.SplitterDistance
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
DATABASE_ECM.ExecuteNonQuery($"DELETE FROM TBGI_FILES_USER WHERE GUID = {CURRENT_WORKFILE_GUID}")
CancelAttempts = 2
Close()
End Sub
Private Sub checkItemPreselection_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkItemPreselection.CheckedChanged
CONFIG.Config.ProfilePreselection = checkItemPreselection.Checked
CONFIG.Save()
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
Try
MsgBox($"Deleting [{CURRENT_WORKFILE}]", MsgBoxStyle.Information, Text)
File.SetAttributes(CURRENT_WORKFILE, FileAttributes.Normal)
File.Delete(CURRENT_WORKFILE)
'IO.File.Delete(CURRENT_WORKFILE)
Catch ex As Exception
_Logger.Error(ex)
MsgBox(ex.Message)
End Try
End Sub
Private Sub ComboboxDoctype_KeyUp(sender As Object, e As KeyEventArgs) Handles ComboboxDoctype.KeyUp
If e.KeyCode = Keys.F2 Then
Dim oCombo As SearchLookUpEdit = sender
oCombo.ShowPopup()
End If
End Sub
End Class