From 70f98269beb4aeed0fe141a1ff0e80ac6c008c69 Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Wed, 15 Dec 2021 11:55:46 +0100
Subject: [PATCH] =?UTF-8?q?=C3=84nderungen=202?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/LKWs.aspx.vb | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb
index eb9b364..40b38a8 100644
--- a/Customers/LKWs.aspx.vb
+++ b/Customers/LKWs.aspx.vb
@@ -106,9 +106,9 @@ Partial Class LKWS
                 Else
                     Stringtemp = String.Empty
                 End If
-                For Each l3 In list3
-                    list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
-                Next
+
+                list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
+
                 Dim strtemp2 As String = String.Empty
                 If String.IsNullOrEmpty(l1.Nationalität) = True Then
                     strtemp2 = "Keine Angabe"
@@ -119,7 +119,7 @@ Partial Class LKWS
                 For Each l4 In list3
                     strarrtemp = String.Join("-", l4)
                 Next
-                tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & list3.ToString & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
+                tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & strarrtemp & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
             Next
             cnt += 1
             tbl_sidemenue.Rows.Add(tr1)
@@ -336,9 +336,7 @@ Partial Class LKWS
                 Else
                     Stringtemp_M = String.Empty
                 End If
-                For Each l4 In list3
-                    list3.Add(l2.SDLNr.ToString + ";" + Stringtemp_M + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
-                Next
+                list3.Add(l2.SDLNr.ToString + ";" + Stringtemp_M + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
             Next
             Dim strtemp2 As String = String.Empty
             If String.IsNullOrEmpty(l3.Nationalität) Then
@@ -347,7 +345,7 @@ Partial Class LKWS
                 strtemp2 = l3.Nationalität
             End If
             Dim str2temptemp = String.Empty
-            For Each Ltenp In list3
+            For Each Ltenp In list2
                 str2temptemp = String.Join("-", Ltenp)
             Next
             tr1_M.Attributes.Add("OnClick", "Javascript:TableRowClick_M(""" & str2temptemp & """,""" & l3.KfzKennzeichen & """,""" & strtemp2 & """)")