Änderung GUI-Messages bei fehlern mit Zeiträumen

This commit is contained in:
ja
2021-10-29 16:40:00 +02:00
parent cd960f46a1
commit 9d1d8313a5

View File

@@ -293,15 +293,15 @@ Partial Class Customers_Invoices
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
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
lbl_status.Text = "Die Zeitzonen sind nicht gültig!"
End Try
lbl_status.Text = "Der gewählte Von-Zeitpunkt ist nicht gültig!"
End Try
Else
Try
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
lbl_status.Text = "Die Zeitzonen sind nicht gültig!"
End Try
lbl_status.Text = "Der gewählte Bis-Zeitpunkt ist nicht gültig!"
End Try
End If
'lbl_status.Text = Kdnrtext