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

Abfrageanpassungen der JSON abfragen und sendungen

Browse Source
This commit is contained in:
ja
2022-02-03 13:38:50 +01:00
parent 6aec0d8ab7
commit 0ddb1fcbb5
20 changed files with 4628 additions and 4222 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Customers/LKWs.aspx.vb
View File

@@ -601,16 +601,17 @@ Partial Class LKWS
strtempKartenNr = l2.KartenNr.ToString
End If
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
Dim Entrytemp As New List(Of String)
Entrytemp.Add(l2.SDLNr.ToString)
Entrytemp.Add(strtempKat)
Entrytemp.Add(strtempGueltigBis)
Entrytemp.Add(strtempKartenNr)
Entrytemp.Add(l2.KfzKennzeichen)
Entrytemp.Add(l2.KundenNr.ToString)
Entrytemp.Add(l2.History.ToString)
Entrytemp.Add(finalstr)
Entrytemp.Add(finalstrKundNr)
Entrytemp.Add(finalSDLNrstr)
Entrytemp.Add(finalhistory)
container.Add(Entrytemp)
End If
Next
@@ -654,11 +655,6 @@ Partial Class LKWS
Entrytemp.Add(strtempKat)
Entrytemp.Add(strtempGueltigBis)
Entrytemp.Add(strtempKartenNr)
Entrytemp.Add(l2.KfzKennzeichen)
Entrytemp.Add(l2.KundenNr.ToString)
Entrytemp.Add(l2.History.ToString)
container.Add(Entrytemp)
End If
Next