Verbesserung der Einelesefunktion der Variamblen in dem Page_Load Event

This commit is contained in:
ja
2021-11-08 15:02:51 +01:00
parent 55a47bd45f
commit e0adc00d15

View File

@@ -2,13 +2,16 @@
Partial Class Customers_Default3
Inherits System.Web.UI.Page
Dim Kdnrtext As String = String.Empty
Dim Filialennumnmer As String = String.Empty
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
If Me.Page.User.Identity.IsAuthenticated Then
Try
Kdnrtext = Session.Item("CustomerID")
Dim Filialennumnmer As String = Request.QueryString.Get("P1")
Dim Abfertigungsnummer As String = Request.QueryString.Get("P2")
Dim RKID As String = Request.QueryString.Get("P3")
Filialennumnmer = Request.QueryString.Get("P1")
Abfertigungsnummer = Request.QueryString.Get("P2")
RK_ID = Request.QueryString.Get("P3")
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
@@ -17,10 +20,11 @@ Partial Class Customers_Default3
End If
If Page.IsPostBack = True Then
Page.MaintainScrollPositionOnPostBack = True
Else
Page.MaintainScrollPositionOnPostBack = False
End If
If String.IsNullOrEmpty(Filialennumnmer) = True AndAlso String.IsNullOrEmpty(Abfertigungsnummer) = True AndAlso String.IsNullOrEmpty(RK_ID) = True AndAlso String.IsNullOrEmpty(Kdnrtext) = True Then
End If
End If
End Sub
End Class