edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Änderungen codedesign Codebehind CustomsAvisoaspx

Browse Source
This commit is contained in:
ja
2021-11-04 14:12:06 +01:00
parent 6edd778e6b
commit eecc6320a2
1 changed files with 0 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Customers/CustomsAviso.aspx.vb
View File

@@ -538,7 +538,6 @@ Partial Class CustomsAviso
datevon = Nothing datevon = Nothing
datebis = Nothing datebis = Nothing
dt = Nothing dt = Nothing
'txt_KdNr.Focus()
End Sub End Sub
Protected Sub pickdate1_TextChanged(sender As Object, e As EventArgs) 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 minDate As DateTime = DateTime.Parse("01.04.2001")
Dim maxDate As DateTime = DateTime.Parse(DateTime.Now.ToShortDateString) Dim maxDate As DateTime = DateTime.Parse(DateTime.Now.ToShortDateString)
Dim dt As DateTime Dim dt As DateTime
args.IsValid = (DateTime.TryParse(args.Value, dt) AndAlso args.IsValid = (DateTime.TryParse(args.Value, dt) AndAlso
dt <= maxDate AndAlso dt <= maxDate AndAlso
dt >= minDate) dt >= minDate)
@@ -561,7 +559,6 @@ Partial Class CustomsAviso
Dim minDate As DateTime = DateTime.Parse("01." + Date.Now.Month.ToString + ".2001") Dim minDate As DateTime = DateTime.Parse("01." + Date.Now.Month.ToString + ".2001")
Dim maxDate As DateTime = DateTime.Parse(DateTime.Now.ToShortDateString) Dim maxDate As DateTime = DateTime.Parse(DateTime.Now.ToShortDateString)
Dim dt As DateTime Dim dt As DateTime
args.IsValid = (DateTime.TryParse(args.Value, dt) AndAlso args.IsValid = (DateTime.TryParse(args.Value, dt) AndAlso
dt <= maxDate AndAlso dt <= maxDate AndAlso
dt >= minDate) And dt < Date.Now.AddDays(-1) dt >= minDate) And dt < Date.Now.AddDays(-1)