Änderung jetzt wird auch die Kartennummer angezeigt

Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb

@@ -73,7 +73,7 @@ Partial Class Customers_Default3
 
     <WebMethod>
     <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
-    Public Shared Function filltabledetails(Kennzeichen As String, Kundennr As String, CardNo As String, SDLNr As String, History As String) As FormattedList
+    Public Shared Function filltabledetails(Kennzeichen As String, Kundennr As String, CardNo As String, SDLNr As String, History As String, GueltigBis 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(Kundennr), Kennzeichen)
         Dim listdetails As New List(Of List(Of String))
@@ -98,9 +98,9 @@ Partial Class Customers_Default3
                 If IsNothing(l2.Lieferdatum) = False Then
                     strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10)
                 End If
-                If l2.KartenNr.ToString = CardNo Then
-                    strtempKartenNr = l2.KartenNr.ToString
-                End If
+
+                strtempKartenNr = CardNo
+
                 If IsNothing(l2.PIN) = False Then
                     strtempPin = l2.PIN.ToString
                 End If
@@ -108,7 +108,7 @@ Partial Class Customers_Default3
                     strtempVermerk = l2.Vermerk.ToString
                 End If
                 If IsNothing(l2.GültigBis) = False Then
-                    strtempGueltigBis = l2.GültigBis.ToString.Substring(0, 10)
+                    strtempGueltigBis = GueltigBis
                 End If
                 If IsNothing(l2.Ersatzkarte) = False Then
                     strtempErsatzKarte = l2.Ersatzkarte.ToString