AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS_21.01.2016

Browse Source
This commit is contained in:
SchreiberM
2016-01-21 17:05:06 +01:00
parent 9df213f39f
commit bed11c3d80
14 changed files with 376 additions and 241 deletions
Download Patch File Download Diff File Expand all files Collapse all files

85
app/DD-Record-Organiser/frmMain.vb
View File

@@ -9,8 +9,54 @@ Public Class frmMain
'Dim sql_User_Login As String = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
'Dim sql_UserID As String = "SELECT GUID FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
'Private USER_GUID
Public Shared TIMER_SCAN As New Timer
Public Shared Sub RUN_TIMER()
Try
If TIMER_SCAN.Enabled = False Then
TIMER_SCAN.Interval = 10000
TIMER_SCAN.Enabled = True
AddHandler TIMER_SCAN.Tick, AddressOf Scan_TickHandler
End If
Catch ex As Exception
MsgBox("Unexpected Error in RUN_TIMER:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
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 DT As DataTable = ClassDatabase.Return_Datatable(sql1, "Load ScanFiles")
If Not IsNothing(DT) Then
If DT.Rows.Count > 0 Then
Dim open As Boolean = False
For Each form In My.Application.OpenForms
If (form.name = frmScanFiles.Name) Then
'form is loaded so can do work
'if you need to check whether it is actually visible
If form.Visible Then
open = True
'do work when visible
If My.Settings.User_InBoxScan_NotinFront = False Then
frmScanFiles.BringToFront()
End If
Else
End If
End If
Next
If open = False Then
Dim frm As New frmScanFiles
frm = frmScanFiles.Instance()
frm.Show()
End If
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in Scan_TickHandler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
TIMER_SCAN.Enabled = False
End Try
End Sub
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
' Referenz zu frmMain speichern
@@ -362,7 +408,7 @@ Public Class frmMain
Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Refresh_TaskReminder()
Timer1.Start()
TimerScan.Start()
RUN_TIMER()
If Sett_ConstructorStart <> 0 Then
Cursor = Cursors.WaitCursor
OpenFormConstructor(Sett_ConstructorStart)
@@ -551,41 +597,4 @@ Public Class frmMain
End Try
End Select
End Sub
Private Sub TimerScan_Tick(sender As Object, e As EventArgs) Handles TimerScan.Tick
Check_Scan()
End Sub
Sub Check_scan()
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 DT As DataTable = ClassDatabase.Return_Datatable(sql1, "Load ScanFiles")
If Not IsNothing(DT) Then
If DT.Rows.Count > 0 Then
Dim open As Boolean = False
For Each form In My.Application.OpenForms
If (form.name = frmScanFiles.Name) Then
'form is loaded so can do work
'if you need to check whether it is actually visible
If form.Visible Then
open = True
'do work when visible
If My.Settings.User_InBoxScan_NotinFront = False Then
frmScanFiles.BringToFront()
End If
Else
End If
End If
Next
If open = False Then
Dim frm As New frmScanFiles
frm = frmScanFiles.Instance()
frm.Show()
End If
End If
End If
Catch ex As Exception
MsgBox("Error in Load InBox Scan:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
End Class