From 04e5170312ea34388d8613e9fd357fd4c1bd0ca8 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Fri, 25 Jun 2021 16:53:47 +0200 Subject: [PATCH] Email Indexing, Check Windream before profile select --- Global_Indexer/Global_Indexer.vbproj | 9 +- Global_Indexer/frmIndex.vb | 17 +- Global_Indexer/frmIndexFileList.Designer.vb | 10 +- Global_Indexer/frmIndexFileList.en-US.resx | 26 +- Global_Indexer/frmIndexFileList.resx | 480 +++++++++++--------- Global_Indexer/frmIndexFileList.vb | 33 +- Global_Indexer/packages.config | 2 +- 7 files changed, 326 insertions(+), 251 deletions(-) diff --git a/Global_Indexer/Global_Indexer.vbproj b/Global_Indexer/Global_Indexer.vbproj index 7d22c65..5f14a97 100644 --- a/Global_Indexer/Global_Indexer.vbproj +++ b/Global_Indexer/Global_Indexer.vbproj @@ -194,9 +194,9 @@ P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll True + - False - ..\packages\NLog.4.5.11\lib\net45\NLog.dll + ..\packages\NLog.4.7.10\lib\net45\NLog.dll P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll @@ -204,13 +204,18 @@ + + + + + diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb index 0b2f8fc..166201b 100644 --- a/Global_Indexer/frmIndex.vb +++ b/Global_Indexer/frmIndex.vb @@ -65,6 +65,7 @@ Public Class frmIndex _Logger.Warn(oMessage) _Logger.Error(Exception.Message) + MsgBox(oMessage, MsgBoxStyle.Critical, Text) End Sub @@ -1646,14 +1647,22 @@ Public Class frmIndex ClearError() pnlIndex.Controls.Clear() - Dim sql As String = "Select WINDREAM_DIRECT, DUPLICATE_HANDLING from TBDD_DOKUMENTART WHERE GUID = " & oSelectedItem.Guid + Dim sql As String = "Select WINDREAM_DIRECT, ZIEL_PFAD, DUPLICATE_HANDLING from TBDD_DOKUMENTART WHERE GUID = " & oSelectedItem.Guid Dim oDoctypes As DataTable = ClassDatabase.Return_Datatable(sql) + Dim oDocType As DataRow = oDoctypes.Rows.Item(0) - WDDirect = oDoctypes.Rows(0).Item("WINDREAM_DIRECT") - CURRENT_DOKART_DUPLICATE_HANDLING = oDoctypes.Rows(0).Item("DUPLICATE_HANDLING") - Refresh_IndexeMan(oSelectedItem.Guid) + Dim oDestination As String = oDocType.Item("ZIEL_PFAD") + Dim oNormalized As String = WINDREAM.GetNormalizedPath(oDestination) + Dim oNewDestination = Path.Combine(WINDREAM.ClientBasePath, oNormalized) + If Directory.Exists(oDestination) = False Then + MsgBox($"Profile Path [{oNewDestination}] is not available. Please select another profile.", MsgBoxStyle.Exclamation, Text) + ComboboxDoctype.SelectedIndex = -1 + End If + WDDirect = oDocType.Item("WINDREAM_DIRECT") + CURRENT_DOKART_DUPLICATE_HANDLING = oDocType.Item("DUPLICATE_HANDLING") + Refresh_IndexeMan(oSelectedItem.Guid) End If End Sub diff --git a/Global_Indexer/frmIndexFileList.Designer.vb b/Global_Indexer/frmIndexFileList.Designer.vb index ee8839a..8178660 100644 --- a/Global_Indexer/frmIndexFileList.Designer.vb +++ b/Global_Indexer/frmIndexFileList.Designer.vb @@ -1,6 +1,6 @@  _ Partial Class frmIndexFileList - Inherits System.Windows.Forms.Form + Inherits DevExpress.XtraEditors.XtraForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. _ @@ -44,9 +44,9 @@ Partial Class frmIndexFileList ' 'Panel1 ' + resources.ApplyResources(Me.Panel1, "Panel1") Me.Panel1.Controls.Add(Me.Label2) Me.Panel1.Controls.Add(Me.Label1) - resources.ApplyResources(Me.Panel1, "Panel1") Me.Panel1.Name = "Panel1" ' 'Label2 @@ -62,6 +62,10 @@ Partial Class frmIndexFileList 'CheckedListBoxControl1 ' resources.ApplyResources(Me.CheckedListBoxControl1, "CheckedListBoxControl1") + Me.CheckedListBoxControl1.HighlightedItemStyle = DevExpress.XtraEditors.HighlightStyle.Standard + Me.CheckedListBoxControl1.HotTrackItems = True + Me.CheckedListBoxControl1.ItemHeight = 30 + Me.CheckedListBoxControl1.ItemPadding = New System.Windows.Forms.Padding(10) Me.CheckedListBoxControl1.Name = "CheckedListBoxControl1" ' 'Button1 @@ -121,6 +125,7 @@ Partial Class frmIndexFileList 'frmIndexFileList ' resources.ApplyResources(Me, "$this") + Me.Appearance.Options.UseFont = True Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ControlBox = False Me.Controls.Add(Me.Button2) @@ -129,6 +134,7 @@ Partial Class frmIndexFileList Me.Controls.Add(Me.btnCancel) Me.Controls.Add(Me.btnstartIndex) Me.Controls.Add(Me.Panel1) + Me.IconOptions.Icon = CType(resources.GetObject("frmIndexFileList.IconOptions.Icon"), System.Drawing.Icon) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "frmIndexFileList" diff --git a/Global_Indexer/frmIndexFileList.en-US.resx b/Global_Indexer/frmIndexFileList.en-US.resx index 5b25e7d..d080080 100644 --- a/Global_Indexer/frmIndexFileList.en-US.resx +++ b/Global_Indexer/frmIndexFileList.en-US.resx @@ -117,17 +117,26 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 3, 40 + + + 277, 17 + + + You can prevent indexing the selected files. + NoControl - - 233, 30 + 208, 17 The following files will be indexed! -You can prevent indexing the selected files. + NoControl @@ -141,19 +150,16 @@ You can prevent indexing the selected files. Select None - - NoControl - - - Cancel - NoControl Start Indexing - + + Cancel + + AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA diff --git a/Global_Indexer/frmIndexFileList.resx b/Global_Indexer/frmIndexFileList.resx index b69f85a..312378e 100644 --- a/Global_Indexer/frmIndexFileList.resx +++ b/Global_Indexer/frmIndexFileList.resx @@ -117,293 +117,264 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Label2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 0 - - - Label1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 1 - - - - Top - - - 0, 0 + + 647, 392 - - 647, 57 + + $this - - - 0 + + 128, 255, 128 - - Panel1 + + btnCancel System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - $this - - - 5 + + Label2 - - True + + Segoe UI, 9pt, style=Bold - - Segoe UI, 9.75pt, style=Bold + + Button1 - - NoControl + + 115, 36 - - 3, 31 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 522, 17 + + frmIndexFileList - - 1 + + + 3 - - Sie haben nun Möglichkeit die Indexierung für ausgewählte Dateien zu verhindern. + + 12, 344 - - Label2 + + 1 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Alle abwählen - - Panel1 + + Segoe UI, 9.75pt, style=Bold - + 0 - - True - - - Segoe UI, 9.75pt - - - 3, 9 + + + AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA + AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA + AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAP///////wAA93d3d3d/AAD3d3d3 + d38AAPd////3fwAA93////d/AAD3f///938AD/d////3fwD3eH////d/D3Zn////93/3ZmZ///d3f/Z2 + Z2//93fw9/Zvf3d3fwD/9m//d3fwAPD2bw///wAAAP//AAAAAAAAAAAAAAAAAPAAAADwAAAA8AAAAPAA + AADwAAAA8AAAAOAAAADAAAAAgAAAAAAAAAAAAQAAAAMAAAAHAABCDwAAw/8AAP//AAAoAAAAEAAAACAA + AAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgCcUwAAvpBcAIaGhgCzs7MA8e/wAPTz + 9AD29vYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAICAgICAgICAgICAgAAAAACAEBAQEB + AQEBAQEIAAAAAAgBAQEBAQEBAQEBCAAAAAAIAQEGBgYGBgYBAQgAAAAACAEBBgYGBgYGAQEIAAAAAAgB + AQYGBgYGBgEBCAAAAAgIAQEGBgYGBgYBAQgAAAgDAwUBBgYGBgYGAQEIAAgDAgIDCAYGBgYGBgEBCAgD + AgICAgMIBgYGAQEBBAgIAgMCAgMCCAYGBgEBBAgACAMIAgIIAwgBAQEBBAgAAAgICAICCAgIAQEBBAgA + AAAIAAgCAggACAgICAgAAAAAAAAICAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAA8AAAAPAA + AADwAAAA8AAAAPAAAADgAAAAwAAAAIAAAAAAAAAAAAEAAAADAAAABwAAQg8AAMP/AAD//wAAKAAAABAA + AAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/AAAAAAAAAAAAAAAAAAAAAPb2 + 9v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/wAAAAAAAAAAAAAAAAAA + AAD29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b29v8AAAAAAAAAAAAA + AAAAAAAA9vb2/0JCQv9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JCQv/29vb/AAAAAAAA + AAAAAAAA9vb2MPb29v9CQkL/QkJC//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JCQv9CQkL/9vb2/wAA + AAAAAAAA9vb2MPb29u/29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b2 + 9v8AAAAA9vb2MPb29u++kFz/vpBc/7Ozs/9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JC + Qv/29vb/9vb2MPb29u++kFz/nFMA/5xTAP++kFz/9vb2//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JC + Qv9CQkL/9vb2//b29u++kFz/nFMA/5xTAP+cUwD/nFMA/76QXP/08/T/8e/w//Hv8P/x7/D/QkJC/0JC + Qv9CQkL/hoaG//b29u/29vb/nFMA/76QXP+cUwD/nFMA/76QXP+cUwD/9vb2//Hv8P/x7/D/8e/w/0JC + Qv9CQkL/hoaG//b29u/29vYw9vb2/76QXP/29vb/nFMA/5xTAP/29vb/vpBc//b29v9CQkL/QkJC/0JC + Qv9CQkL/hoaG//b29u/29vYwAAAAAPb29v/29vbv9vb2/5xTAP+cUwD/9vb2//b29u/29vb/QkJC/0JC + Qv9CQkL/hoaG//b29u/29vYwAAAAAAAAAAD29vbv9vb2MPb29v+cUwD/nFMA//b29v/29vYw9vb2//b2 + 9v/29vb/9vb2//b29u/29vYwAAAAAAAAAAAAAAAA9vb2MAAAAAD29vb/9vb2//b29v/29vb/AAAAAPb2 + 9jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAA8AAAAPAAAADwAAAA8AAAAOAA + AADAAAAAgAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAcAAEL/AAD//wAA + - - 326, 17 + + TBGI_FILES_USERBindingSource 0 - - Folgende Dateien werden zur Indexierung angeboten! + + 1 - - Label1 + + 1 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 128, 255, 128 - - Panel1 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 1 + + Label1 + Top, Bottom, Left, Right - - 0, 63 - - - 647, 261 - - - 8 - - - CheckedListBoxControl1 - - - DevExpress.XtraEditors.CheckedListBoxControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - $this - - - 2 - - - Bottom, Left - - - 12, 344 - - - 115, 36 - - - 1 - Alle auswählen - - Button1 + + 4 - + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - $this - - - 1 - - - 17, 17 - - - 240, 17 - - - 357, 17 - - - 574, 17 - - - Bottom, Left - - - 133, 344 - - - 115, 36 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 6 + + MyDataset1 - - Alle abwählen + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 Button2 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this + + 2 - - 0 + + 7, 15 Bottom, Right - - Segoe UI, 9pt, style=Bold + + Top - - MiddleLeft + + 5 + + + TBGI_FILES_USERTableAdapter 490, 344 - - 145, 36 + + TableAdapterManager - - 3 + + $this - - Starte Indexierung + + 0, 63 - - MiddleRight + + $this - - btnstartIndex + + 115, 36 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Segoe UI, 9pt - - $this + + 145, 36 - - 4 + + Folgende Dateien werden zur Indexierung angeboten! - - Bottom, Right + + DevExpress.XtraEditors.XtraForm, DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Segoe UI, 9pt, style=Bold + + 8 - - MiddleLeft + + Bottom, Left + + + 0, 0 + + + Panel1 + + + 133, 344 NoControl + + MiddleLeft + 289, 344 - - 195, 36 + + Global_Indexer.MyDatasetTableAdapters.TableAdapterManager, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - 3 + + Sie haben nun Möglichkeit die Indexierung für ausgewählte Dateien zu verhindern. - - Indexierung Abbrechen + + NoControl - - btnCancel + + 195, 36 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + $this + + 3 + + + 0 + 3 - - True - - - 7, 15 + + 3, 9 - - 647, 392 + + Global_Indexer.MyDataset, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - Segoe UI, 9pt + + MiddleLeft @@ -457,37 +428,106 @@ AADAAAAAgAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAcAAEL/AAD//wAA + + 3, 31 + + + Segoe UI, 9.75pt + + + Panel1 + + + 647, 57 + + + True + + + True + + + Starte Indexierung + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + Zu indexierende Dateien: - - TBGI_FILES_USERBindingSource + + 6 - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + CheckedListBoxControl1 - - MyDataset1 + + 326, 17 - - Global_Indexer.MyDataset, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + Panel1 - - TBGI_FILES_USERTableAdapter + + 647, 261 + + + btnstartIndex + + + Segoe UI, 9pt, style=Bold + + + MiddleRight Global_Indexer.MyDatasetTableAdapters.TBGI_FILES_USERTableAdapter, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - TableAdapterManager + + Indexierung Abbrechen - - Global_Indexer.MyDatasetTableAdapters.TableAdapterManager, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + 1 - - frmIndexFileList + + test - - System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Bottom, Left + + + Bottom, Right + + + 522, 17 + + + $this + + $this + + + 0 + + + DevExpress.XtraEditors.CheckedListBoxControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + 357, 17 + + + 574, 17 + + + en-US + + + True + + + 240, 17 + + + 17, 17 + \ No newline at end of file diff --git a/Global_Indexer/frmIndexFileList.vb b/Global_Indexer/frmIndexFileList.vb index 008a1b6..42e2ea1 100644 --- a/Global_Indexer/frmIndexFileList.vb +++ b/Global_Indexer/frmIndexFileList.vb @@ -1,4 +1,5 @@ Imports System.ComponentModel +Imports DevExpress.XtraEditors.Controls Public Class frmIndexFileList @@ -11,7 +12,6 @@ Public Class frmIndexFileList CheckedListBoxControl1.DataSource = MyDataset1.TBGI_FILES_USER CheckedListBoxControl1.DisplayMember = MyDataset1.TBGI_FILES_USER.Columns("FILENAME_ONLY").ColumnName CheckedListBoxControl1.ValueMember = MyDataset1.TBGI_FILES_USER.Columns(0).ColumnName - End If Catch ex As Exception @@ -22,21 +22,24 @@ Public Class frmIndexFileList Private Sub btnstartIndex_Click(sender As Object, e As EventArgs) Handles btnstartIndex.Click Try - For Each item In CheckedListBoxControl1.CheckedItems - Dim row As DataRowView = CType(item, DataRowView) - Dim _file = row.Item(1) - Dim handletype As String = row.Item("HANDLE_TYPE") + For index = 0 To CheckedListBoxControl1.ItemCount - 1 + Dim oRow = MyDataset1.TBGI_FILES_USER.Item(index) + Dim oChecked = CheckedListBoxControl1.GetItemChecked(index) - If handletype = "|MSGONLY|" Or handletype = "|ATTMNTEXTRACTED|" Then - Try - IO.File.Delete(_file) - Catch ex As Exception + Dim oFilePath = oRow.Item(1) + Dim oHandletype As String = oRow.Item("HANDLE_TYPE") - End Try + If oChecked = False Then + If oHandletype = "|MSGONLY|" Or oHandletype = "|ATTMNTEXTRACTED|" Then + Try + IO.File.Delete(oFilePath) + Catch ex As Exception + LOGGER.Error(ex) + End Try + End If + ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & oRow.Item(0), True) End If - 'System.IO.File.Delete(filestring) - ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & row.Item(0), True) Next Catch ex As Exception MsgBox("Unexpected Error in Clear Multiple Documents: " & ex.Message, MsgBoxStyle.Critical) @@ -62,4 +65,10 @@ Public Class frmIndexFileList ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True) Close() End Sub + + Private Sub CheckedListBoxControl1_DrawItem(sender As Object, e As DevExpress.XtraEditors.ListBoxDrawItemEventArgs) Handles CheckedListBoxControl1.DrawItem + If e.State = DrawItemState.Checked Then + e.Appearance.BackColor = Color.LightGreen + End If + End Sub End Class \ No newline at end of file diff --git a/Global_Indexer/packages.config b/Global_Indexer/packages.config index f89fa32..63f3075 100644 --- a/Global_Indexer/packages.config +++ b/Global_Indexer/packages.config @@ -1,4 +1,4 @@  - + \ No newline at end of file