From dfe98f28dd9f82f5ddf5dacc99b0dfe4dead51dd Mon Sep 17 00:00:00 2001 From: ja Date: Mon, 13 Dec 2021 16:46:20 +0100 Subject: [PATCH] =?UTF-8?q?=C3=84nderungen=20Tabellenbef=C3=BCllung=20LKWs?= =?UTF-8?q?=20und=20implementierung=20Mobilbef=C3=BCllung=20seitentabelle?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/LKWs.aspx.vb | 28 +++++++++++++++------------- 1 file changed, 15 insertions(+), 13 deletions(-) diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb index 6be1542..d2f6c0a 100644 --- a/Customers/LKWs.aspx.vb +++ b/Customers/LKWs.aspx.vb @@ -147,20 +147,15 @@ Partial Class LKWS Dim txt_LkwNr As TextBox = txt_lkw 'list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, "COOPER8") list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940) - Dim tbl_sidemenue As Table = FindControl("tbl_sidemenue") + Dim tblhrow As TableHeaderRow = New TableHeaderRow() - Dim tblheader_Cell1 As TableHeaderCell = FindControl("tbhc_KFZKennz") - Dim tblheader_Cellnat As TableHeaderCell = FindControl("tbhc_Nat") - Dim tblheader_Cellverk As TableHeaderCell = FindControl("tbhc_Verk") - Dim tblheader_cell_KZ As TableHeaderCell = FindControl("tblhc_Kz") - Dim tblheader_cell_Verm As TableHeaderCell = FindControl("tblhc_Verm") Dim cnt As Integer = 0 - tblhrow.Cells.Add(tblheader_Cell1) - tblhrow.Cells.Add(tblheader_Cellnat) - tblhrow.Cells.Add(tblheader_Cellverk) - tblhrow.Cells.Add(tblheader_cell_KZ) - tblhrow.Cells.Add(tblheader_cell_Verm) + tblhrow.Cells.Add(tbhc_KFZKennz) + tblhrow.Cells.Add(tbhc_Nat) + tblhrow.Cells.Add(tblhc_Verk) + tblhrow.Cells.Add(tblhc_Kz) + tblhrow.Cells.Add(tblhc_Verm) tbl_sidemenue.Rows.Clear() tbl_sidemenue.Height = Unit.Pixel(150) @@ -192,9 +187,16 @@ Partial Class LKWS cb_Kz_An.Checked = False End If tc_KZ_An.Controls.Add(cb_Kz_An) - tc_Vermerk.Text = l2.Vermerk.ToString + tr2.Cells.Add(tc_KZ_An) + If IsNothing(l2.Vermerk.ToString) = False Then + tc_Vermerk.Text = String.Empty + ElseIf l2.Vermerk.ToString = String.Empty Then + tc_Vermerk.Text = String.Empty + Else + tc_Vermerk.Text = l2.Vermerk.ToString + End If tr2.Cells.Add(tc_Vermerk) - initcells(tblhrow, tblheader_Cell1, tblheader_Cellnat, tblheader_Cellverk, tblheader_cell_KZ, tblheader_cell_Verm, tr2, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt) + initcells(tblhrow, tbhc_KFZKennz, tbhc_Nat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr2, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt) tbl_sidemenue.Rows.Add(tr2) cnt += 1