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

Customers/LKWs.aspx.vb

@@ -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