ATEZ und Digicust

Aviso/usrcntlAktDetailsATILLANeu.vb

@@ -1687,4 +1687,15 @@ Public Class usrcntlAktDetailsATILLANeu
 
     End Sub
 
+    Private Sub dgvATEZNCTS_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvATEZNCTS.KeyUp
+        If e.KeyCode = Keys.Delete Then
+            If dgvATEZNCTS.SelectedRows.Count > 0 AndAlso dgvATEZNCTS.SelectedRows(0).Cells("Status").Value <> "Sent" Then
+                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()
+                    initdgvATEZ()
+                End If
+            End If
+        End If
+    End Sub
 End Class