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

Das Datun wird überall geprüft.

Browse Source
This commit is contained in:
ja
2021-09-22 14:06:12 +02:00
parent 8538d9a791
commit 02ccfa9110
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Customers/CustomsAviso.aspx.vb
View File

@@ -237,10 +237,10 @@ Partial Class Kundenbereich_Default
End Try
Else
Try
datevon = Date.Parse(Server.HtmlEncode(pickdate1.Text))
datebis = Date.Parse(Server.HtmlEncode(pickdate2.Text))
Catch ex As Exception
MsgBox(ex.StackTrace, MsgBoxStyle.Exclamation)
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
End Try
End If
ElseIf rbt_Erf.Selected = True Or rbt_Erf_M.Selected = True Then
@@ -258,13 +258,13 @@ Partial Class Kundenbereich_Default
pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
Else
Try
datevon = Date.Parse(Server.HtmlEncode(pickdate1.Text))
datevon = Date.Parse(pickdate1.Text)
'MsgBox(pickdate1.Text)
datebis = Date.Parse(Server.HtmlEncode(pickdate2.Text))
datebis = Date.Parse(pickdate2.Text)
' MsgBox(pickdate2.Text)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Server.HtmlEncode(Art), Server.HtmlEncode(Kdnrtext), {1}, datevon, datebis, Server.HtmlEncode(Absender), Server.HtmlEncode(Empfaenger), Server.HtmlEncode(LKWNR), Server.HtmlEncode(KDNAFNR))
Catch ex As Exception
MsgBox(ex.StackTrace, MsgBoxStyle.Exclamation)
Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
End Try
End If
ElseIf rbt_Ankunft.Selected = True Or rbt_Ankunft_M.Selected = True Then