edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Script für Schließen wirklich verlassen Meldung auf der Masterseite für diese Seite zu registrieren und nicht ueberall

Browse Source
This commit is contained in:
ja
2021-11-05 16:16:23 +01:00
parent c93022dd3c
commit 0ffc0e750e
2 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Customers/CustomsAviso.aspx.vb
View File

@@ -25,14 +25,20 @@ Partial Class CustomsAviso
End Try End Try
DataBind() 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 csm1 As ClientScriptManager = Page.ClientScript
Dim cstype As Type = Page.GetType Dim cstype As Type = Page.GetType
If Not csm1.IsStartupScriptRegistered(cstype, "Startup") Then If Not csm1.IsStartupScriptRegistered(cstype, "Startup") Then
Dim string1 As String = "<script language=\""JavaScript\"">" Dim string1 As String = "<script language=\""JavaScript\"">"
string1 += "</" string1 += "</"
string1 += "window.addEventListener('beforeunload', (event) => {"
string1 += " event.preventDefault();"
string1 += "event.returnValue = '';"
string1 += "script>" string1 += "script>"
csm1.RegisterClientScriptBlock(cstype, "Startup", string1) csm1.RegisterClientScriptBlock(cstype, "Startup", string1)
End If End If
tbl_Header_row.TableSection = TableRowSection.TableHeader tbl_Header_row.TableSection = TableRowSection.TableHeader
' MsgBox(datebis) ' MsgBox(datebis)

12
Customers/Invoices.aspx.vb
View File

@@ -26,6 +26,18 @@ Partial Class Customers_Default3
Else Else
lbl_status.Text = "Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!" lbl_status.Text = "Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!"
End If 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() DataBind()
tbl_Header_row.TableSection = TableRowSection.TableHeader tbl_Header_row.TableSection = TableRowSection.TableHeader