Änderun Logik zum Speichern der Zustände nach return zur Seite

Customers/CustomsAviso.aspx.vb

@@ -13,6 +13,7 @@ Partial Class CustomsAviso
     Dim KDNAFNR As String = ""
     Dim dt As DataTable
     Dim Art As String = ""
+    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
@@ -102,7 +103,7 @@ Partial Class CustomsAviso
                     datebis = Nothing
                 End If
             Else
-                    Page.MaintainScrollPositionOnPostBack = False
+                Page.MaintainScrollPositionOnPostBack = False
                 rbt_Alle.Checked = True
                 normaltable.EnableViewState = True
                 lbl_von.Visible = True
@@ -161,6 +162,34 @@ 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
@@ -275,6 +304,7 @@ Partial Class CustomsAviso
 
     Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
         dt = Nothing
+
         If txt_Absender.Text IsNot "" Then
             txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
             Try
@@ -333,10 +363,10 @@ Partial Class CustomsAviso
             End Try
         End If
 
-        If rbt_Alle.Checked = True Or rbt_Alle_M.Checked = True Then
+        If rbt_Alle.Checked = True Then
             pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
             pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
-
+            ckd = 1
             If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
                 Try
                     Dim erster = New Date(Now().Year, Now().Month, 1)
@@ -359,9 +389,13 @@ Partial Class CustomsAviso
                     MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
                 End Try
             End If
-        ElseIf rbt_Erf.Checked = True Or rbt_Erf_M.Checked = True Then
+
+        ElseIf rbt_Erf.Checked = True Then
+            ckd = 2
             dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
-        ElseIf rbt_Freig.Checked = True Or rbt_Freig_M.Checked = True Then
+
+        ElseIf rbt_Freig.Checked = True Then
+            ckd = 3
             pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
             pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
             If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
@@ -384,13 +418,79 @@ Partial Class CustomsAviso
                     MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
                 End Try
             End If
-        ElseIf rbt_Ankunft.Checked = True Or rbt_Ankunft_M.Checked = True Then
+        ElseIf rbt_Ankunft.Checked = True Then
+            ckd = 4
+            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
+            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
+            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
+            If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
+                Try
+                    Dim erster = New Date(Now().Year, Now().Month, 1)
+                    Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
+                    ' MsgBox(ersterdat)
+                    datevon = ersterdat
+                    pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
+                    datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
+                    pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
+                    dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
+                Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
+                    MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
+                End Try
+            Else
+                Try
+                    datevon = Date.Parse(pickdate1.Text)
+                    datebis = Date.Parse(pickdate2.Text)
+                    dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
+                Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
+                    MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
+                End Try
+            End If
+        ElseIf rbt_Erf_M.Checked = True Then
+            ckd = 8
+            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
+            pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+            pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+            If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
+                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 = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
+                dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
+            Else
+                Try
+                    datevon = Date.Parse(pickdate1.Text)
+                    'MsgBox(pickdate1.Text)
+                    datebis = Date.Parse(pickdate2.Text)
+                    ' MsgBox(pickdate2.Text)
+                    dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
+                Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
+                    MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
+                End Try
+            End If
+        ElseIf rbt_Ankunft_M.Checked = True Then
+            ckd = 10
             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.Checked = True Or rbt_Vorb_M.Checked = True Then
+        ElseIf rbt_Vorb_M.Checked = True Then
+            ckd = 11
             dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
-        ElseIf rbt_Vorg.Checked = True Or rbt_Vorg_M.Checked = True Then
+        ElseIf rbt_Vorg_M.Checked = True Then
+            ckd = 12
             dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
         End If