From 68a62f9ef0a677b50774b290aee9b223f9250e1b Mon Sep 17 00:00:00 2001 From: ja Date: Tue, 9 Nov 2021 14:29:20 +0100 Subject: [PATCH] =?UTF-8?q?=C3=84nderungen=20an=20Tabellengenerierungsable?= =?UTF-8?q?uf?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/CustomsAviso.aspx | 4 +- Customers/CustomsAviso.aspx.vb | 543 +++++++++++++++++--------------- Fehlermeldungen_Auflistung.xlsx | Bin 13190 -> 15795 bytes 3 files changed, 295 insertions(+), 252 deletions(-) diff --git a/Customers/CustomsAviso.aspx b/Customers/CustomsAviso.aspx index c6300cb..a335889 100644 --- a/Customers/CustomsAviso.aspx +++ b/Customers/CustomsAviso.aspx @@ -53,7 +53,7 @@ VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW 'Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(799124) Dim VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL - ' MsgBox(VERAGSQL.GetADMINConnectionString()) + 'MsgBox(VERAGSQL.GetADMINConnectionString()) 'Response.Write(AD.Ordnungsbegriff) Dim STANDORT = "SUB" If (Request.QueryString.Count > 0) AndAlso (Request.QueryString("STANDORT") IsNot Nothing) Then @@ -202,7 +202,7 @@
- + Index-Nr LKW-Nr diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index 1cd3607..a35b85f 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/Customers/CustomsAviso.aspx.vb @@ -18,265 +18,271 @@ Partial Class CustomsAviso Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms If Me.Page.User.Identity.IsAuthenticated Then - Try - Kdnrtext = Session.Item("CustomerID") - 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 + If Me.Page.User.Identity.Name = "userwithlongername" Or Me.Page.User.Identity.Name = "test" Then + Try + Kdnrtext = Session.Item("CustomerID") + 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 - DataBind() + DataBind() - 'Script für Schließen wirklich verlassen Meldung auf der Masterseite für diese Seite zu registrieren und nicht ueberall - Dim csm1 As ClientScriptManager = Page.ClientScript - Dim cstype As Type = Page.GetType - If Not csm1.IsStartupScriptRegistered(cstype, "Startup") Then - Dim string1 As String = "