From e52ca4dd10039778264d5f1062aa4231b306648c Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Mon, 14 Feb 2022 15:08:23 +0100
Subject: [PATCH] =?UTF-8?q?=C3=84nderung=20Jetzt=20wird=20alles=20angezeig?=
 =?UTF-8?q?t.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/LKWs.aspx.vb                            | 2 +-
 Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb  | 2 +-
 Customers/SDL/MAUT/Formtemplate UTA Karte.aspx.vb | 8 ++++----
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb
index 769c601..63a2b68 100644
--- a/Customers/LKWs.aspx.vb
+++ b/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
diff --git a/Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb b/Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb
index b6ab40c..a6191bb 100644
--- a/Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb	
+++ b/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
diff --git a/Customers/SDL/MAUT/Formtemplate UTA Karte.aspx.vb b/Customers/SDL/MAUT/Formtemplate UTA Karte.aspx.vb
index b4c9c61..dc2b22a 100644
--- a/Customers/SDL/MAUT/Formtemplate UTA Karte.aspx.vb	
+++ b/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