MS Diverses Customizing

2024-07-31 11:10:21 +02:00
parent 2039b614c1
commit c15a0ee5a0
36 changed files with 1140 additions and 1612 deletions
--- a/app/DD-Record-Organizer/frmGlobalSearch.vb
+++ b/app/DD-Record-Organizer/frmGlobalSearch.vb
@@ -35,21 +35,25 @@ Public Class frmGlobalSearch
    Private Const SEE_MASK_FLAG_NO_UI = &H400
    Public Const SW_SHOW As Short = 5
    Private _Helper As ClassHelper
-    Dim sel_Records, sel_FT As String
+    Dim sel_Records, FuULLTEXT_select As String
    Private SelectedGrid As DevExpress.XtraGrid.GridControl

    Sub Refresh_Search()
+
        If txtSearch.Text = "" Then
            Exit Sub
        End If
+        Me.Cursor = Cursors.WaitCursor
        Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
        Try
+            lblFT_Irregular.Visible = False
            sel_Records = ""
-            sel_FT = ""
+            FuULLTEXT_select = ""

            If rbSearchCombined.Checked = True Then
                PREPARE_RECORD_SQL()
                PREPARE_FT_SQL()
+
            End If
            If rbSearchRecord.Checked = True Then
                PREPARE_RECORD_SQL()
@@ -85,6 +89,7 @@ Public Class frmGlobalSearch

        Finally
            SplashScreenManager.CloseOverlayForm(oHandle)
+            Me.Cursor = Cursors.Default
        End Try


@@ -92,18 +97,20 @@ Public Class frmGlobalSearch

    End Sub
    Sub PREPARE_FT_SQL()
-        Dim oFTSearchtext = txtSearch.Text
-        If oFTSearchtext.Contains(" ") Then
-            oFTSearchtext = oFTSearchtext.Replace(" ", "%")
-        End If
-        Dim sqlft = SQL_FULLTEXT
-        sqlft = sqlft.Replace("@FULLTEXT", oFTSearchtext)
+        Dim oSearchTermFT = txtSearch.Text
+        oSearchTermFT = oSearchTermFT.Replace(" ", "%")
+        oSearchTermFT = oSearchTermFT.Replace(".", "")
+        Dim oSQLft = SQL_FULLTEXT
+        oSQLft = oSQLft.Replace("@FULLTEXT_RP", oSearchTermFT)
+        oSQLft = oSQLft.Replace("@FULLTEXT", txtSearch.Text)

-        sel_FT = sqlft
+        LOGGER.Debug("oSQLft is: " + oSQLft)
+        FuULLTEXT_select = oSQLft

    End Sub
    Sub PREPARE_RECORD_SQL()
-        sel_Records = String.Format("select T.RECORD_ID,TR.FORM_ID AS ENTITY_ID ,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), TFV.GUID), 1) as Entity," &
+
+        sel_Records = String.Format("Select T.RECORD_ID,TR.FORM_ID As ENTITY_ID ,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), TFV.GUID), 1) as Entity," &
                                       "T.VALUE,TR.ADDED_WHO as AddedWho,TR.ADDED_WHEN as AddedWhen,TR.CHANGED_WHO As ChangedWho,TR.CHANGED_WHEN as ChangedWhen from TBPMO_CONTROL_VALUE T,TBPMO_RECORD TR,TBPMO_FORM_VIEW TFV " &
                                       "where T.RECORD_ID = TR.GUID AND TR.FORM_ID = TFV.FORM_ID AND T.value like '%{1}%' ORDER BY T.RECORD_ID", USER_LANGUAGE, txtSearch.Text)
    End Sub
@@ -136,7 +143,14 @@ Public Class frmGlobalSearch
        End If
    End Function
    Private Function Refresh_Files()
-        Dim DT_Files = MYDB_ECM.GetDatatable(sel_FT)
+        Dim DT_Files As DataTable
+        If FuULLTEXT_select <> "FT_Incompatible" Then
+            DT_Files = MYDB_ECM.GetDatatable(FuULLTEXT_select)
+        Else
+            tslblDocView.Text = String.Format("No full text result because the search term contained characters that are incompatible with a full text search.")
+            GridControlFiles.DataSource = Nothing
+        End If
+
        If Not IsNothing(DT_Files) Then
            SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.None
            SplitContainerMain.Collapsed = False
@@ -176,10 +190,6 @@ Public Class frmGlobalSearch



-
-    Private Sub ExportExcelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportExcelToolStripMenuItem.Click
-        Export_Excel()
-    End Sub
    Sub Export_Excel()
        If IsNothing(SelectedGrid) Then
            MsgBox("Please choose a grid!", MsgBoxStyle.Exclamation)
@@ -212,9 +222,6 @@ Public Class frmGlobalSearch
        Cursor = Cursors.Default
    End Sub

-    Private Sub ShowRecordToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShowRecordToolStripMenuItem.Click
-        Show_Detail_Record()
-    End Sub
    Sub Show_Detail_Record()
        Try
            Dim RECORD_ID = GridViewRecords.GetFocusedRowCellValue(GridViewRecords.Columns("RECORD_ID"))
@@ -342,23 +349,52 @@ Public Class frmGlobalSearch

    End Sub

-    Private Sub GridControlRecords_DoubleClick(sender As Object, e As EventArgs) Handles GridControlRecords.DoubleClick

+
+    Private Sub GridControlRecords_Click(sender As Object, e As EventArgs) Handles GridControlRecords.Click
+        SelectedGrid = sender
+        RibbonPageGroupFiles.Enabled = False
+        RibbonPageGroupRecords.Enabled = True
    End Sub

-    Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
-        File_open()
+    Private Sub GridControlFiles_Click(sender As Object, e As EventArgs) Handles GridControlFiles.Click
+        SelectedGrid = sender
+        RibbonPageGroupFiles.Enabled = True
+        RibbonPageGroupRecords.Enabled = False
    End Sub

-    Private Sub OrdnerÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OrdnerÖffnenToolStripMenuItem.Click
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        Show_Detail_Record()
+    End Sub
+
+    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        Refresh_Search()
+    End Sub
+
+    Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged
+        Dim oTerm As String = txtSearch.Text
+        If txtSearch.Text.Contains(".") Then
+            lblFT_Irregular.Visible = True
+        End If
+    End Sub
+
+    Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+        Export_Excel()
+    End Sub
+
+    Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
+        Export_Excel()
+    End Sub
+
+    Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick
        Open_folder()
    End Sub

-    Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenToolStripMenuItem.Click
+    Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
        Show_File_Properties()
    End Sub
-
-    Private Sub VerknüpfungenAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerknüpfungenAnzeigenToolStripMenuItem.Click
+    Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
        Try
            For Each row In GridViewFiles.GetSelectedRows
                Dim SELECTED_DOC_ID = GridViewFiles.GetRowCellValue(row, "DocID")
@@ -376,24 +412,12 @@ Public Class frmGlobalSearch
        End Try
    End Sub

-    Private Sub GridControlRecords_Click(sender As Object, e As EventArgs) Handles GridControlRecords.Click
-        SelectedGrid = sender
-    End Sub
-
-    Private Sub GridControlFiles_Click(sender As Object, e As EventArgs) Handles GridControlFiles.Click
-        SelectedGrid = sender
-    End Sub
-
-    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
-        Export_Excel()
-    End Sub
-
-    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+    Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick
        Show_Detail_Record()
    End Sub

-    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
-        Refresh_Search()
+    Private Sub BarButtonItem10_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem10.ItemClick
+        File_open()
    End Sub

    Sub File_open()