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

Daten kommen an um weitere nützliche Paramater ergänzt

Browse Source
This commit is contained in:
ja
2022-01-14 11:45:52 +01:00
parent 14bf8a50ae
commit 12141ac2f7
2 changed files with 1354 additions and 1277 deletions
Download Patch File Download Diff File Expand all files Collapse all files

82
Customers/LKWs.aspx.vb
View File

@@ -437,11 +437,87 @@ Partial Class LKWS
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
For Each l2 In list2
Dim strtemp2 As String = String.Empty
Dim strtempKat As String = String.Empty
Dim strtempKaut As String = String.Empty
Dim strtempArchivt As String = String.Empty
Dim strtempBelegNr As String = String.Empty
Dim strtempErsatzkarte As String = String.Empty
Dim strtempDefektAm As String = String.Empty
Dim strtempFahrer As String = String.Empty
Dim strtempGesperrtAm As String = String.Empty
Dim strtempHistory As String = String.Empty
Dim strtempHasEntry As String = String.Empty
Dim strtempFlottenPIN As String = String.Empty
Dim strtempFREJUS_CARD_Nr As String = String.Empty
Dim strtempGestohlenAm As String = String.Empty
Dim strtempKartenNr As String = String.Empty
Dim strtempGueltigBis As String = String.Empty
If IsNothing(l2.Kategorie) = False Then
strtemp2 = l2.Kategorie.ToString
strtempKat = l2.Kategorie.ToString
End If
Dim Entrytemp As New Entry(l2.SDLNr.ToString, strtemp2, l2.GültigBis.ToString, l2.KartenNr.ToString)
If IsNothing(l2.Kaution) = False Then
strtempKat = l2.Kaution.ToString
End If
If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString
End If
If IsNothing(l2.BelegNr) = False Then
strtempBelegNr = l2.BelegNr.ToString
End If
If IsNothing(l2.Ersatzkarte) = False Then
strtempErsatzkarte = l2.Ersatzkarte.ToString
End If
If IsNothing(l2.DefektAm) = False Then
strtempDefektAm = l2.DefektAm.ToString
End If
If IsNothing(l2.Fahrer) = False Then
strtempFahrer = l2.Fahrer.ToString
End If
If IsNothing(l2.GesperrtAm) = False Then
strtempGesperrtAm = l2.GesperrtAm.ToString
End If
If IsNothing(l2.History) = False Then
strtempHistory = l2.History.ToString
End If
If IsNothing(l2.hasentry) = False Then
strtempHasEntry = l2.hasentry.ToString
End If
If IsNothing(l2.FlottenPIN) = False Then
strtempFlottenPIN = l2.FlottenPIN.ToString
End If
If IsNothing(l2.FREJUS_CARD_Nr) = False Then
strtempFREJUS_CARD_Nr = l2.FREJUS_CARD_Nr.ToString
End If
If IsNothing(l2.GestohlenAm) = False Then
strtempGestohlenAm = l2.GestohlenAm.ToString
End If
If IsNothing(l2.hasentry) = False Then
strtempGueltigBis = l2.GültigBis.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.hasentry) = False Then
strtempHasEntry = l2.hasentry.ToString
End If
If IsNothing(l2.hasentry) = False Then
strtempHasEntry = l2.hasentry.ToString
End If
If IsNothing(l2.hasentry) = False Then
strtempHasEntry = l2.hasentry.ToString
End If
If IsNothing(l2.hasentry) = False Then
strtempHasEntry = l2.hasentry.ToString
End If
If IsNothing(l2.hasentry) = False Then
strtempHasEntry = l2.hasentry.ToString
End If
If IsNothing(l2.hasentry) = False Then
strtempHasEntry = l2.hasentry.ToString
End If
Dim Entrytemp As New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr)
list.Add(Entrytemp)
Next
Return list