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

Änderungen Logik wird auf Serverseite verlegt, um Client-Ressourcen zu sparen

Browse Source
This commit is contained in:
ja
2021-12-31 10:27:10 +01:00
parent 284a7c26a1
commit 1b69ec714e
1 changed files with 4 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
Customers/LKWs.aspx.vb
View File

@@ -220,7 +220,6 @@ Partial Class LKWS
Dim tc_Vermerk As TableCell = New TableCell()
tc_KfzKennz.Text = l2.KfzKennzeichen.ToString
tr2.Cells.Add(tc_KfzKennz)
Dim list5 = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, l2.KfzKennzeichen)
Dim strtempnat As String = String.Empty
If IsNothing(l2.Nationalität) = True Then
strtempnat = "Keine Angabe!"
@@ -254,17 +253,8 @@ Partial Class LKWS
End If
tr2.Cells.Add(tc_Vermerk)
For Each l5 In list5
Dim strstrtemp As String = String.Empty
If IsNothing(l5.Schadstoffklasse.ToString) = True Then
strstrtemp = "Keine Angabe!"
Else
strstrtemp = l5.Schadstoffklasse.ToString
End If
list3.Add(l5.SDLNr.ToString + "," + strstrtemp + "," + l5.GültigBis.ToString + "," + l5.KartenNr)
Next
initcells(tblhrow, tbhc_KFZKennz, tbhc_Nat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr2, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt)
tr2.Attributes.Add("onclick", "Javascript:doPostBack('""" + tr2.Cells.Item(0).Text + """,""" + strtempnat + """,""" + ConvertToJSON(list3) + """')")
tr2.Attributes.Add("onclick", "Javascript:doPostBack('""" + tr2.Cells.Item(0).Text + """,""" + strtempnat + """')")
tbl_sidemenue.Rows.Add(tr2)
cnt += 1
Next
@@ -354,8 +344,7 @@ Partial Class LKWS
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, l3.KfzKennzeichen)
Dim list3 As List(Of String) = New List(Of String)
Dim strstrtemp As String = String.Empty
tc_KfzKennz_M.Text = l3.KfzKennzeichen
tr1_M.Cells.Add(tc_KfzKennz_M)
@@ -396,31 +385,6 @@ Partial Class LKWS
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
For Each l2 In list2
Dim String2 As String = String.Empty
If IsNothing(l2.Kategorie) = False Then
Stringtemp_M = l2.Kategorie.ToString
Else
Stringtemp_M = String.Empty
End If
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)
strstrtemp += String.Join("-", l2.SDLNr.ToString + "," + Stringtemp_M + "," + l2.GültigBis.ToString + "," + l2.KartenNr.ToString)
'tbl_mainpage_M.Rows.Add(tr)
TableRows_M.Add(tr)
Next
Dim strtemp2 As String = String.Empty
If String.IsNullOrEmpty(l3.Nationalität) Then
strtemp2 = "Keine Angabe"
@@ -428,10 +392,9 @@ Partial Class LKWS
strtemp2 = l3.Nationalität
End If
tbl_mainpage_M.Rows.Clear()
list3.Add(strstrtemp)
tr1_M.Attributes.Add("OnClick", "Javascript:doPostBack_M('""" & tr1_M.Cells.Item(0).Text & """,""" & ConvertToJSON(list3) & """')")
tbl_2.Rows.Add(tr1_M)
tr1_M.Attributes.Add("OnClick", "Javascript:doPostBack_M('""" & tr1_M.Cells.Item(0).Text & """,""" & strtemp2 & """')")
cnt += 1
tbl_2.Rows.Add(tr1_M)
Next
End Sub