edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Mobilfunktion fast fertig (gleiches Befüllungsschleifenproblem wie bei Desktop)

Browse Source
This commit is contained in:
ja
2021-12-13 09:23:40 +01:00
parent 83d5c8d5ff
commit 0e45b5430d
2 changed files with 128 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
Customers/LKWs.aspx
View File

@@ -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

112
Customers/LKWs.aspx.vb
View File

@@ -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