MS12

2016-09-29 16:46:21 +02:00
parent 93528062ba
commit b87def7b40
13 changed files with 191 additions and 323 deletions
--- a/app/DD-Record-Organiser/ClassFileResult.vb
+++ b/app/DD-Record-Organiser/ClassFileResult.vb
@@ -58,9 +58,9 @@
            Return False
        End Try
    End Function
-    Public Shared Function Delete_ResultFile(RESULT_DOC_ID)
+    Public Shared Function Delete_ResultFile(RESULT_DOC_ID, RECORD_ID, DELETE_FILE)
        Try
-            Dim proc = String.Format("EXEC PRPMO_DELETE_RESULTFILE {0}", RESULT_DOC_ID)
+            Dim proc = String.Format("EXEC PRPMO_DELETE_RESULTFILE {0},{1},{2}", RESULT_DOC_ID, RECORD_ID, DELETE_FILE)
            If ClassDatabase.Execute_non_Query_withConn(proc, 1) = True Then
                Return True
            Else