From 590e6503b391ea6075c759e98c5cb2cc73ecd280 Mon Sep 17 00:00:00 2001 From: ja Date: Tue, 14 Sep 2021 16:28:56 +0200 Subject: [PATCH] =?UTF-8?q?Kundennummer=20unn=C3=B6tig=20erkannt.Eintrag?= =?UTF-8?q?=20aus=20Tabelle=20sowie=20Header=20der=20Tabelle=20entfernt.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/CustomsAviso.aspx | 2 +- Customers/CustomsAviso.aspx.vb | 6 ++---- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/Customers/CustomsAviso.aspx b/Customers/CustomsAviso.aspx index aa9535a..6ac49bd 100644 --- a/Customers/CustomsAviso.aspx +++ b/Customers/CustomsAviso.aspx @@ -148,7 +148,7 @@ Index-Nr ART - KundenNr + Status von bis diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index 20be172..601569c 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/Customers/CustomsAviso.aspx.vb @@ -137,7 +137,7 @@ Partial Class Kundenbereich_Default Dim Cell = New TableCell Dim tbl_CellIndex = New TableCell Dim tbl_CellArt = New TableCell - Dim tbl_CellKundenNr = New TableCell + Dim tbl_CellStatus = New TableCell Dim tbl_Cellvon = New TableCell Dim tbl_Cellbis = New TableCell @@ -152,8 +152,7 @@ Partial Class Kundenbereich_Default tr.Cells.Add(tbl_CellIndex) tbl_CellArt.Text = "" tr.Cells.Add(tbl_CellArt) - 'tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString - ' tr.Cells.Add(tbl_CellKundenNr) + Select Case d("Status") Case 1 @@ -219,7 +218,6 @@ Partial Class Kundenbereich_Default rbt_Vorg.Enabled = True rbt_Vorb.Checked = False rbt_Vorb.Enabled = True - 'txt_KdNr.Text = "" pickdate1.Text = "" pickdate2.Text = "" datevon = Nothing