initDGVATEZ verbessert!

Aviso/usrcntlAktDetailsATILLANeu.vb

@@ -1655,8 +1655,14 @@ Public Class usrcntlAktDetailsATILLANeu
                 frmAttilaATEZNCTS.Show(Me)
                 Me.Refresh()
 
+                AddHandler frmAttilaATEZNCTS.FormClosing, Function()
+                                                              initdgvATEZ()
+                                                              Me.BringToFront()
+                                                          End Function
             End If
 
+
+
         Catch ex As Exception
             MsgBox(ex.Message & ex.StackTrace)
         End Try
@@ -1678,7 +1684,12 @@ Public Class usrcntlAktDetailsATILLANeu
                 Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value, AVISO, SND, Now.ToString("yy"))
                 frmAttilaATEZNCTS.Show(Me)
                 Me.Refresh()
-                initdgvATEZ()
+
+                AddHandler frmAttilaATEZNCTS.FormClosing, Function()
+                                                              initdgvATEZ()
+                                                              Me.BringToFront()
+                                                          End Function
+
             End If
 
 
@@ -1696,7 +1707,7 @@ Public Class usrcntlAktDetailsATILLANeu
                         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
+                    If vbYes = MsgBox("Möchten Sie den Request " & dgvATEZNCTS.SelectedRows(0).Cells("BezugsNr").Value & "  wirklich löschen?", vbYesNoCancel) Then
                         Dim atez As New cATEZ_NCTS_DATA(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value)
                         atez.delete()
                         initdgvATEZ()