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

Verbesserung der Einelesefunktion der Variamblen in dem Page_Load Event

Browse Source
This commit is contained in:
ja
2021-11-08 15:02:51 +01:00
parent 55a47bd45f
commit e0adc00d15
1 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Customers/pdfviewer.aspx.vb
View File

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