MS17.11

app/DD-Record-Organiser/frmMain.vb

@@ -318,10 +318,7 @@ Public Class frmMain
 
             End Try
 
-
-
             If dt.Rows.Count <> 0 Then
-
                 For Each row As DataRow In dt.Rows
                     If Not IsDBNull(row.Item("MENU_IMG")) Then
                         Dim bimg() As Byte = row.Item("MENU_IMG")
@@ -357,6 +354,14 @@ Public Class frmMain
                 Next
 
             End If
+
+            Dim sql = "SELECT COUNT(GUID) FROM TBPMO_USER_GLOBAL_SEARCH WHERE USER_ID = " & USER_GUID
+            Dim Count = ClassDatabase.Execute_Scalar(sql)
+            If Count = 0 Then
+                btnGlobalSearch.Enabled = False
+            Else
+                btnGlobalSearch.Enabled = True
+            End If
         Catch ex As Exception
             MsgBox("Unexpected Error in Load QuickStart-Items:" & vbNewLine & ex.Message)
         End Try
@@ -837,13 +842,17 @@ Public Class frmMain
         End If
     End Sub
 
-    Private Sub BarButtonItem23_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem23.ItemClick
+    Private Sub BarButtonItem23_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnGlobalSearch.ItemClick
         OpenSearchAllOVer()
 
     End Sub
 
-    Private Sub BarButtonItem24_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem24.ItemClick
+    Private Sub BaButtonItem24_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem24.ItemClick
 
         frmGoogle.Show()
     End Sub
+
+    Private Sub BarButtonItem25_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbtnItemViewsUser.ItemClick
+        OpenViewsUser()
+    End Sub
 End Class