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)