From c93022dd3c8bb6f6220b921b23a8c56ecf51992f Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Fri, 5 Nov 2021 16:12:19 +0100
Subject: [PATCH] =?UTF-8?q?nachricht=20bei=20schlie=C3=9Fen=20des=20fenste?=
 =?UTF-8?q?rs=20oder=20neuladen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/Customers.master     |  14 +-
 Customers/CustomsAviso.aspx    |  13 +-
 Customers/CustomsAviso.aspx.vb | 302 +++++++++++++++++----------------
 3 files changed, 179 insertions(+), 150 deletions(-)
diff --git a/Customers/Customers.master b/Customers/Customers.master
index 4ead25c..e4c6e81 100644
--- a/Customers/Customers.master
+++ b/Customers/Customers.master
@@ -142,10 +142,20 @@
         <meta http-equiv="Page-Exit"content="blendTrans(Duration=0)"/>
     </asp:ContentPlaceHolder>
     <asp:ContentPlaceHolder id="head" runat="server">
-        
+        <script>
+            function unloadmessage() {
+                if (typeof contentunloadmessage == "function") {
+
+                    contentunloadmessage();
+
+                }
+
+            }
+
+        </script>
     </asp:ContentPlaceHolder>
 </head>
-<body data-spy="scroll" data-target=".navbar" data-offset="50" onbeforeunload=" return 'Are you really want to perform the action?'">                                   
+<body data-spy="scroll" data-target=".navbar" data-offset="50" >                                   
                         <!-- <div id="nav-main">
                         <div id="art-logo"></div>
                         </div>        
diff --git a/Customers/CustomsAviso.aspx b/Customers/CustomsAviso.aspx
index a84138b..f063c3a 100644
--- a/Customers/CustomsAviso.aspx
+++ b/Customers/CustomsAviso.aspx
@@ -24,7 +24,16 @@
     <link rel="stylesheet" type="text/css" href="../css/Dropdown.css"/>   
     <link rel="stylesheet" type="text/css" href="../css/Customers/MasterpageCustomers.css"/>       
     <link rel="stylesheet" type="text/css" href="../css/navbarsidebar2.css"/>      
-    <link rel="stylesheet" type="text/css" href="../css/Customers/CustomsAVISO.css"/>      
+    <link rel="stylesheet" type="text/css" href="../css/Customers/CustomsAVISO.css"/>   
+    
+        <script language='javascript'>
+            window.addEventListener('beforeunload', (event) => {
+                // Cancel the event as stated by the standard.
+                event.preventDefault();
+                // Chrome requires returnValue to be set.
+                event.returnValue = '';
+            });
+        </script>
 </asp:Content> 
 
 <asp:Content ID="Content3" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
@@ -382,4 +391,6 @@
        });
      </script>    
     
+        
+   
 </asp:Content>
\ No newline at end of file
diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index 812d6be..f72f9ac 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -16,6 +16,7 @@ Partial Class CustomsAviso
     Dim ckd As Integer = -1
     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms
+
         If Me.Page.User.Identity.IsAuthenticated Then
             Try
                 Kdnrtext = Session.Item("CustomerID")
@@ -24,173 +25,180 @@ Partial Class CustomsAviso
             End Try
 
             DataBind()
-
+            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 += "script>"
+                csm1.RegisterClientScriptBlock(cstype, "Startup", string1)
+            End If
             tbl_Header_row.TableSection = TableRowSection.TableHeader
-            ' MsgBox(datebis)
+                ' MsgBox(datebis)
 
-            If (Page.IsPostBack And normaltable.EnableViewState = False) Then
-                Page.MaintainScrollPositionOnPostBack = True
-                normaltable.EnableViewState = True
+                If (Page.IsPostBack And normaltable.EnableViewState = False) Then
+                    Page.MaintainScrollPositionOnPostBack = True
+                    normaltable.EnableViewState = True
 
-                If rbt_Alle.Checked = True Then
-                    lbl_von.Visible = True
-                    lbl_bis.Visible = True
-                    valDateRange_1.Enabled = True
-                    valDateRange_2.Enabled = True
-                    valreqpickdate1.Enabled = True
-                    valreqpickdate2.Enabled = True
-                    valreqpickdate1.Validate()
-                    valreqpickdate2.Validate()
-                    pickdate1.Visible = True
-                    pickdate2.Visible = True
-                    If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
-                        datevon = Date.Parse(pickdate1.Text)
-                        datebis = Date.Parse(pickdate2.Text)
-                    ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
+                    If rbt_Alle.Checked = True Then
+                        lbl_von.Visible = True
+                        lbl_bis.Visible = True
+                        valDateRange_1.Enabled = True
+                        valDateRange_2.Enabled = True
+                        valreqpickdate1.Enabled = True
+                        valreqpickdate2.Enabled = True
+                        valreqpickdate1.Validate()
+                        valreqpickdate2.Validate()
+                        pickdate1.Visible = True
+                        pickdate2.Visible = True
+                        If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
+                            datevon = Date.Parse(pickdate1.Text)
+                            datebis = Date.Parse(pickdate2.Text)
+                        ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
+                            datevon = Nothing
+                            datebis = Nothing
+                        End If
+                    ElseIf rbt_Freig.Checked = True Then
+                        lbl_von.Visible = True
+                        lbl_bis.Visible = True
+                        valreqpickdate1.Enabled = True
+                        valreqpickdate2.Enabled = True
+                        valreqpickdate1.Validate()
+                        valreqpickdate2.Validate()
+                        valDateRange_1.Enabled = True
+                        valDateRange_2.Enabled = True
+                        pickdate1.Visible = True
+                        pickdate2.Visible = True
+                        If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
+                            datevon = Date.Parse(pickdate1.Text)
+                            datebis = Date.Parse(pickdate2.Text)
+                        ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
+                            datevon = Nothing
+                            datebis = Nothing
+                        End If
+                    Else
+                        lbl_von.Visible = False
+                        lbl_bis.Visible = False
+                        valreqpickdate1.Enabled = False
+                        valreqpickdate2.Enabled = False
+                        valDateRange_1.Enabled = False
+                        valDateRange_2.Enabled = False
+                        pickdate1.Visible = False
+                        pickdate2.Visible = False
                         datevon = Nothing
                         datebis = Nothing
                     End If
-                ElseIf rbt_Freig.Checked = True Then
-                    lbl_von.Visible = True
-                    lbl_bis.Visible = True
-                    valreqpickdate1.Enabled = True
-                    valreqpickdate2.Enabled = True
-                    valreqpickdate1.Validate()
-                    valreqpickdate2.Validate()
-                    valDateRange_1.Enabled = True
-                    valDateRange_2.Enabled = True
-                    pickdate1.Visible = True
-                    pickdate2.Visible = True
-                    If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
-                        datevon = Date.Parse(pickdate1.Text)
-                        datebis = Date.Parse(pickdate2.Text)
-                    ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
+                    'Mobil
+                    If rbt_Alle_M.Checked = True Then
+                        lbl_von.Visible = True
+                        lbl_bis.Visible = True
+                        valreqpickdate1.Enabled = True
+                        valreqpickdate2.Enabled = True
+                        valreqpickdate1.Validate()
+                        valreqpickdate2.Validate()
+                        valDateRange_1.Enabled = True
+                        valDateRange_2.Enabled = True
+                        pickdate1.Visible = True
+                        pickdate2.Visible = True
+                        If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
+                            datevon = Date.Parse(pickdate1.Text)
+                            datebis = Date.Parse(pickdate2.Text)
+                        ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
+                            datevon = Nothing
+                            datebis = Nothing
+                        End If
+                    ElseIf rbt_Freig_M.Checked = True Then
+                        lbl_von.Visible = True
+                        lbl_bis.Visible = True
+                        valreqpickdate1.Enabled = True
+                        valreqpickdate2.Enabled = True
+                        valreqpickdate1.Validate()
+                        valreqpickdate2.Validate()
+                        valDateRange_1.Enabled = True
+                        valDateRange_2.Enabled = True
+                        pickdate1.Visible = True
+                        pickdate2.Visible = True
+                        If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
+                            datevon = Date.Parse(pickdate1.Text)
+                            datebis = Date.Parse(pickdate2.Text)
+                        ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
+                            datevon = Nothing
+                            datebis = Nothing
+                        End If
+                    Else
+                        lbl_von.Visible = False
+                        lbl_bis.Visible = False
+                        valreqpickdate1.Enabled = False
+                        valreqpickdate2.Enabled = False
+                        valDateRange_1.Enabled = False
+                        valDateRange_2.Enabled = False
+                        pickdate1.Visible = False
+                        pickdate2.Visible = False
                         datevon = Nothing
                         datebis = Nothing
                     End If
                 Else
-                    lbl_von.Visible = False
-                    lbl_bis.Visible = False
-                    valreqpickdate1.Enabled = False
-                    valreqpickdate2.Enabled = False
-                    valDateRange_1.Enabled = False
-                    valDateRange_2.Enabled = False
-                    pickdate1.Visible = False
-                    pickdate2.Visible = False
-                    datevon = Nothing
-                    datebis = Nothing
-                End If
-                'Mobil
-                If rbt_Alle_M.Checked = True Then
+                    Page.MaintainScrollPositionOnPostBack = False
+                    rbt_Alle.Checked = True
+                    normaltable.EnableViewState = True
                     lbl_von.Visible = True
                     lbl_bis.Visible = True
-                    valreqpickdate1.Enabled = True
-                    valreqpickdate2.Enabled = True
-                    valreqpickdate1.Validate()
-                    valreqpickdate2.Validate()
                     valDateRange_1.Enabled = True
                     valDateRange_2.Enabled = True
                     pickdate1.Visible = True
                     pickdate2.Visible = True
-                    If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
-                        datevon = Date.Parse(pickdate1.Text)
-                        datebis = Date.Parse(pickdate2.Text)
-                    ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
-                        datevon = Nothing
-                        datebis = Nothing
+                    Dim erster = New Date(Now().Year, Now().Month, 1)
+                    Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
+                    pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
+                    ' MsgBox(ersterdat)
+                    datevon = ersterdat
+                    datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
+                    pickdate2.Text = Now().ToShortDateString()
+                    pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
+                    If String.IsNullOrEmpty(txt_LKWNr.Text) Then
+                        regexval_txt_LKW.Enabled = False
+                    Else
+                        regexval_txt_LKW.Enabled = True
                     End If
-                ElseIf rbt_Freig_M.Checked = True Then
-                    lbl_von.Visible = True
-                    lbl_bis.Visible = True
-                    valreqpickdate1.Enabled = True
-                    valreqpickdate2.Enabled = True
-                    valreqpickdate1.Validate()
-                    valreqpickdate2.Validate()
-                    valDateRange_1.Enabled = True
-                    valDateRange_2.Enabled = True
-                    pickdate1.Visible = True
-                    pickdate2.Visible = True
-                    If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
-                        datevon = Date.Parse(pickdate1.Text)
-                        datebis = Date.Parse(pickdate2.Text)
-                    ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
-                        datevon = Nothing
-                        datebis = Nothing
+                    If String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = True Then
+                        regexval_txt_KdNrAuftrag.Enabled = False
+                    Else
+                        regexval_txt_KdNrAuftrag.Enabled = True
+                    End If
+                    If String.IsNullOrEmpty(txt_Empfaenger.Text) = True Then
+                        regexval_txt_Empfaenger.Enabled = False
+                    Else
+                        regexval_txt_Empfaenger.Enabled = True
+                    End If
+                    If String.IsNullOrEmpty(txt_Absender.Text) = True Then
+                        regexval_txt_Absender.Enabled = False
+                    Else
+                        regexval_txt_Absender.Enabled = True
+                    End If
+                    'Mobile
+                    If String.IsNullOrEmpty(txt_LKWNr_M.Text) Then
+                        regexval_txt_LKWNr_M.Enabled = False
+                    Else
+                        regexval_txt_LKWNr_M.Enabled = True
+                    End If
+                    If String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = True Then
+                        regval_txt_KdNrAuftrag_M.Enabled = False
+                    Else
+                        regval_txt_KdNrAuftrag_M.Enabled = True
+                    End If
+                    If String.IsNullOrEmpty(txt_Empfaenger_M.Text) = True Then
+                        regval_txt_Empfaenger_M.Enabled = False
+                    Else
+                        regval_txt_Empfaenger_M.Enabled = True
+                    End If
+                    If String.IsNullOrEmpty(txt_Absender_M.Text) = True Then
+                        regval_txt_Absender_M.Enabled = False
+                    Else
+                        regval_txt_Absender_M.Enabled = True
                     End If
-                Else
-                    lbl_von.Visible = False
-                    lbl_bis.Visible = False
-                    valreqpickdate1.Enabled = False
-                    valreqpickdate2.Enabled = False
-                    valDateRange_1.Enabled = False
-                    valDateRange_2.Enabled = False
-                    pickdate1.Visible = False
-                    pickdate2.Visible = False
-                    datevon = Nothing
-                    datebis = Nothing
                 End If
             Else
-                Page.MaintainScrollPositionOnPostBack = False
-                rbt_Alle.Checked = True
-                normaltable.EnableViewState = True
-                lbl_von.Visible = True
-                lbl_bis.Visible = True
-                valDateRange_1.Enabled = True
-                valDateRange_2.Enabled = True
-                pickdate1.Visible = True
-                pickdate2.Visible = True
-                Dim erster = New Date(Now().Year, Now().Month, 1)
-                Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
-                pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
-                ' MsgBox(ersterdat)
-                datevon = ersterdat
-                datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
-                pickdate2.Text = Now().ToShortDateString()
-                pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
-                If String.IsNullOrEmpty(txt_LKWNr.Text) Then
-                    regexval_txt_LKW.Enabled = False
-                Else
-                    regexval_txt_LKW.Enabled = True
-                End If
-                If String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = True Then
-                    regexval_txt_KdNrAuftrag.Enabled = False
-                Else
-                    regexval_txt_KdNrAuftrag.Enabled = True
-                End If
-                If String.IsNullOrEmpty(txt_Empfaenger.Text) = True Then
-                    regexval_txt_Empfaenger.Enabled = False
-                Else
-                    regexval_txt_Empfaenger.Enabled = True
-                End If
-                If String.IsNullOrEmpty(txt_Absender.Text) = True Then
-                    regexval_txt_Absender.Enabled = False
-                Else
-                    regexval_txt_Absender.Enabled = True
-                End If
-                'Mobile
-                If String.IsNullOrEmpty(txt_LKWNr_M.Text) Then
-                    regexval_txt_LKWNr_M.Enabled = False
-                Else
-                    regexval_txt_LKWNr_M.Enabled = True
-                End If
-                If String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = True Then
-                    regval_txt_KdNrAuftrag_M.Enabled = False
-                Else
-                    regval_txt_KdNrAuftrag_M.Enabled = True
-                End If
-                If String.IsNullOrEmpty(txt_Empfaenger_M.Text) = True Then
-                    regval_txt_Empfaenger_M.Enabled = False
-                Else
-                    regval_txt_Empfaenger_M.Enabled = True
-                End If
-                If String.IsNullOrEmpty(txt_Absender_M.Text) = True Then
-                    regval_txt_Absender_M.Enabled = False
-                Else
-                    regval_txt_Absender_M.Enabled = True
-                End If
-            End If
-        Else
-            FormsAuthentication.RedirectToLoginPage()
+                FormsAuthentication.RedirectToLoginPage()
         End If
     End Sub
 
