initDGVATEZ verbessert!

Aviso/frmSendungsdetailsNEU.vb

@@ -6344,7 +6344,11 @@ Public Class frmSendungsdetailsNEU
                 Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
                 Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"), dgvATEZNCTS)
                 frmAttilaATEZNCTS.Show(Me)
-                initdgvATEZ()
+
+                AddHandler frmAttilaATEZNCTS.FormClosing, Function()
+                                                              initdgvATEZ()
+                                                              Me.BringToFront()
+                                                          End Function
             End If
 
         Catch ex As Exception
@@ -6434,7 +6438,10 @@ Public Class frmSendungsdetailsNEU
                 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
 
 
@@ -6454,7 +6461,7 @@ Public Class frmSendungsdetailsNEU
                         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()