From b74f50adef9a81f331188bc8cfedeb0eedbeef5b Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Tue, 28 Sep 2021 11:22:37 +0200
Subject: [PATCH] =?UTF-8?q?=C3=84ndrerungen=20Accordion=20klappt=20bei=20P?=
 =?UTF-8?q?ostback=20immerr=20zu?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/CustomsAviso.aspx    | 16 ++++++++++++++++
 Customers/CustomsAviso.aspx.vb |  5 ++---
 2 files changed, 18 insertions(+), 3 deletions(-)

diff --git a/Customers/CustomsAviso.aspx b/Customers/CustomsAviso.aspx
index 04c1165..d0651cf 100644
--- a/Customers/CustomsAviso.aspx
+++ b/Customers/CustomsAviso.aspx
@@ -269,4 +269,20 @@
             }
         };
     </script>   
+    <script type="text/javascript">
+        $(document).ready(function () {
+            // Get saved data from sessionStorage
+            let selectedCollapse = sessionStorage.getItem('selectedCollapse');
+            if (selectedCollapse != null) {
+                $('accordion-button collapsed').removeClass('show');
+                $(selectedCollapse).addClass('show');
+            }
+            //To set, which one will be opened
+            $('accordion-button collapsed').on('click', function () {
+                let target = $(this).data('target');
+                //Save data to sessionStorage
+                sessionStorage.setItem('selectedCollapse', target);
+            });
+            }
+    </script>
 </asp:Content>
\ No newline at end of file
diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index 0423b3b..4ba3fcf 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -53,7 +53,6 @@ Partial Class Kundenbereich_Default
         Dim darkblue = Drawing.Color.FromArgb(4, 51, 129)
 
         tr.BackColor = white
-
         If t1.Text = "" Then
             t1.BackColor = white
             t1.ForeColor = schwarz
@@ -433,7 +432,7 @@ Partial Class Kundenbereich_Default
         If pickdate1.Text = "" Then
             pickdate1.BorderColor = Drawing.Color.Red
         Else
-            pickdate1.BorderStyle = 1
+            pickdate1.BorderStyle = BorderStyle.None
         End If
     End Sub
 
@@ -442,7 +441,7 @@ Partial Class Kundenbereich_Default
         If pickdate2.Text = "" Then
             pickdate2.Attributes.Add("Border", "2px solid red")
         Else
-            pickdate2.Attributes.Add("Border", "None")
+            pickdate2.BorderStyle = BorderStyle.None
         End If
     End Sub