From ce53ee5ee48657e55b105996ac9e3f138fa10c21 Mon Sep 17 00:00:00 2001 From: ja Date: Mon, 29 Nov 2021 16:55:36 +0100 Subject: [PATCH] =?UTF-8?q?=C3=84nderungen=20dynamische=20Tabelle=20generi?= =?UTF-8?q?eren?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/CustomsAviso.aspx.vb | 247 +++++++++++++++++++++++++++++++++ 1 file changed, 247 insertions(+) diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index 071d96a..bcdb494 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/Customers/CustomsAviso.aspx.vb @@ -15,6 +15,7 @@ Partial Class CustomsAviso Dim Art As String = "" Dim ckd As Integer = -1 Dim wasmobile As Boolean = True + Dim erster As Date = New Date(Now().Year, Now().Month, 1) Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms VERAG_VARIABLES.initerrorcount() @@ -211,6 +212,252 @@ Partial Class CustomsAviso datevon = Nothing datebis = Nothing End If + If txt_Absender.Text IsNot "" Then + txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regexval_txt_Absender.Enabled = True + regexval_txt_Absender.Validate() + If regexval_txt_Absender.IsValid Then + Try + wasmobile = False + Absender = txt_Absender.Text + Catch ex As FormatException + regexval_txt_Empfaenger.ForeColor = Drawing.Color.Red + regexval_txt_Empfaenger.ErrorMessage = "Diese Daten können nicht validiert werden" + End Try + Else + regexval_txt_Absender.ForeColor = Drawing.Color.Red + regexval_txt_Absender.ErrorMessage = "Der Absender ist nicht richtig formatiert." + End If + ElseIf txt_Empfaenger.Text IsNot "" Then + txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regexval_txt_Empfaenger.Enabled = True + regexval_txt_Empfaenger.Validate() + If regexval_txt_Empfaenger.IsValid Then + Try + wasmobile = False + Empfaenger = txt_Empfaenger.Text + Catch ex As FormatException + MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical) + End Try + Else + regexval_txt_Empfaenger.ForeColor = Drawing.Color.Red + regexval_txt_Empfaenger.ErrorMessage = "Der Empfänger ist nicht richtig formatiert." + End If + ElseIf txt_KdNrAuftrag.Text IsNot "" Then + txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regexval_txt_KdNrAuftrag.Enabled = True + regexval_txt_KdNrAuftrag.Validate() + If regexval_txt_KdNrAuftrag.IsValid Then + Try + wasmobile = False + KDNAFNR = txt_KdNrAuftrag.Text + Catch ex As FormatException + MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical) + End Try + Else + regexval_txt_KdNrAuftrag.ForeColor = Drawing.Color.Red + regexval_txt_KdNrAuftrag.ErrorMessage = "Die Kundenummer ist nicht richtig formatiert." + End If + ElseIf txt_LKWNr.Text IsNot "" Then + txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regexval_txt_LKW.Enabled = True + regexval_txt_LKW.Validate() + If regexval_txt_LKW.IsValid = True Then + Try + LKWNR = txt_LKWNr.Text + Catch ex As FormatException + MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical) + End Try + Else + regexval_txt_LKW.ForeColor = Drawing.Color.Red + regexval_txt_LKW.ErrorMessage = "Das LKW Kennzeichen ist nicht richtig formatiert." + End If + ElseIf txt_Absender_M.Text IsNot "" Then + txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regval_txt_Absender_M.Enabled = True + regval_txt_Absender_M.Validate() + If regval_txt_Absender_M.IsValid Then + Try + wasmobile = True + Absender = txt_Absender_M.Text + Catch ex As FormatException + MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical) + End Try + Else + regval_txt_Absender_M.ForeColor = Drawing.Color.Red + regval_txt_Absender_M.ErrorMessage = "Der Absender ist nicht richtig formatiert." + End If + ElseIf txt_Empfaenger_M.Text IsNot "" Then + txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regval_txt_Empfaenger_M.Enabled = True + regval_txt_Empfaenger_M.Validate() + If regval_txt_Empfaenger_M.IsValid = True Then + Try + Empfaenger = txt_Empfaenger_M.Text + Catch ex As FormatException + MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical) + End Try + Else + regval_txt_Empfaenger_M.ForeColor = Drawing.Color.Red + regval_txt_Empfaenger_M.ErrorMessage = "Der Empfänger ist nicht richtig formatiert." + End If + ElseIf txt_KdNrAuftrag_M.Text IsNot "" Then + txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regval_txt_KdNrAuftrag_M.Enabled = True + regval_txt_KdNrAuftrag_M.Validate() + If regval_txt_KdNrAuftrag_M.IsValid = True Then + Try + wasmobile = True + KDNAFNR = txt_KdNrAuftrag_M.Text + Catch ex As FormatException + MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical) + End Try + Else + regval_txt_KdNrAuftrag_M.ForeColor = Drawing.Color.Red + regval_txt_KdNrAuftrag_M.ErrorMessage = "Die Kundennummer ist nicht richtig formatiert." + End If + ElseIf txt_LKWNr_M.Text IsNot "" Then + txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regexval_txt_LKWNr_M.Enabled = True + regexval_txt_LKWNr_M.Validate() + If regexval_txt_LKWNr_M.IsValid = True Then + Try + wasmobile = True + LKWNR = txt_LKWNr_M.Text + Catch ex As FormatException + MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical) + End Try + Else + regexval_txt_LKWNr_M.ForeColor = Drawing.Color.Red + regexval_txt_LKWNr_M.ErrorMessage = "Das LKW Kennzeichen ist nicht richtig formatiert." + End If + End If + If rbt_Alle.Checked = True Then + 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 + + datevon = Me.erster + datebis = Date.Parse(Now.ToShortDateString) + pickdate1.Text = Me.erster.ToUniversalTime.ToString("yyyy-MM-dd") + pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd") + dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(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, Integer.Parse(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.Checked = True Then + ckd = 2 + Session.Add("IDOFCKBOX", ckd.ToString) + dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR) + + 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 + datevon = Me.erster + datebis = Date.Parse(Now.ToShortDateString) + pickdate1.Text = Me.erster.ToUniversalTime.ToString("yyyy-MM-dd") + pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd") + pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString + dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(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, Integer.Parse(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.Checked = True Then + ckd = 4 + dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(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, Integer.Parse(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, Integer.Parse(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 + datevon = Me.erster + datebis = Date.Parse(Now.ToShortDateString) + pickdate1.Text = Me.erster.ToUniversalTime.ToString("yyyy-MM-dd") + pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd") + 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("Time ranges are not valid!", 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, Integer.Parse(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("The time ranges given are not valid!", MsgBoxStyle.Exclamation) + End Try + End If + ElseIf rbt_Erf_M.Checked = True Then + ckd = 8 + dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(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 + + datevon = Me.erster + datebis = Date.Parse(Now.ToShortDateString) + pickdate1.Text = Me.erster.ToUniversalTime.ToString("yyyy-MM-dd") + pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd") + dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(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, Integer.Parse(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("The time ranges given are not valid!", 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, Integer.Parse(Kdnrtext), {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR) + ElseIf rbt_Vorb_M.Checked = True Then + ckd = 11 + dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR) + ElseIf rbt_Vorg_M.Checked = True Then + ckd = 12 + dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR) + End If + addrows() Else