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

Customers/LKWs.aspx.vb

@@ -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 & """,""" & strtemp2 & """')")
-            tr1_M.Attributes.Add("OnClick", "Javascript:doPostBack_M('""" & tr1_M.Cells.Item(0).Text & """,""" & ConvertToJSON(list3) & """')")
-            tbl_2.Rows.Add(tr1_M)
             cnt += 1
+            tbl_2.Rows.Add(tr1_M)
         Next
     End Sub