From bd56ebd9d55a802f21d288992d275dc8aa26b64f Mon Sep 17 00:00:00 2001 From: ja Date: Mon, 13 Dec 2021 09:33:24 +0100 Subject: [PATCH] Umstrukturierung Code --- Customers/LKWs.aspx.vb | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb index ea9f3f3..8dfce37 100644 --- a/Customers/LKWs.aspx.vb +++ b/Customers/LKWs.aspx.vb @@ -98,7 +98,6 @@ Partial Class LKWS tr1.Cells.Add(tc_Vermerk) initcells(tblhrow, tbhc_KFZKennz, tbhc_Nat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_Ab, tc_Vermerk, cnt) Dim Stringtemp As String = String.Empty - Dim Spedlabel As String = String.Empty For Each l2 In list2 Dim String2 As String = String.Empty @@ -312,18 +311,17 @@ Partial Class LKWS End If tr1.Cells.Add(tc_Vermerk_M) initcells(tblhrow_M, tbhc_KFZKennz_M, tbhc_Nat_M, tbhc_Verk_M, tbhc_KZ_An_M, tbhc_Verm_M, tr1, tc_KfzKennz_M, tc_Nationalitaet_M, tc_Verk_M, tc_KZ_Ab_M, tc_Vermerk_M, cnt) - Dim Stringtemp As String = String.Empty - Dim Spedlabel As String = String.Empty + Dim Stringtemp_M As String = String.Empty For Each l2 In list2 Dim String2 As String = String.Empty If IsNothing(l2.Schadstoffklasse) = False Then - Stringtemp = l2.Kategorie.ToString + Stringtemp_M = l2.Kategorie.ToString Else - Stringtemp = String.Empty + Stringtemp_M = String.Empty End If For Each l3 In list3 - list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString + ";" + l1.KfzKennzeichen + ";" + tc_Nationalitaet_M.Text) + list3.Add(l2.SDLNr.ToString + ";" + Stringtemp_M + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString + ";" + l1.KfzKennzeichen + ";" + tc_Nationalitaet_M.Text) Next Next Dim strtemp2 As String = String.Empty