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

MS1808

Browse Source
This commit is contained in:
SchreiberM
2016-08-18 10:58:31 +02:00
parent fd0e907262
commit bcee2404d5
30 changed files with 9903 additions and 8876 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
app/DD-Record-Organiser/ClassControlCommandsUI.vb
View File

@@ -304,26 +304,7 @@ Public Class ClassControlCommandsUI
End Sub
Function DeleteRecord(RecordID As Integer)
Dim del = "EXEC [dbo].[PRPMO_DELETE_RECORD] " & RecordID
Return ClassDatabase.Execute_non_Query(del, True) = True
'Dim sql As String = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & RecordID & " OR RECORD2_ID = " & RecordID
'If ClassDatabase.Execute_non_Query(sql) = True Then
' sql = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE RECORD_ID = " & RecordID
' If ClassDatabase.Execute_non_Query(sql) = True Then
' sql = "DELETE FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = " & RecordID
' If ClassDatabase.Execute_non_Query(sql) = True Then ' Delete der Controls erfolgreich ausgeführt, jetzt der Record
' sql = "DELETE FROM TBPMO_RECORD WHERE GUID = " & RecordID
' If ClassDatabase.Execute_non_Query(sql) = True Then
' Return True
' End If
' End If
' End If
'End If
'Return False
Return ClassHelper.DeleteRecord(RecordID)
End Function