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

DAtabase integriert

Browse Source
This commit is contained in:
SchreiberM
2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
app/DD-Record-Organizer/frmScanFiles.vb
View File

@@ -1,5 +1,4 @@
Imports System.IO
Imports DD_LIB_Standards
Public Class frmScanFiles
@@ -25,7 +24,7 @@ Public Class frmScanFiles
Try
PdfViewer1.DocumentFilePath = ""
Dim del = "DELETE FROM TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' AND UPPER(USER_WORK) = UPPER('" & USER_USERNAME & "')"
If clsDatabase.Execute_non_Query(del, True) Then
If MYDB_ECM.ExecuteNonQuery(del) Then
' Make a reference to a directory.
Dim di As New DirectoryInfo(CURRENT_SCAN_FOLDERWATCH)
' Get a reference to each file in that directory.
@@ -179,7 +178,7 @@ Public Class frmScanFiles
Dim i1 = i.Text
If Not IsNothing(i) Then
Dim del = "DELETE FROM TBPMO_FILES_USER where GUID = " & i.Tag
If ClassDatabase.Execute_non_Query(del, True) Then
If MYDB_ECM.ExecuteNonQuery(del) Then
ClassFolderWatcher.Check_Scan_Files()
Load_Files()
Else
@@ -220,7 +219,7 @@ Public Class frmScanFiles
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
PdfViewer1.DocumentFilePath = ""
Dim del = "DELETE FROM TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' AND UPPER(USER_WORK) = UPPER('" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(del, True) Then
If MYDB_ECM.ExecuteNonQuery(del) Then
ClassFolderWatcher.Check_Scan_Files()
Load_Files()
End If