edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Änderungen Implementierung Fehlernummern-System in jeder Seite

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

2
Customers/Customers.master
View File

@@ -31,7 +31,7 @@
If Not Me.Page.User.Identity.IsAuthenticated Then
FormsAuthentication.RedirectToLoginPage()
End If
VERAG_VARIABLES.initerrorcount()
' MsgBox ("test")
'Dim con As New MySqlConnection
'Dim cmd As New MySqlCommand

1
Customers/CustomsAviso.aspx.vb
View File

@@ -17,6 +17,7 @@ Partial Class CustomsAviso
Dim wasmobile As Boolean = True
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms
VERAG_VARIABLES.initerrorcount()
If Me.Page.User.Identity.IsAuthenticated Then
If Me.Page.User.Identity.Name = "userwithlongername" Or Me.Page.User.Identity.Name = "test" Then

3
Customers/Default.aspx.vb
View File

@@ -3,6 +3,7 @@ Partial Class Customers_Default
Inherits System.Web.UI.Page
Dim Kdnrtext As String = String.Empty
Protected Sub Page_Load(sender As Object, e As EventArgs)
If Me.Page.User.Identity.IsAuthenticated And String.Equals(Me.Page.User.Identity.Name, "Admin") = True Then
Try
Kdnrtext = Session.Item("CustomerID")
@@ -14,8 +15,10 @@ Partial Class Customers_Default
End If
If Page.IsPostBack = True Then
Page.MaintainScrollPositionOnPostBack = True
VERAG_VARIABLES.initerrorcount()
Else
Page.MaintainScrollPositionOnPostBack = False
VERAG_VARIABLES.initerrorcount()
End If
End Sub

2
Customers/Default2.aspx.vb
View File

@@ -3,8 +3,10 @@ Partial Class Customers_Default2
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, e As EventArgs)
If Page.IsPostBack Then
Page.MaintainScrollPositionOnPostBack = True
VERAG_VARIABLES.initerrorcount()
Else
Page.MaintainScrollPositionOnPostBack = False
VERAG_VARIABLES.initerrorcount()
End If
End Sub

2
Customers/Invoices.aspx.vb
View File

@@ -21,6 +21,8 @@ Partial Class Customers_Default3
Dim provider As CultureInfo = CultureInfo.InvariantCulture
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
VERAG_VARIABLES.initerrorcount()
If Not Me.Page.User.Identity.IsAuthenticated Then
FormsAuthentication.RedirectToLoginPage()
Else

1
Customers/LKWs.aspx.vb
View File

@@ -3,6 +3,7 @@ Partial Class LKWS
Inherits System.Web.UI.Page
Dim Kdnrtext As String = String.Empty
Protected Sub Page_Load(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")

6
Customers/Welcome.aspx.vb
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

1
Customers/pdfviewer.aspx.vb
View File

@@ -6,6 +6,7 @@ Partial Class Customers_Default3
Dim Abfertigungsnummer As String = String.Empty
Dim RK_ID As String = String.Empty
Protected Sub Page_Load(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")