Anpassungen Variablen/Logik

Customers/LKWs.aspx.vb

@@ -2,6 +2,7 @@
 Imports System
 Imports System.ComponentModel
 Imports System.Web.Script.Serialization
+Imports System.Web.Script.Services
 Imports System.Web.Security
 Imports System.Web.Services
 Imports System.Web.UI.WebControls
@@ -132,10 +133,10 @@ Partial Class LKWS
             For Each l2 In list2
                 Dim String2 As String = String.Empty
 
-                If IsNothing(l2.Schadstoffklasse) = False Then
-                    Stringtemp = l2.Kategorie.ToString
+                If IsNothing(l2.Kategorie) = True Then
+                    Stringtemp = "Keine Angabe"
                 Else
-                    Stringtemp = String.Empty
+                    Stringtemp = l2.Kategorie.ToString
                 End If
 
                 Dim tc_SDL As TableCell = New TableCell
@@ -166,7 +167,7 @@ Partial Class LKWS
                 strtemp2 = l1.Nationalität
             End If
 
-            tr1.Attributes.Add("onclick", "Javascript:doPostBack('""" + tr1.Cells.Item(0).Text + """,""" + strtemp2 + """,""" + ConvertToJSON(list3) + """')")
+            tr1.Attributes.Add("onclick", "Javascript:doPostBack('""" + tr1.Cells.Item(0).Text + """,""" + strtemp2 + """')")
             cnt += 1
             tbl_sidemenue.Rows.Add(tr1)
         Next
@@ -265,8 +266,8 @@ Partial Class LKWS
             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) + """')")
             tbl_sidemenue.Rows.Add(tr2)
-                cnt += 1
-            Next
+            cnt += 1
+        Next
     End Sub
 
     Protected Sub btn_Suchen_M_Click(sender As Object, e As EventArgs)
@@ -397,7 +398,7 @@ Partial Class LKWS
 
             For Each l2 In list2
                 Dim String2 As String = String.Empty
-                If IsNothing(l2.Schadstoffklasse) = False Then
+                If IsNothing(l2.Kategorie) = False Then
                     Stringtemp_M = l2.Kategorie.ToString
                 Else
                     Stringtemp_M = String.Empty
@@ -435,37 +436,51 @@ Partial Class LKWS
     End Sub
 
     <WebMethod>
-    Public Sub filltable2(Tbl As Table, SDLNr As String, Bezeichnung As String, GueltigBis As String, KartNr As String)
-        Dim tc_SDLNr As TableCell = New TableCell
-        Dim tc_Bezeichnung As TableCell = New TableCell
-        Dim tc_GueltigBis As TableCell = New TableCell
-        Dim tc_KartNr As TableCell = New TableCell
-        Dim tr As TableRow = New TableRow
-        tc_SDLNr.Text = SDLNr
-        tc_Bezeichnung.Text = Bezeichnung
-        tc_GueltigBis.Text = GueltigBis
-        tc_KartNr.Text = KartNr
-        tr.Cells.Add(tc_SDLNr)
-        tr.Cells.Add(tc_Bezeichnung)
-        tr.Cells.Add(tc_GueltigBis)
-        tr.Cells.Add(tc_KartNr)
-        Tbl.Rows.Add(tr)
+    <ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
+    Public Sub filltable2(Kennzeichen As String)
+        Dim tbl As Table = New Table
+        Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, Kennzeichen)
+        For Each l2 In list2
+            Dim tc_SDLNr As TableCell = New TableCell
+            Dim tc_Bezeichnung As TableCell = New TableCell
+            Dim tc_GueltigBis As TableCell = New TableCell
+            Dim tc_KartNr As TableCell = New TableCell
+            Dim tr As TableRow = New TableRow
+
+            tc_SDLNr.Text = l2.SDLNr.ToString
+            tc_Bezeichnung.Text = l2.Kategorie.ToString
+            tc_GueltigBis.Text = l2.GültigBis.ToString
+            tc_KartNr.Text = l2.KartenNr.ToString
+            tr.Cells.Add(tc_SDLNr)
+            tr.Cells.Add(tc_Bezeichnung)
+            tr.Cells.Add(tc_GueltigBis)
+            tr.Cells.Add(tc_KartNr)
+            tr.Attributes.Add("style", "background-color:#ff2500;color:#fff;font-weight:400;")
+            tbl.Rows.Add(tr)
+        Next
     End Sub
     <WebMethod>
-    Public Sub filltable_M(Tbl As Table, SDLNr As String, Bezeichnung As String, GueltigBis As String, KartNr As String)
-        Dim tc_SDLNr As TableCell = New TableCell
-        Dim tc_Bezeichnung As TableCell = New TableCell
-        Dim tc_GueltigBis As TableCell = New TableCell
-        Dim tc_KartNr As TableCell = New TableCell
-        Dim tr_M As TableRow = New TableRow
-        tc_SDLNr.Text = SDLNr
-        tc_Bezeichnung.Text = Bezeichnung
-        tc_GueltigBis.Text = GueltigBis
-        tc_KartNr.Text = KartNr
-        tr_M.Cells.Add(tc_SDLNr)
-        tr_M.Cells.Add(tc_Bezeichnung)
-        tr_M.Cells.Add(tc_GueltigBis)
-        tr_M.Cells.Add(tc_KartNr)
-        Tbl.Rows.Add(tr_M)
+    <ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
+    Public Sub filltable_M(Kennzeichen As String)
+        Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, Kennzeichen)
+        Dim Tbl As New Table
+        For Each l2 In list2
+            Dim tc_SDLNr As TableCell = New TableCell
+            Dim tc_Bezeichnung As TableCell = New TableCell
+            Dim tc_GueltigBis As TableCell = New TableCell
+            Dim tc_KartNr As TableCell = New TableCell
+            Dim tr_M As TableRow = New TableRow
+
+            tc_SDLNr.Text = l2.SDLNr.ToString
+            tc_Bezeichnung.Text = l2.Kategorie.ToString
+            tc_GueltigBis.Text = l2.GültigBis.ToString
+            tc_KartNr.Text = l2.KartenNr.ToString
+            tr_M.Cells.Add(tc_SDLNr)
+            tr_M.Cells.Add(tc_Bezeichnung)
+            tr_M.Cells.Add(tc_GueltigBis)
+            tr_M.Cells.Add(tc_KartNr)
+            tr_M.Attributes.Add("style", "background-color:#ff2500;color:#fff;font-weight:400;")
+            Tbl.Rows.Add(tr_M)
+        Next
     End Sub
 End Class