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

Daten werden nicht sortiert angezeigt

Browse Source
This commit is contained in:
ja
2021-12-16 14:47:05 +01:00
parent 53843457f1
commit c9eb4c3b6a
2 changed files with 48 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
Customers/LKWs.aspx
View File

@@ -149,8 +149,7 @@
let natplaceholder = document.getElementById("<%=lbl_Placeholder.ClientID%>") let natplaceholder = document.getElementById("<%=lbl_Placeholder.ClientID%>")
Speditionslabel.textContent = Kennzeichen Speditionslabel.textContent = Kennzeichen
natplaceholder.textContent = Nat natplaceholder.textContent = Nat }
}
function TableRow_Click_M(Nat,Kennzeichen) { function TableRow_Click_M(Nat,Kennzeichen) {
let Speditionslabel = document.getElementById("<%=lbl_sped_Placeholder_M.ClientID%>") let Speditionslabel = document.getElementById("<%=lbl_sped_Placeholder_M.ClientID%>")
let natplaceholder = document.getElementById("<%=lbl_Placeholder_M.ClientID%>") let natplaceholder = document.getElementById("<%=lbl_Placeholder_M.ClientID%>")
@@ -158,41 +157,5 @@
Speditionslabel.textContent = Kennzeichen Speditionslabel.textContent = Kennzeichen
natplaceholder.textContent = Nat natplaceholder.textContent = Nat
} }
function addRow(table1,par1,par2,par3,par4) { </script>
let tableRef = table1;
let newRow = tableRef.insertRow();
let newCell = newRow.insertCell();
let newCell1 = newRow.insertCell()
let newCell2 = newRow.insertCell()
let newCell3 = newRow.insertCell()
newCell.create
newCell1.create
newCell2.create
newCell3.create
newCell.innerHTML = par1
newCell1.innerHTML = par2
newCell2.innerHTML = par3
newCell3.innerHTML = par4
}
function addRow_tab2(tab1,par1, par2, par3, par4) {
let tableRef = tab1;
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.create
newCell1.create
newCell2.create
newCell3.create
newCell.innerHTML = par1
newCell1.innerHTML = par2
newCell2.innerHTML = par3
newCell3.innerHTML = par4
}
</script>
</asp:Content> </asp:Content>

64
Customers/LKWs.aspx.vb
View File

@@ -70,7 +70,7 @@ Partial Class LKWS
Dim tc_Verk As TableCell = New TableCell() Dim tc_Verk As TableCell = New TableCell()
Dim tc_KZ_Ab As TableCell = New TableCell() Dim tc_KZ_Ab As TableCell = New TableCell()
Dim tc_Vermerk As TableCell = New TableCell() Dim tc_Vermerk As TableCell = New TableCell()
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, l1.KfzKennzeichen)
tc_KfzKennz.Text = l1.KfzKennzeichen tc_KfzKennz.Text = l1.KfzKennzeichen
tr1.Cells.Add(tc_KfzKennz) tr1.Cells.Add(tc_KfzKennz)
@@ -110,10 +110,21 @@ Partial Class LKWS
tr1.Cells.Add(tc_Vermerk) tr1.Cells.Add(tc_Vermerk)
initcells(tblhrow, tbhc_KFZKennz, tbhc_Nat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_Ab, tc_Vermerk, cnt) initcells(tblhrow, tbhc_KFZKennz, tbhc_Nat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_Ab, tc_Vermerk, cnt)
Dim Stringtemp As String = String.Empty Dim Stringtemp As String = String.Empty
TableRows.Clear()
Dim throw2 As TableHeaderRow = New TableHeaderRow
throw2.Cells.Add(tblhc_SDLNr)
throw2.Cells.Add(tblhc_Bez)
throw2.Cells.Add(tbl_gueltig)
throw2.Cells.Add(tblhc_KarteNr)
TableRows.Add(throw2)
tbl_mainpage.Rows.Add(throw2)
Dim strtemparr As String = String.Empty Dim strtemparr As String = String.Empty
Dim strtemp2 As String = String.Empty Dim strtemp2 As String = String.Empty
Dim strarrtemp = String.Empty Dim strarrtemp = String.Empty
tbl2mainpagetemp = New Table Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, l1.KfzKennzeichen)
Dim stringtemtr As String
Dim tr As TableRow = New TableRow
For Each l2 In list2 For Each l2 In list2
Dim String2 As String = String.Empty Dim String2 As String = String.Empty
@@ -122,7 +133,7 @@ Partial Class LKWS
Else Else
Stringtemp = String.Empty Stringtemp = String.Empty
End If End If
Dim tr As TableRow = New TableRow
Dim tc_SDL As TableCell = New TableCell Dim tc_SDL As TableCell = New TableCell
Dim tc_Bez As TableCell = New TableCell Dim tc_Bez As TableCell = New TableCell
Dim tc_gueltigbis As TableCell = New TableCell Dim tc_gueltigbis As TableCell = New TableCell
@@ -131,11 +142,15 @@ Partial Class LKWS
tc_Bez.Text = Stringtemp tc_Bez.Text = Stringtemp
tc_gueltigbis.Text = l2.GültigBis.ToString tc_gueltigbis.Text = l2.GültigBis.ToString
tc_Karten_Nr.Text = l2.KartenNr.ToString tc_Karten_Nr.Text = l2.KartenNr.ToString
tr.Cells.Add(tc_SDL) If String.Equals(l2.KfzKennzeichen, l1.KfzKennzeichen) = True Then
tr.Cells.Add(tc_Bez) tr.Cells.Add(tc_SDL)
tr.Cells.Add(tc_gueltigbis) tr.Cells.Add(tc_Bez)
tr.Cells.Add(tc_Karten_Nr) tr.Cells.Add(tc_gueltigbis)
TableRows.Add(tr) tr.Cells.Add(tc_Karten_Nr)
strtemparr = "<tr><td>" + tc_SDL.Text + "</td><td>" + tc_Bez.Text + "</td><td>" + tc_gueltigbis.Text + "</td><td>" + tc_Karten_Nr.Text + "</td></tr>"
tbl_mainpage.Rows.Add(tr)
TableRows.Add(tr)
End If
'MsgBox(TableRows.Count.ToString) 'MsgBox(TableRows.Count.ToString)
Next Next
If String.IsNullOrEmpty(l1.Nationalität) = True Then If String.IsNullOrEmpty(l1.Nationalität) = True Then
@@ -180,8 +195,8 @@ Partial Class LKWS
tblhrow.Cells.Add(tblhc_Verm) tblhrow.Cells.Add(tblhc_Verm)
tbl_sidemenue.Height = Unit.Pixel(150) tbl_sidemenue.Height = Unit.Pixel(150)
tbl_sidemenue.Rows.Clear()
tbl_sidemenue.Rows.Add(tblhrow)
For Each l2 In list For Each l2 In list
Dim tr2 As TableRow = New TableRow() Dim tr2 As TableRow = New TableRow()
@@ -225,8 +240,6 @@ Partial Class LKWS
Next Next
End Sub End Sub
Protected Sub btn_Suchen_M_Click(sender As Object, e As EventArgs) Protected Sub btn_Suchen_M_Click(sender As Object, e As EventArgs)
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
@@ -291,7 +304,8 @@ Partial Class LKWS
Else Else
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
End If End If
tbl_2.Rows.Clear()
tbl_mainpage_M.Rows.Clear()
Dim cnt As Integer = 0 Dim cnt As Integer = 0
list_M = 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 Dim tblhrow_M As TableHeaderRow = New TableHeaderRow
@@ -350,6 +364,7 @@ Partial Class LKWS
tr1_M.Cells.Add(tc_Vermerk_M) tr1_M.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_M, tc_KfzKennz_M, tc_Nationalitaet_M, tc_Verk_M, tc_KZ_Ab_M, tc_Vermerk_M, cnt) initcells(tblhrow_M, tbhc_KFZKennz_M, tbhc_Nat_M, tbhc_Verk_M, tbhc_KZ_An_M, tbhc_Verm_M, tr1_M, tc_KfzKennz_M, tc_Nationalitaet_M, tc_Verk_M, tc_KZ_Ab_M, tc_Vermerk_M, cnt)
Dim Stringtemp_M As String = String.Empty Dim Stringtemp_M As String = String.Empty
For Each l2 In list2 For Each l2 In list2
Dim String2 As String = String.Empty Dim String2 As String = String.Empty
If IsNothing(l2.Schadstoffklasse) = False Then If IsNothing(l2.Schadstoffklasse) = False Then
@@ -357,7 +372,23 @@ Partial Class LKWS
Else Else
Stringtemp_M = String.Empty Stringtemp_M = String.Empty
End If End If
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp_M + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString) Dim tr As TableRow = New TableRow
Dim tc_SDLNr As TableCell = New TableCell
Dim tc_Bez As TableCell = New TableCell
Dim tc_GueltigBis As TableCell = New TableCell
Dim tc_Kartennr As TableCell = New TableCell
tc_SDLNr.Text = l2.SDLNr.ToString
tc_Bez.Text = Stringtemp_M
tc_GueltigBis.Text = l2.GültigBis.ToString
tc_Kartennr.Text = l2.KartenNr.ToString
tr.Cells.Add(tc_SDLNr)
tr.Cells.Add(tc_Bez)
tr.Cells.Add(tc_GueltigBis)
tr.Cells.Add(tc_Kartennr)
tbl_mainpage_M.Rows.Add(tr)
TableRows_M.Add(tr)
Next Next
Dim strtemp2 As String = String.Empty Dim strtemp2 As String = String.Empty
If String.IsNullOrEmpty(l3.Nationalität) Then If String.IsNullOrEmpty(l3.Nationalität) Then
@@ -365,10 +396,7 @@ Partial Class LKWS
Else Else
strtemp2 = l3.Nationalität strtemp2 = l3.Nationalität
End If End If
Dim str2temptemp = String.Empty tbl_mainpage_M.Rows.Clear()
For Each Ltenp In list2
str2temptemp = String.Join("-", Ltenp)
Next
tr1_M.Attributes.Add("OnClick", "Javascript:TableRow_Click_M(""" & strtemp2 & """,""" & l3.KfzKennzeichen & """)") tr1_M.Attributes.Add("OnClick", "Javascript:TableRow_Click_M(""" & strtemp2 & """,""" & l3.KfzKennzeichen & """)")
tbl_2.Rows.Add(tr1_M) tbl_2.Rows.Add(tr1_M)
cnt += 1 cnt += 1