MS

2017-02-01 12:33:22 +01:00
parent 877eaa2411
commit 5023a28d75
52 changed files with 7752 additions and 3992 deletions
--- a/app/DD-Record-Organiser/frmScanFiles.vb
+++ b/app/DD-Record-Organiser/frmScanFiles.vb
@@ -171,4 +171,11 @@ Public Class frmScanFiles
        End If

    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        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
+            Load_Files()
+        End If
+    End Sub
 End Class