DocumentResultList

2019-09-27 16:28:42 +02:00
parent 4cf70e1c4e
commit d78254fc9c
13 changed files with 381 additions and 71 deletions
--- a/Common/Common.vbproj
+++ b/Common/Common.vbproj
@@ -110,6 +110,7 @@
      <DependentUpon>Settings.settings</DependentUpon>
      <DesignTimeSharedInput>True</DesignTimeSharedInput>
    </Compile>
+    <Compile Include="ResultListParams.vb" />
  </ItemGroup>
  <ItemGroup>
    <EmbeddedResource Include="frmDocumentResultList.resx">
--- a/Common/ResultListParams.vb
+++ b/Common/ResultListParams.vb
@@ -0,0 +1,7 @@
+Public Class ResultListParams
+    Public Results As New List(Of DocumentResult)
+End Class
+
+Public Class DocumentResult
+    Public Datatable As DataTable
+End Class
--- a/Common/frmDocumentResultList.Designer.vb
+++ b/Common/frmDocumentResultList.Designer.vb
@@ -20,26 +20,26 @@ Partial Class frmDocumentResultList
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.BarToggleSwitchItem1 = New DevExpress.XtraBars.BarToggleSwitchItem()
+        Me.BarToggleSwitchItem2 = New DevExpress.XtraBars.BarToggleSwitchItem()
        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
        Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
-        Me.SplitContainerControl2 = New DevExpress.XtraEditors.SplitContainerControl()
        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.SplitContainerControl2 = New DevExpress.XtraEditors.SplitContainerControl()
        Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
        Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
        Me.GridControl3 = New DevExpress.XtraGrid.GridControl()
        Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.BarToggleSwitchItem1 = New DevExpress.XtraBars.BarToggleSwitchItem()
-        Me.BarToggleSwitchItem2 = New DevExpress.XtraBars.BarToggleSwitchItem()
        CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SplitContainerControl1.SuspendLayout()
-        CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SplitContainerControl2.SuspendLayout()
        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerControl2.SuspendLayout()
        CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -57,6 +57,18 @@ Partial Class frmDocumentResultList
        Me.RibbonControl.Size = New System.Drawing.Size(1189, 143)
        Me.RibbonControl.StatusBar = Me.RibbonStatusBar
        '
+        'BarToggleSwitchItem1
+        '
+        Me.BarToggleSwitchItem1.Caption = "BarToggleSwitchItem1"
+        Me.BarToggleSwitchItem1.Id = 1
+        Me.BarToggleSwitchItem1.Name = "BarToggleSwitchItem1"
+        '
+        'BarToggleSwitchItem2
+        '
+        Me.BarToggleSwitchItem2.Caption = "BarToggleSwitchItem2"
+        Me.BarToggleSwitchItem2.Id = 2
+        Me.BarToggleSwitchItem2.Name = "BarToggleSwitchItem2"
+        '
        'RibbonPage1
        '
        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
@@ -91,21 +103,6 @@ Partial Class frmDocumentResultList
        Me.SplitContainerControl1.TabIndex = 2
        Me.SplitContainerControl1.Text = "SplitContainerControl1"
        '
-        'SplitContainerControl2
-        '
-        Me.SplitContainerControl2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainerControl2.Horizontal = False
-        Me.SplitContainerControl2.Location = New System.Drawing.Point(0, 0)
-        Me.SplitContainerControl2.Name = "SplitContainerControl2"
-        Me.SplitContainerControl2.Panel1.Controls.Add(Me.GridControl2)
-        Me.SplitContainerControl2.Panel1.Text = "Panel1"
-        Me.SplitContainerControl2.Panel2.Controls.Add(Me.GridControl3)
-        Me.SplitContainerControl2.Panel2.Text = "Panel2"
-        Me.SplitContainerControl2.Size = New System.Drawing.Size(653, 497)
-        Me.SplitContainerControl2.SplitterPosition = 223
-        Me.SplitContainerControl2.TabIndex = 0
-        Me.SplitContainerControl2.Text = "SplitContainerControl2"
-        '
        'GridControl1
        '
        Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
@@ -121,6 +118,22 @@ Partial Class frmDocumentResultList
        '
        Me.GridView1.GridControl = Me.GridControl1
        Me.GridView1.Name = "GridView1"
+        Me.GridView1.OptionsView.ShowAutoFilterRow = True
+        '
+        'SplitContainerControl2
+        '
+        Me.SplitContainerControl2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainerControl2.Horizontal = False
+        Me.SplitContainerControl2.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainerControl2.Name = "SplitContainerControl2"
+        Me.SplitContainerControl2.Panel1.Controls.Add(Me.GridControl2)
+        Me.SplitContainerControl2.Panel1.Text = "Panel1"
+        Me.SplitContainerControl2.Panel2.Controls.Add(Me.GridControl3)
+        Me.SplitContainerControl2.Panel2.Text = "Panel2"
+        Me.SplitContainerControl2.Size = New System.Drawing.Size(653, 497)
+        Me.SplitContainerControl2.SplitterPosition = 223
+        Me.SplitContainerControl2.TabIndex = 0
+        Me.SplitContainerControl2.Text = "SplitContainerControl2"
        '
        'GridControl2
        '
@@ -137,6 +150,7 @@ Partial Class frmDocumentResultList
        '
        Me.GridView2.GridControl = Me.GridControl2
        Me.GridView2.Name = "GridView2"
+        Me.GridView2.OptionsView.ShowAutoFilterRow = True
        '
        'GridControl3
        '
@@ -153,18 +167,7 @@ Partial Class frmDocumentResultList
        '
        Me.GridView3.GridControl = Me.GridControl3
        Me.GridView3.Name = "GridView3"
-        '
-        'BarToggleSwitchItem1
-        '
-        Me.BarToggleSwitchItem1.Caption = "BarToggleSwitchItem1"
-        Me.BarToggleSwitchItem1.Id = 1
-        Me.BarToggleSwitchItem1.Name = "BarToggleSwitchItem1"
-        '
-        'BarToggleSwitchItem2
-        '
-        Me.BarToggleSwitchItem2.Caption = "BarToggleSwitchItem2"
-        Me.BarToggleSwitchItem2.Id = 2
-        Me.BarToggleSwitchItem2.Name = "BarToggleSwitchItem2"
+        Me.GridView3.OptionsView.ShowAutoFilterRow = True
        '
        'frmDocumentResultList
        '
@@ -181,10 +184,10 @@ Partial Class frmDocumentResultList
        CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.SplitContainerControl1.ResumeLayout(False)
-        CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SplitContainerControl2.ResumeLayout(False)
        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerControl2.ResumeLayout(False)
        CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit()
--- a/Common/frmDocumentResultList.vb
+++ b/Common/frmDocumentResultList.vb
@@ -1,6 +1,193 @@
-Public Class frmDocumentResultList
-    Private Sub frmDocumentResultList_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+Imports System.Drawing
+Imports DevExpress.Utils
+Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Columns
+Imports DevExpress.XtraGrid.Views.Grid
+Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.ZooFlow

+Public Class frmDocumentResultList
+    Private _LogConfig As LogConfig
+    Private _Logger As Logger
+    Private _Environment As Environment
+    Private _ResultLists As List(Of DocumentResult)
+
+    Public Sub New(LogConfig As LogConfig, Environment As Environment, Params As ResultListParams)
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        _LogConfig = LogConfig
+        _Logger = LogConfig.GetLogger()
+        _Environment = Environment
+        _ResultLists = Params.Results
+    End Sub
+
+    Private Sub frmDocumentResultList_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Dim oCounter = 1
+
+        For Each oList In _ResultLists
+            Select Case _ResultLists.Count
+                Case 1
+                    CreateDocumentGrid(GridView1, oList.Datatable)
+                Case 2
+                    CreateDocumentGrid(GridView2, oList.Datatable)
+                Case 3
+                    CreateDocumentGrid(GridView3, oList.Datatable)
+            End Select
+            oCounter += 1
+        Next
+    End Sub
+
+    Private Sub CreateDocumentGrid(GridView As GridView, Datatable As DataTable)
+        Dim oMyDocDatatable As New DataTable
+        Try
+            'Die Icon Colum erstellen und konfigurieren
+            Dim oColIcon As New DataColumn() With {
+                .DataType = GetType(Image),
+                .ColumnName = "ICON",
+                .Caption = ""
+            }
+            oMyDocDatatable.Columns.Add(oColIcon)
+
+            Dim oColPath As New DataColumn() With {
+                .DataType = GetType(String),
+                .ColumnName = "FULL_FILENAME",
+                .Caption = "Fullpath"
+            }
+            oMyDocDatatable.Columns.Add(oColPath)
+
+            Dim oColDocID As New DataColumn() With {
+                .DataType = GetType(Int32),
+                .ColumnName = "DocID",
+                .Caption = "DocID"
+            }
+            oMyDocDatatable.Columns.Add(oColDocID)
+
+            Dim oColFilename As New DataColumn() With {
+                .DataType = GetType(String),
+                .ColumnName = "Filename",
+                .Caption = "Filename"
+            }
+            oMyDocDatatable.Columns.Add(oColFilename)
+
+            Dim oRestColArray As New List(Of String)
+            For Each oCol As DataColumn In Datatable.Columns
+                Dim onewColumn As New DataColumn()
+                If oCol.ColumnName <> "DocID" And oCol.ColumnName <> "FULL_FILENAME" And oCol.ColumnName <> "Filename" Then
+                    onewColumn.DataType = GetType(String)
+                    onewColumn.ColumnName = oCol.ColumnName
+                    onewColumn.Caption = oCol.Caption
+                    oMyDocDatatable.Columns.Add(onewColumn)
+                    oRestColArray.Add(onewColumn.ColumnName)
+                End If
+
+            Next
+            For Each oRow As DataRow In Datatable.Rows
+                Dim oFullpath = oRow.Item("FULL_FILENAME")
+                Dim oDocID = oRow.Item("DocID")
+                'Dim Folderpath = Path.GetDirectoryName(fullpath)
+                Dim oFilename = IO.Path.GetFileName(oFullpath)
+                Dim oFileextension = IO.Path.GetExtension(oFullpath)
+                Dim oNewRow As DataRow
+                oNewRow = oMyDocDatatable.NewRow()
+                'Icon zuweisen
+                Select Case oFileextension.ToUpper
+                    Case ".csv".ToUpper
+                        oNewRow.Item(0) = My.Resources.xls
+                    Case ".txt".ToUpper
+                        oNewRow.Item(0) = My.Resources.txt
+                    Case ".pdf".ToUpper
+                        oNewRow.Item(0) = My.Resources.pdf
+                    Case ".doc".ToUpper
+                        oNewRow.Item(0) = My.Resources.doc
+                    Case ".docx".ToUpper
+                        oNewRow.Item(0) = My.Resources.doc
+                    Case ".xls".ToUpper
+                        oNewRow.Item(0) = My.Resources.xls
+                    Case ".xlsx".ToUpper
+                        oNewRow.Item(0) = My.Resources.xls
+                    Case ".xlsm".ToUpper
+                        oNewRow.Item(0) = My.Resources.xls
+                    Case ".ppt".ToUpper
+                        oNewRow.Item(0) = My.Resources.ppt
+                    Case ".pptx".ToUpper
+                        oNewRow.Item(0) = My.Resources.ppt
+                    Case ".dwg".ToUpper
+                        oNewRow.Item(0) = My.Resources.dwg
+                    Case ".dxf".ToUpper
+                        oNewRow.Item(0) = My.Resources.dxf
+                    Case ".msg".ToUpper
+                        oNewRow.Item(0) = My.Resources._page
+                    Case ".msg".ToUpper
+                        oNewRow.Item(0) = My.Resources._page
+                    Case ".tif".ToUpper
+                        oNewRow.Item(0) = My.Resources.tiff
+                    Case ".tiff".ToUpper
+                        oNewRow.Item(0) = My.Resources.tiff
+                    Case ".jpg".ToUpper
+                        oNewRow.Item(0) = My.Resources.jpg
+                    Case Else
+                        oNewRow.Item(0) = My.Resources._blank
+                End Select
+                'Den Filepath mitgeben
+                oNewRow.Item(1) = oFullpath
+                oNewRow.Item(2) = oDocID
+                oNewRow.Item(3) = oFilename
+
+                Dim i = 4 'Fängt bei 3 an, um die definierten Spalten zu überspringen
+                For Each Colname As String In oRestColArray
+                    Dim oRowValue
+                    oRowValue = oRow.Item(Colname)
+                    oNewRow.Item(i) = oRowValue.ToString
+                    i += 1
+                Next
+                oMyDocDatatable.Rows.Add(oNewRow)
+            Next
+
+            Dim oGridControl As GridControl = GridView.GridControl
+            oGridControl.DataSource = oMyDocDatatable
+            oGridControl.ForceInitialize()
+            Try
+                GridView.Columns.Item("DocID").Visible = False
+            Catch ex As Exception
+            End Try
+            Try
+                GridView.Columns.Item("FULL_FILENAME").Visible = False
+            Catch ex As Exception
+            End Try
+
+            Dim created, changed As String
+            If _Environment.User.Language <> "de-DE" Then
+                changed = "Changed"
+                created = "Created"
+            Else
+                changed = "Geändert"
+                created = "Erstellt"
+            End If
+
+            Dim createdColumn = GridView.Columns(created)
+            If Not IsNothing(createdColumn) Then
+                createdColumn.DisplayFormat.FormatType = FormatType.DateTime
+                createdColumn.DisplayFormat.FormatString = _Environment.User.DateFormat & " HH:MM:ss"
+            End If
+
+            Dim changedColumn = GridView.Columns(changed)
+            If Not IsNothing(changedColumn) Then
+                changedColumn.DisplayFormat.FormatType = FormatType.DateTime
+                changedColumn.DisplayFormat.FormatString = _Environment.User.DateFormat & " HH:MM:ss"
+            End If
+            ' Alle Spalten aus ReadOnly setzen, danach werden alle passenden auf nicht ReadOnly gesetzt
+            For Each column As GridColumn In GridView.Columns
+                column.OptionsColumn.AllowEdit = False
+            Next
+            GridView.Columns.Item("ICON").MaxWidth = 24
+            GridView.Columns.Item("ICON").MinWidth = 24
+            GridView.OptionsView.BestFitMaxRowCount = -1
+            GridView.BestFitColumns(True)
+        Catch ex As Exception
+            _Logger.Error(ex)
+        End Try
    End Sub

    Private Sub BarToggleSwitchItem1_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarToggleSwitchItem1.CheckedChanged