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

13
Customers/SDL/MAUT/Formtemplate HU_HUGO.aspx.vb
View File

@@ -5,15 +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
@@ -76,6 +77,7 @@ Partial Class Customers_Default3
Dim list As List(Of String) = New List(Of String)
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
Dim strtempbestelltam As String = String.Empty
Dim strtempKartenNr As String = String.Empty
@@ -132,7 +134,7 @@ Partial Class Customers_Default3
list.Add(strtempVermerk)
list.Add(strtempRetourniert)
list.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") And String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") Then
If String.Equals(strtempVerloren, "False") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") And String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") AndAlso l2.KartenNr = CardNr Then
listdetails.Add(list)
End If
Next
@@ -204,7 +206,8 @@ Partial Class Customers_Default3
list_M.Add(strtempOBUID)
list_M.Add(strtempVermerk)
list_M.Add(strtempRetourniert)
If String.Equals(strtempVerloren, "False") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") And String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") Then
list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") And String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M)
End If
Next