From eecc6320a2c58efd195ab32de3315b333ff97c07 Mon Sep 17 00:00:00 2001 From: ja Date: Thu, 4 Nov 2021 14:12:06 +0100 Subject: [PATCH] =?UTF-8?q?=C3=84nderungen=20codedesign=20Codebehind=20Cus?= =?UTF-8?q?tomsAvisoaspx?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/CustomsAviso.aspx.vb | 3 --- 1 file changed, 3 deletions(-) diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index 5311e0d..5e873f8 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/Customers/CustomsAviso.aspx.vb @@ -538,7 +538,6 @@ Partial Class CustomsAviso datevon = Nothing datebis = Nothing dt = Nothing - 'txt_KdNr.Focus() End Sub Protected Sub pickdate1_TextChanged(sender As Object, e As EventArgs) @@ -552,7 +551,6 @@ Partial Class CustomsAviso Dim minDate As DateTime = DateTime.Parse("01.04.2001") Dim maxDate As DateTime = DateTime.Parse(DateTime.Now.ToShortDateString) Dim dt As DateTime - args.IsValid = (DateTime.TryParse(args.Value, dt) AndAlso dt <= maxDate AndAlso dt >= minDate) @@ -561,7 +559,6 @@ Partial Class CustomsAviso Dim minDate As DateTime = DateTime.Parse("01." + Date.Now.Month.ToString + ".2001") Dim maxDate As DateTime = DateTime.Parse(DateTime.Now.ToShortDateString) Dim dt As DateTime - args.IsValid = (DateTime.TryParse(args.Value, dt) AndAlso dt <= maxDate AndAlso dt >= minDate) And dt < Date.Now.AddDays(-1)