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

MS_2902

Browse Source
This commit is contained in:
SchreiberM
2016-02-29 15:46:13 +01:00
parent f9172b80c7
commit d65e3d9a87
37 changed files with 6383 additions and 8142 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
app/DD-Record-Organiser/ClassControlCommands.vb
View File

@@ -459,25 +459,34 @@
MsgBox("Kein Element ausgewählt", MsgBoxStyle.Information)
End If
If DeleteControlValues(CURRENT_CONTROL_ID) = True Then
If DeleteControlScreen(CURRENT_CONTROL_ID) = True Then
If ClassFunctionCommands.DeleteFunction(CURRENT_CONTROL_ID) = True Then
Dim SQL = "DELETE FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = " & CURRENT_CONTROL_ID
If ClassDatabase.Execute_non_Query(SQL) = True Then
SQL = "DELETE FROM TBPMO_CONTROL WHERE GUID = " & CURRENT_CONTROL_ID
If ClassDatabase.Execute_non_Query(SQL) = True Then
Return True
End If
Else
Return False
End If
End If
Else
Return False
End If
Dim del = "EXEC [dbo].[PRPMO_DELETE_CONTROL] " & CURRENT_CONTROL_ID.ToString
If ClassDatabase.Execute_non_Query(del) = True Then
Return True
Else
Return False
End If
'If DeleteControlValues(CURRENT_CONTROL_ID) = True Then
' If DeleteControlScreen(CURRENT_CONTROL_ID) = True Then
' If ClassFunctionCommands.DeleteFunction(CURRENT_CONTROL_ID) = True Then
' ss()
' Dim SQL = "DELETE FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = " & CURRENT_CONTROL_ID
' If ClassDatabase.Execute_non_Query(SQL) = True Then
' SQL = "DELETE FROM TBPMO_CONTROL WHERE GUID = " & CURRENT_CONTROL_ID
' If ClassDatabase.Execute_non_Query(SQL) = True Then
' Return True
' End If
' Else
' Return False
' End If
' End If
' Else
' Return False
' End If
'Else
' Return False
'End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Delete Control: " & ex.Message, True)