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

MS Adding documents

Browse Source
This commit is contained in:
Developer01
2025-01-30 15:13:58 +01:00
parent f05f6d46f8
commit 1cd24f6637
10 changed files with 76 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD-Record-Organizer/Classes/ClassFolderWatcher.vb
View File

@@ -87,7 +87,7 @@ Public Class ClassFolderWatcher
'Die Datei übergeben
LOGGER.Debug("OnCreated-File:" & e.FullPath)
If FileExistsinDropTable(CURRENT_FILENAME) = False Then
Insert_USER_File(e.FullPath, handleType)
ClassHelper.Insert_USER_File(e.FullPath, handleType)
Else
Console.WriteLine("File existiert bereits")
End If
@@ -111,16 +111,6 @@ Public Class ClassFolderWatcher
End Try
End Function
Public Shared Function Insert_USER_File(filename As String, handleType As String)
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, USER_USERNAME, handleType, filename_only)
Return MYDB_ECM.ExecuteNonQuery(ins)
Catch ex As Exception
MsgBox("Unexpected Error in Insert Scan-File: " & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
Public Shared Function DELETE_SCAN_File(filename As String)
Try
Dim filename_only As String = Path.GetFileName(filename)