From 0ffc0e750ecfb734e438990df09bc816920c610c Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Fri, 5 Nov 2021 16:16:23 +0100
Subject: [PATCH] =?UTF-8?q?Script=20f=C3=BCr=20Schlie=C3=9Fen=20wirklich?=
 =?UTF-8?q?=20verlassen=20Meldung=20auf=20der=20Masterseite=20f=C3=BCr=20d?=
 =?UTF-8?q?iese=20Seite=20zu=20registrieren=20und=20nicht=20ueberall?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/CustomsAviso.aspx.vb |  6 ++++++
 Customers/Invoices.aspx.vb     | 12 ++++++++++++
 2 files changed, 18 insertions(+)

diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index f72f9ac..591b765 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -25,14 +25,20 @@ Partial Class CustomsAviso
             End Try
 
             DataBind()
+
+            'Script für Schließen wirklich verlassen Meldung auf der Masterseite für diese Seite zu registrieren und nicht ueberall
             Dim csm1 As ClientScriptManager = Page.ClientScript
             Dim cstype As Type = Page.GetType
             If Not csm1.IsStartupScriptRegistered(cstype, "Startup") Then
                 Dim string1 As String = "<script language=\""JavaScript\"">"
                 string1 += "</"
+                string1 += "window.addEventListener('beforeunload', (event) => {"
+                string1 += " event.preventDefault();"
+                string1 += "event.returnValue = '';"
                 string1 += "script>"
                 csm1.RegisterClientScriptBlock(cstype, "Startup", string1)
             End If
+
             tbl_Header_row.TableSection = TableRowSection.TableHeader
                 ' MsgBox(datebis)
 
diff --git a/Customers/Invoices.aspx.vb b/Customers/Invoices.aspx.vb
index a0fec03..f261fc2 100644
--- a/Customers/Invoices.aspx.vb
+++ b/Customers/Invoices.aspx.vb
@@ -26,6 +26,18 @@ Partial Class Customers_Default3
             Else
                 lbl_status.Text = "Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!"
             End If
+            'Script für Schließen wirklich verlassen Meldung auf der Masterseite für diese Seite zu registrieren und nicht ueberall
+            Dim csm1 As ClientScriptManager = Page.ClientScript
+            Dim cstype As Type = Page.GetType
+            If Not csm1.IsStartupScriptRegistered(cstype, "Startup") Then
+                Dim string1 As String = "<script language=\""JavaScript\"">"
+                string1 += "</"
+                string1 += "window.addEventListener('beforeunload', (event) => {"
+                string1 += " event.preventDefault();"
+                string1 += "event.returnValue = '';"
+                string1 += "script>"
+                csm1.RegisterClientScriptBlock(cstype, "Startup", string1)
+            End If
 
             DataBind()
                 tbl_Header_row.TableSection = TableRowSection.TableHeader