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

MS_1708

Browse Source
This commit is contained in:
SchreiberM
2016-08-17 11:32:45 +02:00
parent b811570870
commit 32192cf542
70 changed files with 7103 additions and 9527 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
app/DD-Record-Organiser/ClassFileResult.vb
View File

@@ -59,14 +59,18 @@
End Function
Public Shared Function Delete_ResultFile(RESULT_DOC_ID)
Try
Dim del = "DELETE FROM TBPMO_DOCRESULT_LIST WHERE DocID = " & RESULT_DOC_ID
Dim del = "DELETE FROM TBPMO_DOC_INDICES WHERE DocID = " & RESULT_DOC_ID
If ClassDatabase.Execute_non_Query(del) = True Then
del = "DELETE FROM TBPMO_DOC_INDICES WHERE DocID = " & RESULT_DOC_ID
ClassDatabase.Execute_non_Query(del)
Return True
Else
MsgBox("Could not delete file from Search-table - Check logfile", MsgBoxStyle.Exclamation)
Return False
del = "DELETE FROM TBPMO_DOC_RECORD_LINK WHERE DocID = " & RESULT_DOC_ID
If ClassDatabase.Execute_non_Query(del) = True Then
del = "DELETE FROM TBPMO_DOCRESULT_LIST WHERE DocID = " & RESULT_DOC_ID
If ClassDatabase.Execute_non_Query(del) = True Then
Return True
Else
MsgBox("Could not delete file from Search-table - Check logfile", MsgBoxStyle.Exclamation)
Return False
End If
End If
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Delete ResultFile: " & ex.Message, True)