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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-09-12 10:44:27 +02:00
parent ba5e88b91b
commit 89853759cb
27 changed files with 571 additions and 431 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -59,18 +59,11 @@
End Function
Public Shared Function Delete_ResultFile(RESULT_DOC_ID)
Try
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_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
Dim proc = String.Format("EXEC PRPMO_DELETE_RESULTFILE {0}", RESULT_DOC_ID)
If ClassDatabase.Execute_non_Query_withConn(proc, 1) = True Then
Return True
Else
Return False
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Delete ResultFile: " & ex.Message, True)