From b7ae3ae1b45ce95cfe0c1d574718b4b1a5be7232 Mon Sep 17 00:00:00 2001 From: ja Date: Thu, 3 Feb 2022 16:05:52 +0100 Subject: [PATCH] Tabelle fast erzeugt --- Customers/LKWs.aspx.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb index a389d4b..2ea04df 100644 --- a/Customers/LKWs.aspx.vb +++ b/Customers/LKWs.aspx.vb @@ -602,8 +602,8 @@ Partial Class LKWS End If - If String.Equals(finalSDLNrstr, l2.SDLNr.ToString) = True AndAlso String.Equals(finalstr, l2.KfzKennzeichen.ToString) = True AndAlso String.Equals(finalstrKundNr, l2.KundenNr.ToString) = True AndAlso String.Equals(finalhistory, l2.History.ToString) = True Then - Dim Entrytemp As New List(Of String) + ' If String.Equals(finalSDLNrstr, l2.SDLNr.ToString) = True AndAlso String.Equals(finalstr, l2.KfzKennzeichen.ToString) = True AndAlso String.Equals(finalstrKundNr, l2.KundenNr.ToString) = True Then + Dim Entrytemp As New List(Of String) Entrytemp.Add(l2.SDLNr.ToString) Entrytemp.Add(strtempKat) Entrytemp.Add(strtempGueltigBis) @@ -613,7 +613,7 @@ Partial Class LKWS Entrytemp.Add(finalSDLNrstr) Entrytemp.Add(finalhistory) container.Add(Entrytemp) - End If + ' End If Next HttpContext.Current.Response.ContentType = "application/json" @@ -650,13 +650,13 @@ Partial Class LKWS End If Dim Entrytemp As New List(Of String) - If String.Equals(finalSDLNrstr, l2.SDLNr.ToString) = True AndAlso String.Equals(finalstr, l2.KfzKennzeichen.ToString) = True AndAlso String.Equals(finalstrKundNr, l2.KundenNr.ToString) = True AndAlso String.Equals(finalhistory, l2.History.ToString) = True Then - Entrytemp.Add(l2.SDLNr.ToString) + 'If String.Equals(finalSDLNrstr, l2.SDLNr.ToString) = True AndAlso String.Equals(finalstr, l2.KfzKennzeichen.ToString) = True AndAlso String.Equals(finalstrKundNr, l2.KundenNr.ToString) = True Then + Entrytemp.Add(l2.SDLNr.ToString) Entrytemp.Add(strtempKat) Entrytemp.Add(strtempGueltigBis) Entrytemp.Add(strtempKartenNr) container.Add(Entrytemp) - End If + ' End If Next HttpContext.Current.Response.ContentType = "application/json"