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

6
app/DD-Record-Organiser/ClassFolderWatcher.vb
View File

@@ -72,9 +72,9 @@ Public Class ClassFolderWatcher
Dim handleType As String
If e.FullPath.EndsWith(".msg") Then
handleType = "@SCAN_OUTLOOK_MESSAGE@"
handleType = "SCAN_OUTLOOK_MESSAGE"
Else
handleType = "@SCAN@"
handleType = "SCAN"
End If
'Die Datei übergeben
If LogErrorsOnly = False Then ClassLogger.Add(">> OnCreated-File:" & e.FullPath, False)
@@ -105,7 +105,7 @@ Public Class ClassFolderWatcher
Try
Dim filename_only As String = Path.GetFileName(filename)
Dim ins As String = String.Format("INSERT INTO TBPMO_FILES_USER (FILENAME2WORK, USER@WORK,HANDLE_TYPE,FILENAME_ONLY) VALUES ('{0}','{1}','{2}','{3}')", filename, Environment.UserName, handleType, filename_only)
Dim ins As String = String.Format("INSERT INTO TBPMO_FILES_USER (FILENAME2WORK, USER_WORK,HANDLE_TYPE,FILENAME_ONLY) VALUES ('{0}','{1}','{2}','{3}')", filename, Environment.UserName, handleType, filename_only)
Return ClassDatabase.Execute_non_Query(ins, True)
Catch ex As Exception
MsgBox("Unexpected Error in Insert Scan-File: " & ex.Message, MsgBoxStyle.Critical)