edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ATEZ

Browse Source
This commit is contained in:
d.breimaier
2023-09-15 13:49:30 +02:00
parent 18d7b44d5c
commit f767b78d92
5 changed files with 84 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -1690,7 +1690,11 @@ Public Class usrcntlAktDetailsATILLANeu
Private Sub dgvATEZNCTS_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvATEZNCTS.KeyUp
If e.KeyCode = Keys.Delete Then
If dgvATEZNCTS.SelectedRows.Count > 0 Then
If Not IsDBNull(dgvATEZNCTS.SelectedRows(0).Cells("Status").Value) AndAlso dgvATEZNCTS.SelectedRows(0).Cells("Status").Value <> "Sent" Or IsDBNull(dgvATEZNCTS.SelectedRows(0).Cells("Status").Value) Then
If Not IsDBNull(dgvATEZNCTS.SelectedRows(0).Cells("Status").Value) Or IsDBNull(dgvATEZNCTS.SelectedRows(0).Cells("Status").Value) Then
If dgvATEZNCTS.SelectedRows(0).Cells("Status").Value = "Sent" Then
MsgBox("Bereits gesendete Request können nicht gelöscht werden!")
Exit Sub
End If
If vbYes = MsgBox("Möchten Sie diesen Request wirklich löschen?", vbYesNoCancel) Then
Dim atez As New cATEZ_NCTS_DATA(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value)
atez.delete()