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

12
app/DD-Record-Organiser/ClassDragDrop.vb
View File

@@ -8,7 +8,7 @@ Public Class ClassDragDrop
If LogErrorsOnly = False Then ClassLogger.Add(">> In Drop_File....", False)
files_dropped = Nothing
Dim oApp As New Outlook.Application
Dim sql As String = "DELETE FROM TBPMO_FILES_USER WHERE UPPER(USER_WORK) = UPPER('" & Environment.UserName & "')"
Dim sql As String = "DELETE FROM TBPMO_FILES_USER WHERE HANDLE_TYPE <> 'SCAN' AND UPPER(USER_WORK) = UPPER('" & Environment.UserName & "')"
ClassDatabase.Execute_non_Query(sql)
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
@@ -112,8 +112,12 @@ Public Class ClassDragDrop
Catch ex As Exception
MsgBox("Error in Drop_File: " & ex.Message, MsgBoxStyle.Critical)
End Try
If e.Data.GetDataPresent(DataFormats.StringFormat) Then
Dim Wert As String = CType(e.Data.GetData(DataFormats.StringFormat), Object)
Console.WriteLine(Wert)
ReDim Preserve files_dropped(0)
files_dropped(0) = "@SCAN@" & Wert
End If
'Else
' Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
' Dim filestype() As String
@@ -156,7 +160,7 @@ Public Class ClassDragDrop
If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... OutlookMessage", False)
Else
'otherwise, do not handle
e.Effect = DragDropEffects.None
e.Effect = DragDropEffects.Copy
frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... Other FileFormat")
If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... Other FileFormat", False)
End If