From 30cd1c6078ac1077e3da5ebcd9750f3025e5bc46 Mon Sep 17 00:00:00 2001 From: ja Date: Thu, 9 Dec 2021 16:50:33 +0100 Subject: [PATCH] Listen werden korrekt aufgebaut die Klicks werden morgen eingearbeitet. --- Customers/LKWs.aspx | 21 +++--- Customers/LKWs.aspx.vb | 141 +++++++++++++++++++++++++++++++++-------- 2 files changed, 125 insertions(+), 37 deletions(-) diff --git a/Customers/LKWs.aspx b/Customers/LKWs.aspx index f6ce960..88f0a07 100644 --- a/Customers/LKWs.aspx +++ b/Customers/LKWs.aspx @@ -64,12 +64,12 @@
Kennzeichen: - +
- Please valid Truck license Plate! + Please valid Truck license Plate!
@@ -91,9 +91,9 @@ SDL-Leistungen:
-
+
- SDL-NrBezeichnungGültig BisKarten-Nummer + SDL-NrBezeichnungGültig BisKarten-Nummer
@@ -104,7 +104,7 @@
- +
@@ -113,12 +113,12 @@
- Please valid Truck license Plate! + Please valid Truck license Plate!
- KFZ_KennzeichenNat.Verk.KZ-AnVermerke + KFZ_KennzeichenNat.Verk.KZ-AnVermerke
@@ -137,7 +137,7 @@
- SDL_NrBezeichnungGültig BisKarten-Nummer + SDL_NrBezeichnungGültig BisKarten-Nummer
@@ -148,9 +148,6 @@ - - - - + diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb index 9a685cb..23eaf15 100644 --- a/Customers/LKWs.aspx.vb +++ b/Customers/LKWs.aspx.vb @@ -27,32 +27,24 @@ Partial Class LKWS End Sub Protected Sub btn_alle_Click(sender As Object, e As EventArgs) - 'list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(Kdnrtext) - 'MsgBox("Test1") + If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True - 'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956" - Else VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - - 'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;" End If + Dim cnt As Integer = 0 list = VERAG_PROG_ALLGEMEIN.cSDL.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") - 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) + + Dim tblhrow As TableHeaderRow = New TableHeaderRow + + 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.Add(tblhrow) @@ -76,10 +68,16 @@ Partial Class LKWS Dim chbx2_Kz_an As CheckBox = New CheckBox() tc_KZ_An.Controls.Add(chbx2_Kz_an) tr1.Cells.Add(tc_KZ_An) - tc_Vermerk.Text = l1.Vermerk.ToString + If IsNothing(l1.Vermerk) = True Then + tc_Vermerk.Text = String.Empty + ElseIf String.IsNullOrEmpty(l1.Vermerk.ToString) = True Then + tc_Vermerk.Text = String.Empty + Else + tc_Vermerk.Text = l1.Vermerk.ToString + End If tr1.Cells.Add(tc_Vermerk) cnt += 1 - initcells(tblhrow, tblheader_Cell1, tblheader_Cellnat, tblheader_Cellverk, tblheader_cell_KZ, tblheader_cell_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt) + initcells(tblhrow, tbhc_KFZKennz, tbhc_Nat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt) tbl_sidemenue.Rows.Add(tr1) Next 'MsgBox("Test3") @@ -129,9 +127,9 @@ Partial Class LKWS Protected Sub btn_Suchen_Click(sender As Object, e As EventArgs) 'MsgBox("Test0") - Dim txt_LkwNr As TextBox = Page.FindControl("txt_LkwNr") + Dim txt_LkwNr As TextBox = txt_lkw 'list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, "COOPER8") - list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, txt_LkwNr.Text) + list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, Integer.Parse(txt_LkwNr.Text)) Dim tbl_sidemenue2 As Table = FindControl("tbl_sidemenue") Dim tblhrow As TableHeaderRow = New TableHeaderRow() Dim tblheader_Cell1 As TableHeaderCell = FindControl("tbhc_KFZKennz") @@ -145,11 +143,12 @@ Partial Class LKWS tblhrow.Cells.Add(tblheader_cell_KZ) tblhrow.Cells.Add(tblheader_cell_Verm) + + Dim cnt As Integer = 0 + tbl_sidemenue2.Rows.Clear() tbl_sidemenue2.Rows.Add(tblhrow) - 'tbl_sidemenue2.Rows.Clear() 'MsgBox("Test1") For Each l2 In list - Dim cnt As Integer = 0 Dim tr2 As TableRow = New TableRow() Dim tc_KfzKennz As TableCell = New TableCell() Dim tc_Nationalitaet As TableCell = New TableCell() @@ -167,7 +166,6 @@ Partial Class LKWS tc_KZ_An.Controls.Add(cb_Kz_An) tc_Vermerk.Text = l2.Vermerk.ToString tr2.Cells.Add(tc_Vermerk) - 'tr2.Attributes.Add("command", "getinfos") 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) tbl_sidemenue2.Rows.Add(tr2) @@ -181,6 +179,99 @@ Partial Class LKWS End Sub Protected Sub btn_Suchen_M_Click(sender As Object, e As EventArgs) + If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + Else + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + End If + list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, Integer.Parse(txt_LKWNr_M.Text)) + Dim cnt As Integer = 0 + headrow_M.Cells.Add(tbhc_KFZKennz_M) + headrow_M.Cells.Add(tbhc_Nat_M) + headrow_M.Cells.Add(tbhc_Verk_M) + headrow_M.Cells.Add(tbhc_KZ_An_M) + headrow_M.Cells.Add(tbhc_Verm_M) + tbl_2.Rows.Add(headrow_M) + + For Each li_M In list + Dim tr2 As TableRow = New TableRow() + Dim tc_KfZKennz_M As TableCell = New TableCell() + Dim tc_Nationalitaet_M As TableCell = New TableCell() + Dim tc_Verk_M As TableCell = New TableCell() + Dim tc_KzAn_M As TableCell = New TableCell() + Dim tc_Vermerk_M As TableCell = New TableCell() + tc_KfZKennz_M.Text = li_M.KfzKennzeichen.ToString + tr2.Cells.Add(tc_KfZKennz_M) + tc_Nationalitaet_M.Text = String.Empty + tr2.Cells.Add(tc_Nationalitaet_M) + Dim cb_Vers_M As CheckBox = New CheckBox() + tc_Verk_M.Controls.Add(cb_Vers_M) + tr2.Cells.Add(tc_Verk_M) + Dim cb_M_2 As CheckBox = New CheckBox() + tc_KzAn_M.Controls.Add(cb_M_2) + tr2.Cells.Add(tc_KzAn_M) + If IsNothing(li_M.Vermerk) = True Then + tc_Vermerk_M.Text = String.Empty + ElseIf String.IsNullOrEmpty(li_M.Vermerk.ToString) = True Then + tc_Vermerk_M.Text = String.Empty + Else + tc_Vermerk_M.Text = li_M.Vermerk.ToString + End If + + initcells(headrow_M, tbhc_KFZKennz_M, tbhc_Nat_M, tbhc_Verk_M, tbhc_KZ_An_M, tbhc_Verm_M, tr2, tc_KfZKennz_M, tc_Nationalitaet_M, tc_Verk_M, tc_KzAn_M, tc_Vermerk_M, cnt) + tbl_2.Rows.Add(tr2) + cnt += 1 + Next + End Sub + + Protected Sub btn_alle_M_Click(sender As Object, e As EventArgs) + If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + Else + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + End If + + Dim cnt As Integer = 0 + list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940) + + Dim tblhrow_M As TableHeaderRow = New TableHeaderRow + + tblhrow_M.Cells.Add(tbhc_KFZKennz_M) + tblhrow_M.Cells.Add(tbhc_Nat_M) + tblhrow_M.Cells.Add(tbhc_Verk_M) + tblhrow_M.Cells.Add(tbhc_KZ_An_M) + tblhrow_M.Cells.Add(tbhc_Verm_M) + tbl_2.Rows.Add(tblhrow_M) + + For Each l3 In list + Dim tr3 As New TableRow + Dim tc_M_KZFZkennz As TableCell = New TableCell + Dim tc_M_Nat As TableCell = New TableCell + Dim tc_M_Verk As TableCell = New TableCell + Dim tc_M_KZ_AN As TableCell = New TableCell + Dim tc_M_Vermerk As TableCell = New TableCell + + tc_M_KZFZkennz.Text = l3.KfzKennzeichen + tr3.Cells.Add(tc_M_KZFZkennz) + tc_M_Nat.Text = String.Empty + tr3.Cells.Add(tc_M_Nat) + Dim cb_Verk_M As CheckBox = New CheckBox + tc_M_Verk.Controls.Add(cb_Verk_M) + tr3.Cells.Add(tc_M_Verk) + Dim cb2_M As CheckBox = New CheckBox + tc_M_KZ_AN.Controls.Add(cb2_M) + tr3.Cells.Add(tc_M_KZ_AN) + If IsNothing(l3.Vermerk) = True Then + tc_M_Vermerk.Text = String.Empty + ElseIf String.IsNullOrEmpty(l3.Vermerk.ToString) = True Then + tc_M_Vermerk.Text = String.Empty + Else + tc_M_Vermerk.Text = l3.Vermerk + End If + tr3.Cells.Add(tc_M_Vermerk) + cnt += 1 + initcells(tblhrow_M, tbhc_KFZKennz_M, tbhc_Nat_M, tbhc_Verk_M, tbhc_KZ_An_M, tbhc_Verm_M, tr3, tc_M_KZFZkennz, tc_M_Nat, tc_M_Verk, tc_M_KZ_AN, tc_M_Vermerk, cnt) + Next End Sub End Class