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

MS_10052016

Browse Source
This commit is contained in:
SchreiberM
2016-05-11 12:00:53 +02:00
parent 0b1f56f4d0
commit c06083c714
16 changed files with 2465 additions and 744 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -284,21 +284,26 @@ Public Class ClassControlCommandsUI
End Sub
Function DeleteRecord(RecordID As Integer)
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
Dim del = "EXEC [dbo].[PRPMO_DELETE_RECORD] " & RecordID
Return ClassDatabase.Execute_non_Query(del, True) = True
Return False
'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
End Function