From 0e45b5430de7593cfdf6055642e76e8eb7ccc297 Mon Sep 17 00:00:00 2001 From: ja Date: Mon, 13 Dec 2021 09:23:40 +0100 Subject: [PATCH] =?UTF-8?q?Mobilfunktion=20fast=20fertig=20(gleiches=20Bef?= =?UTF-8?q?=C3=BCllungsschleifenproblem=20wie=20bei=20Desktop)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/LKWs.aspx | 45 +++++++++++++++++ Customers/LKWs.aspx.vb | 112 ++++++++++++++++++++++++++++++----------- 2 files changed, 128 insertions(+), 29 deletions(-) diff --git a/Customers/LKWs.aspx b/Customers/LKWs.aspx index 953ffd3..be8f881 100644 --- a/Customers/LKWs.aspx +++ b/Customers/LKWs.aspx @@ -186,6 +186,51 @@ let newCell2 = newRow.insertCell(2) let newCell3 = newRow.insertCell(3) + newCell.innerHTML = par1 + newCell1.innerHTML = par2 + newCell2.innerHTML = par3 + newCell3.innerHTML = par4 + } + function TableRowClick_M(list, Kennzeichen, Nat) { + var arrayObject = []; + var table = document.getElementById("<%=tbl_2.ClientID%>"); + var Speditionslabel = document.getElementById("<%=lbl_sped_Placeholder_M.ClientID%>") + var natplaceholder = document.getElementById("<%=lbl_Placeholder_M.ClientID%>") + + Speditionslabel.textContent = Kennzeichen + natplaceholder.textContent = Nat + for (let i = 0; i < list.length; i++) { + var Arr = list(i).split(";"); + for (let arrint = 0; arrint < 5; arrint++) + var SDLNr = Arr[arrint]; + arrint++; + var Bez = Arr[arrint]; + arrint++; + var Gueltigbis = Arr[arrint]; + arrint++; + var KartenNr = Arr[arrint]; + arrint++; + var Placeholder = Arr[arrint]; + arrint++; + var Nat = Arr[arrint]; + alert(SDLNr) + alert(Bez) + alert(Gueltigbis) + alert(KartenNr) + addRow(table.id, SDLNr, Bez, Gueltigbis, KartenNr) + arrint; + } + } + function addRow(tableID, par1, par2, par3, par4) { + let tableRef = document.getElementById(tableID); + + let newRow = tableRef.insertRow(-1); + + let newCell = newRow.insertCell(0); + let newCell1 = newRow.insertCell(1) + let newCell2 = newRow.insertCell(2) + let newCell3 = newRow.insertCell(3) + newCell.innerHTML = par1 newCell1.innerHTML = par2 newCell2.innerHTML = par3 diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb index 60fa1e7..19e8396 100644 --- a/Customers/LKWs.aspx.vb +++ b/Customers/LKWs.aspx.vb @@ -8,6 +8,7 @@ Partial Class LKWS Inherits System.Web.UI.Page Dim Kdnrtext As String = String.Empty Dim list As Collections.Generic.List(Of VERAG_PROG_ALLGEMEIN.cSDL_LKW) = Nothing + Dim list_M As Collections.Generic.List(Of VERAG_PROG_ALLGEMEIN.cSDL_LKW) = Nothing Protected Sub Page_Load(sender As Object, ByVal e As System.EventArgs) Handles Me.Load VERAG_VARIABLES.initerrorcount() @@ -110,7 +111,14 @@ Partial Class LKWS list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString + ";" + l1.KfzKennzeichen + ";" + tc_Nationalitaet.Text) Next Next - tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & list3.ToArray.ToString & """,""" & l1.KfzKennzeichen & """,""" & l1.Nationalität & """)") + Dim strtemp2 As String = String.Empty + + If String.IsNullOrEmpty(l1.Nationalität) Then + strtemp2 = "Keine Angabe" + Else + strtemp2 = l1.Nationalität + End If + tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & list3.ToString & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)") cnt += 1 tbl_sidemenue.Rows.Add(tr1) Next @@ -227,14 +235,14 @@ Partial Class LKWS Else tc_Vermerk_M.Text = li_M.Vermerk.ToString End If - + tr2.Cells.Add(tc_Vermerk_M) 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 Button_hid_Click(sender As Object, e As EventArgs) - MsgBox("Test erfolgreich!") + 'MsgBox("Test erfolgreich!") End Sub Protected Sub btn_alle_M_Click(sender As Object, e As EventArgs) If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then @@ -244,8 +252,8 @@ Partial Class LKWS End If Dim cnt As Integer = 0 - list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940) + list_M = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940) Dim tblhrow_M As TableHeaderRow = New TableHeaderRow tblhrow_M.Cells.Add(tbhc_KFZKennz_M) @@ -253,37 +261,83 @@ Partial Class LKWS 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 + 'tbl_sidemenue.Rows.Clear() + 'MsgBox("Test2") + For Each l1 In list_M + Dim tr1 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_KZ_Ab_M As TableCell = New TableCell() + Dim tc_Vermerk_M As TableCell = New TableCell() + Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, l1.KfzKennzeichen) + Dim list3 As List(Of String) = New List(Of String) + tc_KfzKennz_M.Text = l1.KfzKennzeichen + tr1.Cells.Add(tc_KfzKennz_M) + If IsNothing(l1.Nationalität) = True Then + tc_Nationalitaet_M.Text = String.Empty + ElseIf String.IsNullOrEmpty(l1.Nationalität.ToString) = True Then + tc_Nationalitaet_M.Text = String.Empty Else - tc_M_Vermerk.Text = l3.Vermerk + tc_Nationalitaet_M.Text = l1.Nationalität.ToString End If - tr3.Cells.Add(tc_M_Vermerk) + tr1.Cells.Add(tc_Nationalitaet_M) + Dim cbverk_M As CheckBox = New CheckBox() + tc_Verk_M.Controls.Add(cbverk_M) + cbverk_M.Enabled = False + tr1.Cells.Add(tc_Verk_M) + If l1.Verkauft = True Then + cbverk_M.Checked = True + Else + cbverk_M.Checked = False + End If + Dim chbx2_Kz_ab_M As CheckBox = New CheckBox() + chbx2_Kz_ab_M.Enabled = False + If (l1.Abgemeldet = True) Then + chbx2_Kz_ab_M.Checked = True + Else + chbx2_Kz_ab_M.Checked = False + End If + tc_KZ_Ab_M.Controls.Add(chbx2_Kz_ab_M) + tr1.Cells.Add(tc_KZ_Ab_M) + If IsNothing(l1.Vermerk) = True Then + tc_Vermerk_M.Text = String.Empty + ElseIf String.IsNullOrEmpty(l1.Vermerk.ToString) = True Then + tc_Vermerk_M.Text = String.Empty + Else + tc_Vermerk_M.Text = l1.Vermerk.ToString + 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 + For Each l2 In list2 + Dim String2 As String = String.Empty + + If IsNothing(l2.Schadstoffklasse) = False Then + Stringtemp = l2.Kategorie.ToString + Else + Stringtemp = 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) + Next + Next + Dim strtemp2 As String = String.Empty + + If String.IsNullOrEmpty(l1.Nationalität) Then + strtemp2 = "Keine Angabe" + Else + strtemp2 = l1.Nationalität + End If + tr1.Attributes.Add("OnClick", "Javascript:TableRowClick_M(""" & list3.ToString & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)") 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) + tbl_2.Rows.Add(tr1) Next + 'MsgBox("Test3") End Sub