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

delete_verknuepfung Bug

Browse Source
This commit is contained in:
Developer01
2025-09-25 16:14:30 +02:00
parent 1cd1578608
commit 07a4c00b01
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD-Record-Organizer/Classes/ClassFileResult.vb
View File

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