From 07a4c00b011989e4dcb4f549084fad00c3427bd3 Mon Sep 17 00:00:00 2001
From: Developer01 <developer01@didaloghe.onmicrosoft.com>
Date: Thu, 25 Sep 2025 16:14:30 +0200
Subject: [PATCH] delete_verknuepfung Bug

---
 app/DD-Record-Organizer/Classes/ClassFileResult.vb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/app/DD-Record-Organizer/Classes/ClassFileResult.vb b/app/DD-Record-Organizer/Classes/ClassFileResult.vb
index 99df158..b591ed0 100644
--- a/app/DD-Record-Organizer/Classes/ClassFileResult.vb
+++ b/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