From 6482d90e88a23d45d39467a45910e5c40bae2f03 Mon Sep 17 00:00:00 2001 From: ja Date: Thu, 16 Sep 2021 16:52:38 +0200 Subject: [PATCH] =?UTF-8?q?Updatepanel=20wurde=20in=20den=20Conditional=20?= =?UTF-8?q?Mode=20gesetzt=20und=20das=20Design=20wurde=20auch=20eigentlich?= =?UTF-8?q?=20aktualisiert,=20sodass=20=20die=20leeren,=20bzw=20nicht=20ge?= =?UTF-8?q?w=C3=A4hlten=20Felder=20rot=20angezeigt=20werden=3F=3F=20Warum?= =?UTF-8?q?=20passiert=20das=20nicht=3F=3F=20.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/CustomsAviso.aspx | 5 ++--- Customers/CustomsAviso.aspx.vb | 17 ++++++++++------- 2 files changed, 12 insertions(+), 10 deletions(-) diff --git a/Customers/CustomsAviso.aspx b/Customers/CustomsAviso.aspx index 8e073f0..aa591fd 100644 --- a/Customers/CustomsAviso.aspx +++ b/Customers/CustomsAviso.aspx @@ -34,7 +34,7 @@ - +
@@ -72,8 +72,7 @@

Auftrags-Suche

-
- +
Filter zurücksetzen
diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index a181efd..9ef202d 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/Customers/CustomsAviso.aspx.vb @@ -60,14 +60,15 @@ Partial Class Kundenbereich_Default 'Dim tr If rbt_Alle.Selected = True Then - If pickdate1.Text = "TT.MM.JJJJ" And pickdate2.Text = "TT.MM.JJJJ" Then + If pickdate1.Text = Nothing AndAlso pickdate2.Text = Nothing Then MsgBox("Bitte ein Datum auswählen!", MsgBoxStyle.Information, "Information!") - pickdate1.Text = Date.ParseExact("01" + "-" + Date.Now.Month.ToString + "-" + Date.Now.Year.ToString, "dd-MM-yyyy", Nothing).ToString - pickdate2.Text = Date.ParseExact(Date.Now.Day.ToString + "-" + Date.Now.Month.ToString + "-" + Date.Now.Year.ToString, "dd-MM-yyyy", Nothing).ToString - End If - - If Date.Parse(pickdate2.Text) > Date.Parse(pickdate1.Text) Then + pickdate1.BackColor = Drawing.Color.Aqua + pickdate2.BackColor = Drawing.Color.Aqua + lbl_von.BackColor = Drawing.Color.Red + lbl_bis.BackColor = Drawing.Color.Red + Else + If Date.Parse(pickdate2.Text) > Date.Parse(pickdate1.Text) Then Try datevon = Date.Parse(pickdate1.Text) datebis = Date.Parse(pickdate2.Text) @@ -75,8 +76,10 @@ Partial Class Kundenbereich_Default MsgBox(ex.StackTrace, MsgBoxStyle.Exclamation) End Try End If + Return + End If - dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR) + dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR) ElseIf rbt_Erf.Selected = True Then dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0},,, Absender, Empfaenger, LKWNR, KDNAFNR)