MS_04.01

app/DD-Record-Organiser/frmMain.vb

@@ -21,7 +21,7 @@ Public Class frmMain
                     ClassLogger.Add(">> SCAN PATH '" & CURRENT_SCAN_FOLDERWATCH & "'not accessable!", False)
                     Exit Sub
                 End If
-                TIMER_SCAN.Interval = 10000
+                TIMER_SCAN.Interval = 30000
                 TIMER_SCAN.Enabled = True
                 AddHandler TIMER_SCAN.Tick, AddressOf Scan_TickHandler
             Else
@@ -39,8 +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}'", USER_USERNAME)
-            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql1, "Load ScanFiles")
+            Dim DT As DataTable = ClassFolderWatcher.Check_Scan_Files
             If Not IsNothing(DT) Then
                 CURRENT_SCAN_TABLE = DT
                 If DT.Rows.Count > 0 Then
@@ -120,6 +119,12 @@ Public Class frmMain
             Catch ex As Exception
                 MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             End Try
+            If ClassProxy.MyPROXYConnectionString <> "" Then
+                itemRefreshProxy.Visibility = BarItemVisibility.Always
+            Else
+                itemRefreshProxy.Visibility = BarItemVisibility.Never
+
+            End If
         End If
 
 
@@ -605,6 +610,17 @@ Public Class frmMain
     Private Sub itemSettings_ItemClick(sender As Object, e As ItemClickEventArgs) Handles itemSettings.ItemClick
         Load_ConfigBasic()
     End Sub
+    Private Sub itemRefreshProxy_ItemClick(sender As Object, e As ItemClickEventArgs) Handles itemRefreshProxy.ItemClick
+        Me.Cursor = Cursors.WaitCursor
+        ClassProxy.Refresh_Object_Data()
+        ClassProxy.Refresh_Doc_Data()
+        Dim msg = "Die Proxydaten wurden erfolgreich synchronisiert!"
+        If USER_LANGUAGE <> "de-DE" Then
+            msg = "All proxydata was refreshed successfully!"
+        End If
+        MsgBox(msg, MsgBoxStyle.Information)
+        Me.Cursor = Cursors.Default
+    End Sub
     Sub Load_ConfigBasic()
         frmConfig_Basic.ShowDialog()
         If LANGUAGE_CHANGED = True Then