Änderungen Implementierung Fehlernummern-System in jeder Seite

This commit is contained in:
ja
2021-11-17 13:19:35 +01:00
parent 2d4c767460
commit 22e7360f80
21 changed files with 110 additions and 4 deletions

View File

@@ -3,9 +3,15 @@ Partial Class Welcome
Inherits System.Web.UI.Page
Dim Kdnrtext As String = String.Empty
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
VERAG_VARIABLES.initerrorcount()
If Me.Page.User.Identity.IsAuthenticated Then
Try
Kdnrtext = Session.Item("CustomerID")
If Page.IsPostBack Then
Page.MaintainScrollPositionOnPostBack = True
Else
Page.MaintainScrollPositionOnPostBack = False
End If
Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Kdnrtext)
MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
End Try