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

Berichtigung Abfrage Querystrings

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

15
Customers/SDL/Formtemplate MAN Abgaspalette.aspx.vb
View File

@@ -3,17 +3,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
@@ -100,7 +99,8 @@ Partial Class Customers_Default3
list.Add(strtempbestelltam)
list.Add(strtempLieferdatum)
list.Add(strtempVermerk)
If String.Equals(strtempArchivt, "False") Then
list.Add(l2.KfzKennzeichen)
If String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails.Add(list)
End If
Next
@@ -142,7 +142,8 @@ Partial Class Customers_Default3
list_M.Add(strtempLieferdatum)
list_M.Add(strtempVermerk)
list_M.Add(strtempArchivt)
If String.Equals(strtempArchivt, "False") Then
list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M)
End If
Next