Änderung dass nach Kartennummern sortiert wird und die Dropdown-Detail-Panels sich dementsprechend aufbauen.

Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb

@@ -73,63 +73,65 @@ Partial Class Customers_Default3
 
     <WebMethod>
     <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
-    Public Shared Function filltabledetails(Kennzeichen As String) As FormattedList
+    Public Shared Function filltabledetails(Kennzeichen As String, CardNumber As String) As FormattedList
         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 strtempLieferdatum As String = String.Empty
-            Dim strtempKartNr As String = String.Empty
-            Dim strtempVermerk As String = String.Empty
-            Dim strtempRetourniert As String = String.Empty
-            Dim strtempVerloren As String = String.Empty
-            Dim strtempGestohlen As String = String.Empty
-            Dim strtempGesperrt As String = String.Empty
-            Dim strtempDefekt As String = String.Empty
-            Dim strtempArchivt As String = String.Empty
+            If l2.KartenNr = CardNumber Then
+                Dim strtempbestelltam As String = String.Empty
+                Dim strtempLieferdatum As String = String.Empty
+                Dim strtempKartNr As String = String.Empty
+                Dim strtempVermerk As String = String.Empty
+                Dim strtempRetourniert As String = String.Empty
+                Dim strtempVerloren As String = String.Empty
+                Dim strtempGestohlen As String = String.Empty
+                Dim strtempGesperrt As String = String.Empty
+                Dim strtempDefekt As String = String.Empty
+                Dim strtempArchivt As String = String.Empty
 
-            If IsNothing(l2.Bestelldatum) = False Then
-                strtempbestelltam = l2.Bestelldatum.ToString
-            End If
-            If IsNothing(l2.Lieferdatum) = False Then
-                strtempLieferdatum = l2.Lieferdatum.ToString
-            End If
-            If IsNothing(l2.KartenNr) = False Then
-                strtempKartNr = l2.KartenNr.ToString
-            End If
-            If IsNothing(l2.Vermerk) = False Then
-                strtempVermerk = l2.Vermerk.ToString
-            End If
-            If IsNothing(l2.Retourniert) = False Then
-                strtempRetourniert = l2.Retourniert.ToString
-            End If
-            If IsNothing(l2.Verloren) = False Then
-                strtempVerloren = l2.Verloren.ToString
-            End If
-            If IsNothing(l2.Gestohlen) = False Then
-                strtempGestohlen = l2.Gestohlen.ToString
-            End If
-            If IsNothing(l2.Gesperrt) = False Then
-                strtempGesperrt = l2.Gesperrt.ToString
-            End If
-            If IsNothing(l2.Defekt) = False Then
-                strtempDefekt = l2.Defekt.ToString
-            End If
-            If IsNothing(l2.Archiviert) = False Then
-                strtempArchivt = l2.Archiviert.ToString
-            End If
+                If IsNothing(l2.Bestelldatum) = False Then
+                    strtempbestelltam = l2.Bestelldatum.ToString
+                End If
+                If IsNothing(l2.Lieferdatum) = False Then
+                    strtempLieferdatum = l2.Lieferdatum.ToString
+                End If
+                If IsNothing(l2.KartenNr) = False Then
+                    strtempKartNr = l2.KartenNr.ToString
+                End If
+                If IsNothing(l2.Vermerk) = False Then
+                    strtempVermerk = l2.Vermerk.ToString
+                End If
+                If IsNothing(l2.Retourniert) = False Then
+                    strtempRetourniert = l2.Retourniert.ToString
+                End If
+                If IsNothing(l2.Verloren) = False Then
+                    strtempVerloren = l2.Verloren.ToString
+                End If
+                If IsNothing(l2.Gestohlen) = False Then
+                    strtempGestohlen = l2.Gestohlen.ToString
+                End If
+                If IsNothing(l2.Gesperrt) = False Then
+                    strtempGesperrt = l2.Gesperrt.ToString
+                End If
+                If IsNothing(l2.Defekt) = False Then
+                    strtempDefekt = l2.Defekt.ToString
+                End If
+                If IsNothing(l2.Archiviert) = False Then
+                    strtempArchivt = l2.Archiviert.ToString
+                End If
 
-            ' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
+                ' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
 
-            list.Add(strtempbestelltam)
-            list.Add(strtempLieferdatum)
-            list.Add(strtempKartNr)
-            list.Add(strtempVermerk)
-            list.Add(strtempRetourniert)
-            list.Add(l2.KfzKennzeichen)
-            If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then
-                listdetails.Add(list)
+                list.Add(strtempbestelltam)
+                list.Add(strtempLieferdatum)
+                list.Add(strtempKartNr)
+                list.Add(strtempVermerk)
+                list.Add(strtempRetourniert)
+                list.Add(l2.KfzKennzeichen)
+                If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then
+                    listdetails.Add(list)
+                End If
             End If
         Next