MS Push

app/DD-Record-Organizer/frmGlobalSearch.vb

@@ -3,6 +3,7 @@ Imports System.Text
 Imports System.IO
 Imports DevExpress.XtraGrid.Views.Grid
 Imports System.Runtime.InteropServices
+Imports DevExpress.XtraPrinting
 
 Public Class frmGlobalSearch
     Inherits DevExpress.XtraBars.Ribbon.RibbonForm
@@ -135,7 +136,9 @@ Public Class frmGlobalSearch
 
                 End Try
                 ' FormID und RecordID immer ausblenden
-                GridViewFiles.Columns.Item("FULL_FILENAME").Visible = False
+                ' GridViewFiles.Columns.Item("FULL_FILENAME").Visible = False
+                GridViewFiles.OptionsView.ColumnAutoWidth = False
+                GridViewFiles.BestFitColumns()
             Else
                 tslblDocView.Text = String.Format(" No files found")
                 GridControlFiles.DataSource = Nothing
@@ -164,7 +167,13 @@ Public Class frmGlobalSearch
         saveFileDialog1.ShowDialog()
         If saveFileDialog1.FileName <> "" Then
             Cursor = Cursors.WaitCursor
-            SelectedGrid.MainView.ExportToXlsx(saveFileDialog1.FileName)
+            Dim oOptions As XlsxExportOptionsEx = New XlsxExportOptionsEx
+            oOptions.ShowGridLines = True
+            oOptions.AllowSortingAndFiltering = DevExpress.Utils.DefaultBoolean.True
+            oOptions.ExportType = DevExpress.Export.ExportType.DataAware
+            oOptions.ExportMode = XlsxExportMode.SingleFile
+            oOptions.AllowFixedColumnHeaderPanel = DevExpress.Utils.DefaultBoolean.True
+            SelectedGrid.MainView.ExportToXlsx(saveFileDialog1.FileName, oOptions)
             Dim result As MsgBoxResult
             Dim msg = String.Format("Datei wurde erstellt! Wollen Sie diese nun öffnen?")
 
@@ -297,9 +306,6 @@ Public Class frmGlobalSearch
                 Dim SELECTED_DOC_PATH = _Helper.FORMAT_WM_PATH(GridViewFiles.GetRowCellValue(row, "FULL_FILENAME"))
                 Dim SELECTED_DOC_ID = GridViewFiles.GetRowCellValue(row, "DocID")
                 ClassHelper.Open_Folder(SELECTED_DOC_PATH, SELECTED_DOC_ID)
-
-                ClassHelper.File_open(SELECTED_DOC_PATH, SELECTED_DOC_ID)
-
             Next
 
 
@@ -330,15 +336,17 @@ Public Class frmGlobalSearch
 
     Private Sub VerknüpfungenAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerknüpfungenAnzeigenToolStripMenuItem.Click
         Try
-            ClassWindreamDocGrid.GetDocItems(GridViewFiles)
-            If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
-                MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
-                Exit Sub
-            End If
-
-            Dim frm As New frmDoc_Links
-            frm.Show()
-            frm.BringToFront()
+            For Each row In GridViewFiles.GetSelectedRows
+                Dim SELECTED_DOC_ID = GridViewFiles.GetRowCellValue(row, "DocID")
+                If IsNothing(SELECTED_DOC_ID) Then
+                    MsgBox("Could not Get a selected DocID!", MsgBoxStyle.Exclamation)
+                    Exit Sub
+                End If
+                CURRENT_DOC_ID = SELECTED_DOC_ID
+                Dim frm As New frmDoc_Links
+                frm.Show()
+                frm.BringToFront()
+            Next
         Catch ex As Exception
             MsgBox("Unexpected Error in Showing DocLinks: " & ex.Message, MsgBoxStyle.Critical)
         End Try