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 = "