delete_verknuepfung Bug

app/DD-Record-Organizer/Classes/ClassFileResult.vb

@@ -82,8 +82,12 @@ Public Class ClassFileResult
     End Function
     Public Shared Function Delete_ResultFile(RESULT_DOC_ID, RECORD_ID, DELETE_FILE)
         Try
-            If DELETE_FILE = "True" Then
+            Dim oDelete = CBool(DELETE_FILE)
+            If oDelete = False Then
+                DELETE_FILE = 0
+            Else
                 DELETE_FILE = 1
+
             End If
             Dim proc = String.Format("EXEC PRPMO_DELETE_RESULTFILE {0},{1},{2}", RESULT_DOC_ID, RECORD_ID, DELETE_FILE)
             If MYDB_ECM.ExecuteNonQuery(proc) = True Then