From f275e87e7e4f7621e380e70842043b59585415c2 Mon Sep 17 00:00:00 2001 From: ja Date: Mon, 20 Sep 2021 11:22:22 +0200 Subject: [PATCH] Designoptimierung --- Customers/CustomsAviso.aspx.vb | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index fbd0868..f1e8976 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/Customers/CustomsAviso.aspx.vb @@ -184,15 +184,12 @@ Partial Class Kundenbereich_Default End If If rbt_Alle.Selected = True Or rbt_Alle_M.Selected = True Then - Try - datevon = Date.Parse(pickdate1.Text) - datebis = Date.Parse(pickdate2.Text) - Catch ex As Exception - MsgBox(ex.StackTrace, MsgBoxStyle.Exclamation) - End Try - - + datevon = Date.Parse(pickdate1.Text) + datebis = Date.Parse(pickdate2.Text) + Catch ex As Exception + MsgBox(ex.StackTrace, MsgBoxStyle.Exclamation) + End Try dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0, 1, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR) ElseIf rbt_Erf.Selected = True Or rbt_Erf_M.Selected Then @@ -206,7 +203,6 @@ Partial Class Kundenbereich_Default Catch ex As Exception MsgBox(ex.StackTrace, MsgBoxStyle.Exclamation) End Try - dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR) ElseIf rbt_Ankunft.Selected = True Or rbt_Ankunft_M.Selected = True Then