diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index 993a8e2..683e3d8 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -155,33 +155,68 @@ Partial Class Kundenbereich_Default
'MsgBox(Session.Item("test").ToString)
'MsgBox(Session.Item("CustomerID").ToString)
'MsgBox(Session.Item("PW").ToString)
- Kdnrtext = Session.Item("CustomerID").ToString
-
+ Try
+ Kdnrtext = Session.Item("CustomerID").ToString
+ Catch A As UnauthorizedAccessException When Kdnrtext = Nothing
+ MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID augetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
+ End Try
dt = Nothing
If txt_Absender.Text IsNot "" Then
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
- Absender = txt_Absender.Text
+ Try
+ Absender = txt_Absender.Text
+ Catch ex As FormatException
+ MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
+ End Try
ElseIf txt_Empfaenger.Text IsNot "" Then
txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
- Empfaenger = txt_Empfaenger.Text
+ Try
+ Empfaenger = txt_Empfaenger.Text
+ Catch ex As FormatException
+ MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
+ End Try
ElseIf txt_KdNrAuftrag.Text IsNot "" Then
txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
- KDNAFNR = txt_KdNrAuftrag.Text
+ Try
+ KDNAFNR = txt_KdNrAuftrag.Text
+ Catch ex As FormatException
+ MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
+ End Try
ElseIf txt_LKWNr.Text IsNot "" Then
txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
- LKWNR = txt_LKWNr.Text
+ Try
+ LKWNR = txt_LKWNr.Text
+ Catch ex As FormatException
+ MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
+ End Try
ElseIf txt_Absender_M.Text IsNot "" Then
txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
- Absender = txt_Absender_M.Text
+ Try
+ Absender = txt_Absender_M.Text
+ Catch ex As FormatException
+ MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
+ End Try
ElseIf txt_Empfaenger_M.Text IsNot "" Then
txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
- Empfaenger = txt_Empfaenger_M.Text
+ Try
+ Empfaenger = txt_Empfaenger_M.Text
+ Catch ex As FormatException
+ MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
+ End Try
ElseIf txt_KdNrAuftrag_M.Text IsNot "" Then
txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
- KDNAFNR = txt_KdNrAuftrag_M.Text
+ Try
+ KDNAFNR = txt_KdNrAuftrag_M.Text
+ Catch ex As FormatException
+ MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
+ End Try
ElseIf txt_LKWNr_M.Text IsNot "" Then
txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
- LKWNR = txt_LKWNr_M.Text
+ Try
+ LKWNR = txt_LKWNr_M.Text
+ Catch ex As FormatException
+ MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
+ End Try
End If
If rbt_Alle.Selected = True Or rbt_Alle_M.Selected = True Then
@@ -189,13 +224,17 @@ Partial Class Kundenbereich_Default
pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Server.HtmlEncode(Art), Server.HtmlEncode(Kdnrtext), {0, 1, 2, 3, 4, 5}, datevon, datebis, Server.HtmlEncode(Absender), Server.HtmlEncode(Empfaenger), Server.HtmlEncode(LKWNR), Server.HtmlEncode(KDNAFNR))
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
- Dim erster = New Date(Now().Year, Now().Month, 1)
- Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
- ' MsgBox(ersterdat)
- datevon = ersterdat
- pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
- 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
+ Try
+ Dim erster = New Date(Now().Year, Now().Month, 1)
+ Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
+ ' MsgBox(ersterdat)
+ datevon = ersterdat
+ pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
+ 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 < New Date.ParseExact("2001", "YYYY", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > New Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
+ MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
+ End Try
Else
Try
datevon = Date.Parse(Server.HtmlEncode(pickdate1.Text))
diff --git a/Web.config b/Web.config
index e2f3e85..4717494 100644
--- a/Web.config
+++ b/Web.config
@@ -27,7 +27,7 @@
-
+