Änderungen codedesign Codebehind CustomsAvisoaspx

This commit is contained in:
ja
2021-11-04 14:12:06 +01:00
parent 6edd778e6b
commit eecc6320a2

View File

@@ -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)