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

MS_05042016

Browse Source
This commit is contained in:
SchreiberM
2016-04-05 17:28:12 +02:00
parent b9eb1e1981
commit d1eb7ecb5b
72 changed files with 11883 additions and 9088 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -6,14 +6,14 @@ Public Class ClassDragDrop
Public Shared Function Drop_File(e As DragEventArgs)
Try
Try
If LogErrorsOnly = False Then ClassLogger.Add(">> In Drop_File....", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> In Drop_File....", False)
files_dropped = Nothing
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
If LogErrorsOnly = False Then ClassLogger.Add(">> DataFormats.FileDrop", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> DataFormats.FileDrop", False)
Dim MyFiles() As String
Dim i As Integer
' Assign the files to an array.
@@ -35,7 +35,7 @@ Public Class ClassDragDrop
Try
If e.Data.GetDataPresent("FileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then
Console.WriteLine(">> FileGroupDescriptor/FileContents")
If LogErrorsOnly = False Then ClassLogger.Add(">> FileGroupDescriptor/FileContents", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> FileGroupDescriptor/FileContents", False)
'// the first step here is to get the stbFileName
'// of the attachment and
'// build a full-path name so we can store it
@@ -88,7 +88,7 @@ Public Class ClassDragDrop
ReDim Preserve files_dropped(0)
files_dropped(0) = "@OUTLOOK_ATTMNT@" & strOutFile
TEMP_FILES.Add(strOutFile)
If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Drop an Attachment - File: " & strOutFile, False)
Return files_dropped
Else
ClassLogger.Add(">> Attachment File from Outlook could not be created", False)
@@ -104,7 +104,7 @@ Public Class ClassDragDrop
Try
If e.Data.GetDataPresent("FileGroupDescriptor") Then
Console.WriteLine(">> FileGroupDescriptor")
If LogErrorsOnly = False Then ClassLogger.Add(">> Drop of OutlookMessage", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Drop of OutlookMessage", False)
Dim oApp As New Outlook.Application
'supports a drop of a Outlook message