MS_04.01

app/DD-Record-Organiser/ClassDragDrop.vb

@@ -9,7 +9,7 @@ Public Class ClassDragDrop
             files_dropped = Nothing
 
             Dim sql As String = "DELETE FROM TBPMO_FILES_USER WHERE HANDLE_TYPE <> 'SCAN' AND UPPER(USER_WORK) = UPPER('" & USER_USERNAME & "')"
-            ClassDatabase.Execute_non_Query(sql)
+            ClassDatabase.Execute_non_Query(sql, True)
 
 
             If e.Data.GetDataPresent(DataFormats.FileDrop) Then
@@ -129,7 +129,6 @@ Public Class ClassDragDrop
                 Return True
                 'Drop eines Outlook Attachments
             End If
-
         Catch ex As Exception
             MsgBox("Unexpected Error in Drop_File: " & ex.Message, MsgBoxStyle.Critical)
         End Try