MS

app/DD-Record-Organiser/frmMain.vb

@@ -39,7 +39,7 @@ Public Class frmMain
     End Sub
     Private Shared Sub Scan_TickHandler(sender As Object, e As EventArgs)
         Try
-            Dim sql1 As String = String.Format("select * from TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' and WORKED = 0 AND UPPER(USER_WORK) = '{0}'", Environment.UserName)
+            Dim sql1 As String = String.Format("select * from TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' and WORKED = 0 AND UPPER(USER_WORK) = '{0}'", USER_USERNAME)
             Dim DT As DataTable = ClassDatabase.Return_Datatable(sql1, "Load ScanFiles")
             If Not IsNothing(DT) Then
                 CURRENT_SCAN_TABLE = DT
@@ -95,7 +95,7 @@ Public Class frmMain
 
                 Me.Text = Application.ProductName
                 LabelVersion.Caption = String.Format("Version {0}", My.Application.Info.Version.ToString)
-                LabelUser.Caption = Environment.UserName
+                LabelUser.Caption = USER_USERNAME
 
                 'IP-Adresse-Auslesen
                 Dim Addresslist() As IPAddress = _
@@ -147,7 +147,7 @@ Public Class frmMain
     Sub Load_TasksforUser()
         Try
             VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, Environment.UserName)
+            Me.VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, USER_USERNAME)
             CURRENT_TASKS_GENERAL = Me.DD_DMSDataSet.VWPMO_WF_ACTIVE
         Catch ex As Exception
             MsgBox("Error in Load Tasks:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -161,7 +161,7 @@ Public Class frmMain
             Dim sql = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
             sql = sql.Replace("@LogInOut", 0)
             sql = sql.Replace("@ANGEMELDETWO", "''")
-            sql = sql.Replace("@user", Environment.UserName)
+            sql = sql.Replace("@user", USER_USERNAME)
             ClassDatabase.Execute_non_Query(sql)
             sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE = 'RECORD_ORGANIZER'"
             ClassDatabase.Execute_non_Query(sql)
@@ -355,12 +355,20 @@ Public Class frmMain
 
             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
+                groupSearchAllOver.Visible = False
             Else
                 btnGlobalSearch.Enabled = True
+                groupSearchAllOver.Visible = True
+            End If
+            If USER_USERNAME.ToUpper = "SCHREIBERM" Or USER_USERNAME.ToUpper = "JENNEJ" Then
+                RibbonPageGroup4.Visible = True
+            Else
+                RibbonPageGroup4.Visible = False
             End If
         Catch ex As Exception
             MsgBox("Unexpected Error in Load QuickStart-Items:" & vbNewLine & ex.Message)
@@ -855,4 +863,13 @@ Public Class frmMain
     Private Sub BarButtonItem25_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbtnItemViewsUser.ItemClick
         OpenViewsUser()
     End Sub
+    Private Sub BarButtonItem23_ItemClick_1(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem23.ItemClick
+        Cursor = Cursors.WaitCursor
+        If ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS() = True Then
+            MsgBox("All files were synced successfully!", MsgBoxStyle.Information)
+        Else
+            MsgBox("Error while synchronizing files! Check the log!", MsgBoxStyle.Critical)
+        End If
+        Cursor = Cursors.Default
+    End Sub
 End Class