Datenblatt Fehler aktualisiert mit korrekten Zahlen und Änderungen am Code

Customers/CustomsAviso.aspx

@@ -127,6 +127,7 @@
                                           </h2>
                                         </div>
                                <asp:HiddenField ID="hfAccordionIndex" runat="server" />
+                               <asp:HiddenField ID="HIDf2" runat="server" value="1"/>
                                         <div id="collapseOne" class="accordion-collapse collapse hide" aria-labelledby="headingOne" data-bs-parent="#accordionExample">   
                                                     <div class="card card-body">
                                                      <div class="col-12" id="cont3">                                  
@@ -233,24 +234,43 @@
     
     <script>
         function changeval(value) {
-            if (value == "Alle") {                
+            var hidden = $('#HIDf2').val()
+
+            if (value == "Alle"){                
                 date1.required = true;
-                date2.required = true;
+                date2.required = true;                
-                $("#container2").show();               
+                $("#container2").show();                
+                $('#HIDf2').val('0')
             } else if (value == "Freigabe") {
                 date1.required = true;
                 date2.required = true;
                 $("#container2").show();
+                $('#HIDf2').val('0')
             } else {
                 date1.required = false;
                 date2.required = false;
                 date1.text() = null;
                 date2.text() = null;
                 $("#container2").hide();
+                $('#HIDf2').val('1')  
             }
         }
     </script>
-  
+  <script>
+      $(function () {
+          Sys.WebForms.PageRequestManager.getInstance().add_endRequest(PostBack);
+          PostBack();
+      });
+
+      function PostBack() {
+
+          var hidden = document.getElementById(<%=HIDf2.ClientID%>).value;
+
+          if (hidden == '1') {
+              setTimeout(function () { $('.a').hide(); document.getElementById('<%=HIDf2.ClientID%>').value = 0 }, 10);
+          }
+      }
+  </script>
     <script type="text/javascript">
         $(document).ready(function () {
             Sys.WebForms.PageRequestManager.getInstance().add_endRequest(EndRequestHandler);

Customers/CustomsAviso.aspx.vb

@@ -27,9 +27,40 @@ Partial Class CustomsAviso
 
             tbl_Header_row.TableSection = TableRowSection.TableHeader
             ' MsgBox(datebis)
+
             If (Page.IsPostBack And normaltable.EnableViewState = False) Then
                 Page.MaintainScrollPositionOnPostBack = True
                 normaltable.EnableViewState = True
+
+                Select Case Session.Item("IDOFCKBOX")
+                    Case 1
+                        rbt_Alle.Checked = True
+                    Case 2
+                        rbt_Erf.Checked = True
+                    Case 3
+                        rbt_Freig.Checked = True
+                    Case 4
+                        rbt_Ankunft.Checked = True
+                    Case 5
+                        rbt_Vorb.Checked = True
+                    Case 6
+                        rbt_Vorg.Checked = True
+                    Case 7
+                        rbt_Alle_M.Checked = True
+                    Case 8
+                        rbt_Erf_M.Checked = True
+                    Case 9
+                        rbt_Freig_M.Checked = True
+                    Case 10
+                        rbt_Ankunft_M.Checked = True
+                    Case 11
+                        rbt_Vorb_M.Checked = True
+                    Case 12
+                        rbt_Vorg_M.Checked = True
+                    Case Nothing
+                        rbt_Alle.Checked = True
+                End Select
+
                 If rbt_Alle.Checked = True Then
                     lbl_von.Visible = True
                     lbl_bis.Visible = True
@@ -41,6 +72,13 @@ Partial Class CustomsAviso
                     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
@@ -52,6 +90,13 @@ Partial Class CustomsAviso
                     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
@@ -61,6 +106,8 @@ Partial Class CustomsAviso
                     valDateRange_2.Enabled = False
                     pickdate1.Visible = False
                     pickdate2.Visible = False
+                    datevon = Nothing
+                    datebis = Nothing
                 End If
                 'Mobil
                 If rbt_Alle_M.Checked = True Then
@@ -74,6 +121,13 @@ Partial Class CustomsAviso
                     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
@@ -85,6 +139,13 @@ Partial Class CustomsAviso
                     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
@@ -94,11 +155,6 @@ Partial Class CustomsAviso
                     valDateRange_2.Enabled = False
                     pickdate1.Visible = False
                     pickdate2.Visible = False
-                End If
-                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
@@ -162,33 +218,6 @@ Partial Class CustomsAviso
                     regval_txt_Absender_M.Enabled = True
                 End If
             End If
-
-            Select Case ckd
-                Case 1
-                    rbt_Alle.Checked = True
-                Case 2
-                    rbt_Erf.Checked = True
-                Case 3
-                    rbt_Vorb.Checked = True
-                Case 4
-                    rbt_Ankunft.Checked = True
-                Case 5
-                    rbt_Vorg.Checked = True
-                Case 6
-                    rbt_Vorb.Checked = True
-                Case 7
-                    rbt_Alle_M.Checked = True
-                Case 8
-                    rbt_Erf_M.Checked = True
-                Case 9
-                    rbt_Freig_M.Checked = True
-                Case 10
-                    rbt_Ankunft_M.Checked = True
-                Case 11
-                    rbt_Vorb_M.Checked = True
-                Case 12
-                    rbt_Vorg_M.Checked = True
-            End Select
         Else
             FormsAuthentication.RedirectToLoginPage()
         End If
@@ -366,6 +395,7 @@ Partial Class CustomsAviso
             pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
             pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
             ckd = 1
+            Session.Add("IDOFCKBOX", ckd.ToString)
             If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
                 Try
                     Dim erster = New Date(Now().Year, Now().Month, 1)
@@ -391,10 +421,12 @@ Partial Class CustomsAviso
 
         ElseIf rbt_Erf.Checked = True Then
             ckd = 2
+            Session.Add("IDOFCKBOX", ckd.ToString)
             dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
 
         ElseIf rbt_Freig.Checked = True Then
             ckd = 3
+            Session.Add("IDOFCKBOX", ckd.ToString)
             pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
             pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
             If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
@@ -419,18 +451,22 @@ Partial Class CustomsAviso
             End If
         ElseIf rbt_Ankunft.Checked = True Then
             ckd = 4
+            Session.Add("IDOFCKBOX", ckd.ToString)
             dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
         ElseIf rbt_Vorb.Checked = True Then
             ckd = 5
+            Session.Add("IDOFCKBOX", ckd.ToString)
             dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
         ElseIf rbt_Vorg.Checked = True Then
             ckd = 6
+            Session.Add("IDOFCKBOX", ckd.ToString)
             dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
         End If
         If rbt_Alle_M.Checked = True Then
             pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
             pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
             ckd = 7
+            Session.Add("IDOFCKBOX", ckd.ToString)
             If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
                 Try
                     Dim erster = New Date(Now().Year, Now().Month, 1)
@@ -455,9 +491,11 @@ Partial Class CustomsAviso
             End If
         ElseIf rbt_Erf_M.Checked = True Then
             ckd = 8
+            Session.Add("IDOFCKBOX", ckd.ToString)
             dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
         ElseIf rbt_Freig_M.Checked = True Then
             ckd = 9
+            Session.Add("IDOFCKBOX", ckd.ToString)
             pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
             pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
             If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
@@ -482,14 +520,17 @@ Partial Class CustomsAviso
             End If
         ElseIf rbt_Ankunft_M.Checked = True Then
             ckd = 10
+            Session.Add("IDOFCKBOX", ckd.ToString)
             pickdate1.Visible = False
             pickdate2.Visible = False
             dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
         ElseIf rbt_Vorb_M.Checked = True Then
             ckd = 11
+            Session.Add("IDOFCKBOX", ckd.ToString)
             dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
         ElseIf rbt_Vorg_M.Checked = True Then
             ckd = 12
+            Session.Add("IDOFCKBOX", ckd.ToString)
             dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
         End If
 

Customers/Default2.aspx

@@ -38,7 +38,7 @@
          </tr>
              <tr>
                  <td>
-                     <asp:Label ID="Label1" runat="server" Text="Gib eibe Zahl ein in Dezimal"></asp:Label>   
+                     <asp:Label ID="Label1" runat="server" Text="Gib eine Zahl ein in Dezimal"></asp:Label>   
                  </td>
                  <td>
                       <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>

Customers/Default2.aspx.vb

@@ -1,7 +1,13 @@
 
 Partial Class Customers_Default2
     Inherits System.Web.UI.Page
-
+    Protected Sub Page_Load(ByVal sender As Object, e As EventArgs)
+        If Page.IsPostBack Then
+            VERAG_VARIABLES.initerrorcount()
+        Else
+            VERAG_VARIABLES.initerrorcount()
+        End If
+    End Sub
     Protected Sub Button1_Click(sender As Object, e As EventArgs)
         If String.IsNullOrEmpty(TextBox1.Text) = False Then
             Dim vals As New List(Of String)
@@ -11,7 +17,6 @@ Partial Class Customers_Default2
                 Dim strtemp As String = ""
                 VERAG_VARIABLES.seterrorcount(Integer.Parse(i))
                 vals.Add(i.ToString + Space(3) + ":" + Space(3) + VERAG_VARIABLES.geterrornumb)
-
             Next
             For Each val As String In vals
                 finalstr = finalstr + Environment.NewLine + val + Environment.NewLine

Global.asax

@@ -49,5 +49,6 @@
         Session.Remove("UserID");
         Session.Remove("test");
         Session.Remove("PW");
+        Session.Remove("IDOFCKBOX");
     }
 </script>