Jumpto Record

This commit is contained in:
Developer01
2025-12-09 11:55:44 +01:00
parent a34f55702b
commit 784d954441
4 changed files with 83 additions and 127 deletions

View File

@@ -289,7 +289,11 @@ Public Class frmGlobalSearch
End Function
Private Sub frmSearchAllOVer_Load(sender As Object, e As EventArgs) Handles Me.Load
If OF_FILESTORE_ENTITY = 0 Then
bbtnitmJump2Filestore.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
Else
bbtnitmJump2Filestore.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
End If
_Helper = New ClassHelper
Load_DocGrid_Layout()
Load_RecordGrid_Layout()
@@ -408,7 +412,7 @@ Public Class frmGlobalSearch
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmJump2Filestore.ItemClick
For Each row In GridViewFiles.GetSelectedRows
Dim SELECTED_DOC_ID = GridViewFiles.GetRowCellValue(row, "DocID")
Dim oJumpToDocSQL = String.Format("DECLARE @PID BIGINT