From 1c3fdc89567a8825bcc3fb1125fc61465abd8446 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Mon, 23 Oct 2023 11:16:44 +0200
Subject: [PATCH] initDGVATEZ verbessert!

---
 Aviso/Aviso.vbproj                  |  2 ++
 Aviso/frmSendungsdetailsNEU.vb      | 13 ++++++++++---
 Aviso/usrcntlAktDetailsATILLANeu.vb | 15 +++++++++++++--
 3 files changed, 25 insertions(+), 5 deletions(-)

diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj
index 7920903..fd7d750 100644
--- a/Aviso/Aviso.vbproj
+++ b/Aviso/Aviso.vbproj
@@ -104,6 +104,7 @@
   <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
     <PlatformTarget>x64</PlatformTarget>
     <OutputPath>bin\Debug\</OutputPath>
+    <Prefer32Bit>false</Prefer32Bit>
   </PropertyGroup>
   <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -114,6 +115,7 @@
   </PropertyGroup>
   <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
     <OutputPath>bin\Release\</OutputPath>
+    <PlatformTarget>x64</PlatformTarget>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="Accessibility" />
diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb
index ee71e69..a8fcfd3 100644
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/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()
diff --git a/Aviso/usrcntlAktDetailsATILLANeu.vb b/Aviso/usrcntlAktDetailsATILLANeu.vb
index 836344f..d84c1c0 100644
--- a/Aviso/usrcntlAktDetailsATILLANeu.vb
+++ b/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()