From 22e7360f8086991ff8f0e8dbf349cea88699c9e6 Mon Sep 17 00:00:00 2001 From: ja Date: Wed, 17 Nov 2021 13:19:35 +0100 Subject: [PATCH] =?UTF-8?q?=C3=84nderungen=20Implementierung=20Fehlernumme?= =?UTF-8?q?rn-System=20in=20jeder=20Seite?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- AvisoTV_FLEX.aspx.vb | 8 ++++++++ Customers/Customers.master | 2 +- Customers/CustomsAviso.aspx.vb | 1 + Customers/Default.aspx.vb | 3 +++ Customers/Default2.aspx.vb | 2 ++ Customers/Invoices.aspx.vb | 2 ++ Customers/LKWs.aspx.vb | 1 + Customers/Welcome.aspx.vb | 6 ++++++ Customers/pdfviewer.aspx.vb | 1 + DownloadsJulius.aspx.vb | 3 +++ InfoPanel.aspx.vb | 7 ++++++- index_TEST.aspx | 6 ++++++ login/CreateUser.aspx.vb | 8 ++++++++ login/ForgotPW.aspx.vb | 9 ++++++++- login/Loggedin.aspx.vb | 6 ++++++ login/login_FLEX.aspx.vb | 7 ++++++- login/login_TEST.aspx.vb | 8 ++++++++ newpageJulius.aspx.vb | 8 ++++++++ newpageJulius_Sidebar.aspx.vb | 11 +++++++++++ sendFeedback.aspx.vb | 8 ++++++++ status_Julius.aspx | 7 +++++++ 21 files changed, 110 insertions(+), 4 deletions(-) diff --git a/AvisoTV_FLEX.aspx.vb b/AvisoTV_FLEX.aspx.vb index 4c4e42d..689bf00 100644 --- a/AvisoTV_FLEX.aspx.vb +++ b/AvisoTV_FLEX.aspx.vb @@ -2,7 +2,15 @@ Partial Class _Default Inherits System.Web.UI.Page + Protected Sub Page_Load(ByVal sender As Object, e As EventArgs) Handles Me.Load + VERAG_VARIABLES.initerrorcount() + If Page.IsPostBack = True Then + Page.MaintainScrollPositionOnPostBack = True + Else + Page.MaintainScrollPositionOnPostBack = False + End If + End Sub Sub test() diff --git a/Customers/Customers.master b/Customers/Customers.master index 6fdc47d..32467b9 100644 --- a/Customers/Customers.master +++ b/Customers/Customers.master @@ -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 diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index b9eb07f..cfc54b1 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/Customers/CustomsAviso.aspx.vb @@ -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 diff --git a/Customers/Default.aspx.vb b/Customers/Default.aspx.vb index 53b4bd6..642ca19 100644 --- a/Customers/Default.aspx.vb +++ b/Customers/Default.aspx.vb @@ -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 diff --git a/Customers/Default2.aspx.vb b/Customers/Default2.aspx.vb index 990ecc3..73204c5 100644 --- a/Customers/Default2.aspx.vb +++ b/Customers/Default2.aspx.vb @@ -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 diff --git a/Customers/Invoices.aspx.vb b/Customers/Invoices.aspx.vb index f14a658..bc1b684 100644 --- a/Customers/Invoices.aspx.vb +++ b/Customers/Invoices.aspx.vb @@ -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 diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb index ca11f56..ae4cf5e 100644 --- a/Customers/LKWs.aspx.vb +++ b/Customers/LKWs.aspx.vb @@ -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") diff --git a/Customers/Welcome.aspx.vb b/Customers/Welcome.aspx.vb index a00aea5..64dac47 100644 --- a/Customers/Welcome.aspx.vb +++ b/Customers/Welcome.aspx.vb @@ -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 diff --git a/Customers/pdfviewer.aspx.vb b/Customers/pdfviewer.aspx.vb index efc3f64..e97b683 100644 --- a/Customers/pdfviewer.aspx.vb +++ b/Customers/pdfviewer.aspx.vb @@ -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") diff --git a/DownloadsJulius.aspx.vb b/DownloadsJulius.aspx.vb index 4c3e0cb..4456dc3 100644 --- a/DownloadsJulius.aspx.vb +++ b/DownloadsJulius.aspx.vb @@ -7,6 +7,7 @@ Partial Class DownloadsJulius Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then + Page.MaintainScrollPositionOnPostBack = True Dim filePaths As String() = Directory.GetFiles(Server.MapPath("~/downloads/")) Dim files As New List(Of ListItem)() @@ -15,6 +16,8 @@ Partial Class DownloadsJulius Next GridView1.DataSource = files GridView1.DataBind() + Else + Page.MaintainScrollPositionOnPostBack = False End If End Sub diff --git a/InfoPanel.aspx.vb b/InfoPanel.aspx.vb index 515aeb7..a896c21 100644 --- a/InfoPanel.aspx.vb +++ b/InfoPanel.aspx.vb @@ -3,7 +3,12 @@ Partial Class js_InfoPanel Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load BackButton.Attributes.Add("onClick", "javascript:history.back(); return false;") - + VERAG_VARIABLES.initerrorcount() + If Page.IsPostBack = True Then + Page.MaintainScrollPositionOnPostBack = True + Else + Page.MaintainScrollPositionOnPostBack = False + End If 'Progress bar updateProgBar(10) 'Label4.Attributes.CssStyle.Add("font-weight", " bolder") diff --git a/index_TEST.aspx b/index_TEST.aspx index 3c75473..d4c877f 100644 --- a/index_TEST.aspx +++ b/index_TEST.aspx @@ -8,7 +8,13 @@