From b506a7acc11ac1c78124a66042aa4940759c46d3 Mon Sep 17 00:00:00 2001 From: ja Date: Mon, 20 Dec 2021 08:42:52 +0100 Subject: [PATCH] =?UTF-8?q?Implementierung=20der=20Funktionsk=C3=B6rper?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/WebService.vb | 31 ++++++++++++++++++++---- Customers/LKWs.aspx | 54 ++++++++++++++++++++---------------------- 2 files changed, 53 insertions(+), 32 deletions(-) diff --git a/App_Code/WebService.vb b/App_Code/WebService.vb index f7a4906..2aec439 100644 --- a/App_Code/WebService.vb +++ b/App_Code/WebService.vb @@ -151,19 +151,42 @@ Public Class WebService myConn.Close() : Return lstCountries End Function - Private Function buildtablerow(page As Page, tbl As Table) As Table + Private Function buildtablerow(tbl As Table, SDLNumber As String, Bezstr As String, Datgueltigbisstr As String, KartNr As String) As Table Dim row As TableRow = New TableRow Dim c1 As TableCell = New TableCell Dim c2 As TableCell = New TableCell Dim c3 As TableCell = New TableCell + Dim c4 As TableCell = New TableCell - c1.Text = "ID" - c2.Text = "Stadt" - c3.Text = "Persona" + c1.Text = SDLNumber + c2.Text = Bezstr + c3.Text = Datgueltigbisstr + c4.Text = KartNr row.Cells.Add(c1) row.Cells.Add(c2) row.Cells.Add(c3) + row.Cells.Add(c4) + tbl.Rows.Add(row) + Return tbl + End Function + + Private Function buildtablerow_M(tbl As Table, SDLNumber_M As String, Bezstr_M As String, Datgueltigbisstr_M As String, KartNr_M As String) As Table + + Dim row As TableRow = New TableRow + Dim c1 As TableCell = New TableCell + Dim c2 As TableCell = New TableCell + Dim c3 As TableCell = New TableCell + Dim c4 As TableCell = New TableCell + + c1.Text = SDLNumber_M + c2.Text = Bezstr_M + c3.Text = Datgueltigbisstr_M + c4.Text = KartNr_M + row.Cells.Add(c1) + row.Cells.Add(c2) + row.Cells.Add(c3) + row.Cells.Add(c4) tbl.Rows.Add(row) Return tbl End Function diff --git a/Customers/LKWs.aspx b/Customers/LKWs.aspx index 40b8d6d..6ee753b 100644 --- a/Customers/LKWs.aspx +++ b/Customers/LKWs.aspx @@ -143,11 +143,11 @@