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

MS_06.01.2015

Browse Source
This commit is contained in:
SchreiberM
2016-01-06 16:59:04 +01:00
parent 3bcfde3a6f
commit ce29b32e5e
10 changed files with 150 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -45,6 +45,17 @@ Public Class frmMain
LoadQuickStartItems()
VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
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
frmScanFiles.Show()
End If
End If
Catch ex As Exception
MsgBox("Error in Load InBox Scan:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try