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

Tabelle fast erzeugt

Browse Source
This commit is contained in:
ja
2022-02-03 16:05:52 +01:00
parent b6cf9e42fd
commit b7ae3ae1b4
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Customers/LKWs.aspx.vb
View File

@@ -602,8 +602,8 @@ Partial Class LKWS
End If End If
If String.Equals(finalSDLNrstr, l2.SDLNr.ToString) = True AndAlso String.Equals(finalstr, l2.KfzKennzeichen.ToString) = True AndAlso String.Equals(finalstrKundNr, l2.KundenNr.ToString) = True AndAlso String.Equals(finalhistory, l2.History.ToString) = True Then ' If String.Equals(finalSDLNrstr, l2.SDLNr.ToString) = True AndAlso String.Equals(finalstr, l2.KfzKennzeichen.ToString) = True AndAlso String.Equals(finalstrKundNr, l2.KundenNr.ToString) = True Then
Dim Entrytemp As New List(Of String) Dim Entrytemp As New List(Of String)
Entrytemp.Add(l2.SDLNr.ToString) Entrytemp.Add(l2.SDLNr.ToString)
Entrytemp.Add(strtempKat) Entrytemp.Add(strtempKat)
Entrytemp.Add(strtempGueltigBis) Entrytemp.Add(strtempGueltigBis)
@@ -613,7 +613,7 @@ Partial Class LKWS
Entrytemp.Add(finalSDLNrstr) Entrytemp.Add(finalSDLNrstr)
Entrytemp.Add(finalhistory) Entrytemp.Add(finalhistory)
container.Add(Entrytemp) container.Add(Entrytemp)
End If ' End If
Next Next
HttpContext.Current.Response.ContentType = "application/json" HttpContext.Current.Response.ContentType = "application/json"
@@ -650,13 +650,13 @@ Partial Class LKWS
End If End If
Dim Entrytemp As New List(Of String) Dim Entrytemp As New List(Of String)
If String.Equals(finalSDLNrstr, l2.SDLNr.ToString) = True AndAlso String.Equals(finalstr, l2.KfzKennzeichen.ToString) = True AndAlso String.Equals(finalstrKundNr, l2.KundenNr.ToString) = True AndAlso String.Equals(finalhistory, l2.History.ToString) = True Then 'If String.Equals(finalSDLNrstr, l2.SDLNr.ToString) = True AndAlso String.Equals(finalstr, l2.KfzKennzeichen.ToString) = True AndAlso String.Equals(finalstrKundNr, l2.KundenNr.ToString) = True Then
Entrytemp.Add(l2.SDLNr.ToString) Entrytemp.Add(l2.SDLNr.ToString)
Entrytemp.Add(strtempKat) Entrytemp.Add(strtempKat)
Entrytemp.Add(strtempGueltigBis) Entrytemp.Add(strtempGueltigBis)
Entrytemp.Add(strtempKartenNr) Entrytemp.Add(strtempKartenNr)
container.Add(Entrytemp) container.Add(Entrytemp)
End If ' End If
Next Next
HttpContext.Current.Response.ContentType = "application/json" HttpContext.Current.Response.ContentType = "application/json"