From 0ef9a735b3f99985802e245e1d81c93a4fe45b4d Mon Sep 17 00:00:00 2001 From: ja Date: Thu, 4 Nov 2021 14:59:44 +0100 Subject: [PATCH] =?UTF-8?q?=C3=84nderun=20Logik=20zum=20Speichern=20der=20?= =?UTF-8?q?Zust=C3=A4nde=20nach=20return=20zur=20Seite?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/CustomsAviso.aspx.vb | 116 ++++++++++++++++++++++++++++++--- 1 file changed, 108 insertions(+), 8 deletions(-) diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index 5e873f8..4180545 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/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