Datumprüfung

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))

Web.config

@@ -27,7 +27,7 @@
     <authentication mode="Forms">
       <forms defaultUrl="admin/admin.aspx" loginUrl="login/Login_FLEX.aspx" slidingExpiration="true" timeout="2880" />
     </authentication>
-	  <sessionState mode="InProc" timeout="2880" cookieless="AutoDetect" regenerateExpiredSessionId="false" compressionEnabled="true"></sessionState>
+	  <sessionState mode="InProc" timeout="2880" cookieless="AutoDetect" regenerateExpiredSessionId="false" compressionEnabled="true" ></sessionState>
     <httpRuntime requestValidationMode="2.0" />
     <pages validateRequest="false" controlRenderingCompatibilityVersion="4.0" />
     <!--<securityPolicy>