Verbesserungen

app/DD-Record-Organizer/frmGlobalSearch.vb

@@ -169,25 +169,13 @@ Public Class frmGlobalSearch
                 GridControlFiles.DataSource = DT_Files
                 tslblDocView.Text = String.Format("{0} files found", DT_Files.Rows.Count)
                 Try
-                    GridViewFiles.Columns("AddedWhen").DisplayFormat.FormatType = FormatType.DateTime
-                    GridViewFiles.Columns("AddedWhen").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
-                    GridViewFiles.Columns("ChangedWhen").DisplayFormat.FormatType = FormatType.DateTime
-                    GridViewFiles.Columns("ChangedWhen").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
+                    GridViewFiles.Columns.Item("FULL_FILENAME").Visible = False
+                    GridViewFiles.OptionsView.ColumnAutoWidth = False
+                    GridViewFiles.BestFitColumns()
                 Catch ex As Exception
 
                 End Try
-                Try
-                    GridViewFiles.Columns("ErstelltWann").DisplayFormat.FormatType = FormatType.DateTime
-                    GridViewFiles.Columns("ErstelltWann").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
-                    GridViewFiles.Columns("GeändertWann").DisplayFormat.FormatType = FormatType.DateTime
-                    GridViewFiles.Columns("GeändertWann").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
-                Catch ex As Exception
 
-                End Try
-                ' FormID und RecordID immer ausblenden
-                ' GridViewFiles.Columns.Item("FULL_FILENAME").Visible = False
-                GridViewFiles.OptionsView.ColumnAutoWidth = False
-                GridViewFiles.BestFitColumns()
             Else
                 tslblDocView.Text = String.Format(" No files found")
                 GridControlFiles.DataSource = Nothing
@@ -230,7 +218,7 @@ Public Class frmGlobalSearch
         Catch ex As Exception
             MsgBox("Unexpected Error in Show_Detail_Record:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
-        JUMP_RECORD_ID = 0
+        JUMP_ID = 0
     End Sub
 
     Private Sub frmSearchAllOVer_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
@@ -420,6 +408,64 @@ Public Class frmGlobalSearch
 
     End Sub
 
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        For Each row In GridViewFiles.GetSelectedRows
+            Dim SELECTED_DOC_ID = GridViewFiles.GetRowCellValue(row, "DocID")
+            Dim oJumpToDocSQL = String.Format("DECLARE @PID BIGINT
+                SELECT @PID = dwParentID FROM TBPMO_DOCRESULT_LIST WHERE DocID = {0}
+                SELECT GUID FROM VWPMO_STRUCTURE_NODES WHERE ENTITY_ID = {1} AND ISNUMERIC(ID1) = 1  AND ID1 = @PID", SELECTED_DOC_ID, OF_FILESTORE_ENTITY)
+            Dim ojumpID As Integer = MYDB_ECM.GetScalarValue(oJumpToDocSQL)
+            If Not IsNothing(ojumpID) AndAlso ojumpID <> 0 Then
+                OpenFormConstructor(OF_FILESTORE_CONSTRUCTOR, 1, OF_FILESTORE_ENTITY, ojumpID)
+
+            Else
+                MessageBox.Show("A parent node could not be found!", "No Node found", MessageBoxButtons.OK, MessageBoxIcon.Warning)
+            End If
+            Exit For
+        Next
+    End Sub
+
+    Private Sub BarButtonItem2_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        Dim Current_DocList As ClassDocGrid
+        Current_DocList = New ClassDocGrid(GridViewFiles)
+        Dim oDocuments = Current_DocList.SelectedDocuments
+
+        If oDocuments.Count = 0 Or ClassDocGrid.HasNoSelectedDocuments(GridViewFiles) Then
+            MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
+            Exit Sub
+        End If
+        Refresh_Selected_Table()
+
+        Dim oForm As New frmDocRecordLink With {.myDocuments = oDocuments}
+        oForm.Show()
+    End Sub
+    Sub Refresh_Selected_Table()
+        Dim table As New DataTable With {
+            .TableName = "SelectedFiles"
+        }
+
+        ' Create two columns, ID and Name.
+        Dim idColumn As DataColumn = table.Columns.Add("ID", GetType(System.Int32))
+        idColumn.AutoIncrement = True
+        idColumn.AutoIncrementSeed = 0
+        idColumn.AutoIncrementStep = 1
+        table.PrimaryKey = New DataColumn() {idColumn}
+        table.Columns.Add("FILEPATH", GetType(System.String))
+        table.Columns.Add("DOC_ID", GetType(System.Int32))
+        table.Columns.Add("OBJECTTYPE", GetType(System.String))
+        For Each oDoc As ClassDocGrid.clsWMDoc In ClassDocGrid.GetSelectedDocuments(GridViewFiles)
+            If oDoc.DocPath <> String.Empty Then
+                'Set the ID column as the primary key column.
+                Dim newRow As DataRow = table.NewRow()
+                newRow("FILEPATH") = oDoc.DocPath
+                newRow("DOC_ID") = oDoc.DocId
+                newRow("OBJECTTYPE") = oDoc.DocType
+                table.Rows.Add(newRow)
+            End If
+        Next
+        table.AcceptChanges()
+        CURRENT_DT_SELECTED_FILES = table
+    End Sub
     Sub File_open()
         Me.Cursor = Cursors.WaitCursor