MS ParameterAttachments, SaveAdmin

app/DD_PM_WINDREAM/frmValidator.vb

@@ -502,6 +502,16 @@ Public Class frmValidator
 
                 If oDataResultsExist = True Or oDocResultsExist = True Then
                     bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                    If RibbonPageCustTitle <> "" Then
+                        RibbonPageCust.Text = RibbonPageCustTitle
+                        RibbonPageCust.Visible = True
+                        If RibbonPageCustItm1 <> "" Then
+                            BarButtonItemAttmt.Caption = RibbonPageCustItm1
+                            BarButtonItemAttmt.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                        End If
+                    Else
+                        RibbonPageCust.Visible = False
+                    End If
                     _frmValidatorSearch.Show()
                     Dim oPnl1Collapsed As Boolean = True
                     Dim oPnl2Collapsed As Boolean = True
@@ -533,6 +543,7 @@ Public Class frmValidator
 
                         _frmValidatorSearch.RefreshTabDoc(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("TAB_TITLE"))
                     End If
+
                 Else
                     LOGGER.Info("Not loading AdditionalSearches 1...!")
                     bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
@@ -3778,6 +3789,10 @@ Public Class frmValidator
 
         Controls2beDisabled()
         BringToFront()
+        If bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Always Then
+            _frmValidatorSearch.BringToFront()
+        End If
+
         FormLoaded = True
         LOGGER.Debug("frmValidation_Shown finished!")
     End Sub
@@ -5438,6 +5453,9 @@ Public Class frmValidator
     End Sub
 
     Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniRefreshSearches.ItemClick
+        Click_Additional_Searches()
+    End Sub
+    Sub Click_Additional_Searches()
         Try
             _frmValidatorSearch.Close()
             _frmValidatorSearch = New frmValidatorSearch
@@ -5446,7 +5464,6 @@ Public Class frmValidator
         End Try
         Load_Additional_Searches()
     End Sub
-
     Private Sub bbtniRefresh_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniRefresh.ItemClick
         Reload_Controls("")
         Try
@@ -5620,4 +5637,8 @@ Public Class frmValidator
     Private Sub BarButtonItem5_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
         MsgBox("Versioning not configured! (Reasons: RightManagement, Displaying)", MsgBoxStyle.Information)
     End Sub
+
+    Private Sub BarButtonItem6_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemAttmt.ItemClick
+        Click_Additional_Searches()
+    End Sub
 End Class