AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

AdditionalSearches

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2019-05-20 11:37:17 +02:00
parent aca45281bc
commit a4f7efff3c
13 changed files with 1820 additions and 1620 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@@ -668,17 +668,12 @@ Public Class frmAdministration
If result = MsgBoxResult.Yes Then
Try
Dim profileID = PROFILGUIDTextBox.Text
Dim del As String = "delete from TBPM_CONTROL_TABLE where CONTROL_ID in (SELECT GUID FROM TBPM_PROFILE_CONTROLS where PROFIL_ID = " & profileID & ")"
ClassDatabase.Execute_non_Query(del)
TBPM_ERROR_LOGTableAdapter.DeletePROFIL(profileID)
TBPM_PROFILE_FILESTableAdapter.cmdDeleteProfilData(profileID)
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.DeleteFinalIndex(profileID)
TBPM_PROFILE_CONTROLSTableAdapter.cmdDeleteProfil(profileID)
TBPROFILE_USERTableAdapter.cmdDeleteAllForProfile(profileID)
TBPROFILE_GROUPTableAdapter.CmdDeleteAllForProfile(profileID)
TBPM_PROFILETableAdapter.cmdDelete(profileID)
MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung")
Refresh_Profildaten()
Dim del As String = $"EXEC PRPM_DELETE_PROFILE {profileID}"
If ClassDatabase.Execute_non_Query(del) = True Then
MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung")
Refresh_Profildaten()
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Fehler bei Löschen des Profils:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler:")