Berichtigung Abfrage Querystrings

This commit is contained in:
ja
2022-01-28 10:33:23 +01:00
parent 66cb3b8388
commit 7b6c2a2ce1
39 changed files with 3592 additions and 3349 deletions

View File

@@ -5,17 +5,16 @@ Imports System.Web.Services
Partial Class Customers_Default3
Inherits System.Web.UI.Page
Shared Kdnrtext As String = String.Empty
Shared CardNr As String = String.Empty
Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load
Kdnrtext = Request.QueryString("CustomerID").ToString
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
Kdnrtext = Request.QueryString("CustomerID").ToString
End If
CardNr = Request.QueryString("CardNo").ToString
If Page.IsPostBack = True Then
Kdnrtext = Request.QueryString("CustomerID").ToString
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
Kdnrtext = Request.QueryString("CustomerID").ToString
CardNr = Request.QueryString("CardNo").ToString
End If
Page.MaintainScrollPositionOnPostBack = True
Else
@@ -128,6 +127,7 @@ Partial Class Customers_Default3
list.Add(strtempKartNr)
list.Add(strtempVermerk)
list.Add(strtempRetourniert)
list.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then
listdetails.Add(list)
End If
@@ -195,6 +195,7 @@ Partial Class Customers_Default3
list_M.Add(strtempKartNr)
list_M.Add(strtempVermerk)
list_M.Add(strtempRetourniert)
list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then
listdetails_M.Add(list_M)
End If