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

MS23032016

Browse Source
This commit is contained in:
SchreiberM
2016-03-23 13:01:40 +01:00
parent 777de5582e
commit 58788043c5
14 changed files with 989 additions and 1428 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -452,13 +452,9 @@
End Try
End Function
Public Shared Function DeleteControl()
Public Shared Function DeleteControl(ID As Integer)
Try
If CURRENT_CONTROL_ID = Nothing Then
MsgBox("Kein Element ausgewählt", MsgBoxStyle.Information)
End If
Dim del = "EXEC [dbo].[PRPMO_DELETE_CONTROL] " & CURRENT_CONTROL_ID.ToString
Dim del = "EXEC [dbo].[PRPMO_DELETE_CONTROL] " & ID.ToString
If ClassDatabase.Execute_non_Query(del) = True Then
Return True
Else
@@ -494,28 +490,28 @@
End Try
End Function
Public Shared Function DeleteControl(id As Integer)
Try
If DeleteControlValues(id) = True Then
If DeleteControlScreen(id) = True Then
If ClassFunctionCommands.DeleteFunction(id) = True Then
Dim SQL = "DELETE FROM TBPMO_CONTROL WHERE GUID = " & id
'Public Shared Function DeleteControl(id As Integer)
' Try
' If DeleteControlValues(id) = True Then
' If DeleteControlScreen(id) = True Then
' If ClassFunctionCommands.DeleteFunction(id) = True Then
' Dim SQL = "DELETE FROM TBPMO_CONTROL WHERE GUID = " & id
If ClassDatabase.Execute_non_Query(SQL) = True Then
Return True
Else
Throw New Exception()
End If
End If
End If
End If
' If ClassDatabase.Execute_non_Query(SQL) = True Then
' Return True
' Else
' Throw New Exception()
' End If
' End If
' End If
' End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Delete Control1: " & ex.Message, True)
MsgBox("Unexpected Error in Delete Control1:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
' Catch ex As Exception
' ClassLogger.Add("Unexpected Error in Delete Control1: " & ex.Message, True)
' MsgBox("Unexpected Error in Delete Control1:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
' Return False
' End Try
'End Function
Public Shared Function DeleteControlScreen(id As Integer)