Änderung Jetzt wird alles angezeigt.

Customers/LKWs.aspx.vb

@@ -171,7 +171,7 @@ Partial Class LKWS
                 strstrstrstrtempKennz = l2.KfzKennzeichen.ToString
                 tc_SDL.Text = l2.SDLNr.ToString
                 tc_Bez.Text = Stringtemp
-                tc_gueltigbis.Text = l2.GültigBis.ToString
+                tc_gueltigbis.Text = l2.GültigBis.ToString.Substring(0, 10)
                 tc_Karten_Nr.Text = l2.KartenNr.ToString
                 strstrstrstrtempKundNr = l2.KundenNr.ToString
                 strstrstrstrtempHistory = l2.History.ToString

Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb

@@ -83,7 +83,7 @@ Partial Class Customers_Default3
                 Dim strtempLieferdatum As String = String.Empty
                 Dim strtempKartenNr As String = String.Empty
                 Dim strtempPin As String = String.Empty
-                Dim strtempVermerk As String = String.Empty
+                Dim strtempVermerk As String = "Keine Angabe!"
                 Dim strtempGueltigBis As String = String.Empty
                 Dim strtempErsatzKarte As String = String.Empty
                 Dim strtempVerloren As String = String.Empty

Customers/SDL/MAUT/Formtemplate UTA Karte.aspx.vb

@@ -78,7 +78,7 @@ Partial Class Customers_Default3
         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
-            If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr.ToString = SDLNr And l2.KartenNr.ToString = CardNo Then
+            If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr.ToString = SDLNr And l2.History.ToString = History Then
                 Dim strtempbestelltam As String = String.Empty
                 Dim strtempLieferdatum As String = String.Empty
                 Dim strtempKartenNr As String = String.Empty
@@ -99,9 +99,9 @@ Partial Class Customers_Default3
                 If IsNothing(l2.Lieferdatum) = False Then
                     strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10)
                 End If
-                If IsNothing(l2.KartenNr) = False Then
-                    strtempKartenNr = l2.KartenNr.ToString
-                End If
+
+                strtempKartenNr = CardNo
+
                 If IsNothing(l2.CARD_Nr) = False Then
                     strtempcardnr = l2.CARD_Nr.ToString
                 End If