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