formattedlist implementiert zu besser regulierbarer Übersicht der JSON Tabellenrückgabe.

Customers/LKWs.aspx.vb

@@ -517,7 +517,46 @@ Partial Class LKWS
             Me.Vermerk = Vermerk
         End Sub
     End Class
+    Public Class FormattedList
+        Dim FormattedList As New FormattedList()
 
+        Private _sEcho As String
+        Private _iTotalRecords As String
+        Private _ivisibleRecords As String
+        Public Function GetivisibleRecords() As String
+            Return _ivisibleRecords
+        End Function
+
+        Public Sub SetivisibleRecords(AutoPropertyValue As String)
+            _ivisibleRecords = AutoPropertyValue
+        End Sub
+
+        Public Function GetiTotalRecords() As String
+            Return _iTotalRecords
+        End Function
+
+        Public Sub SetiTotalRecords(AutoPropertyValue As String)
+            _iTotalRecords = AutoPropertyValue
+        End Sub
+
+        Public Function GetsEcho() As String
+            Return _sEcho
+        End Function
+
+        Public Sub SetsEcho(AutoPropertyValue As String)
+            _sEcho = AutoPropertyValue
+        End Sub
+        Private _aaData As New List(Of String)
+
+        Public Property AaData As List(Of String)
+            Get
+                Return _aaData
+            End Get
+            Set(value As List(Of String))
+                _aaData = value
+            End Set
+        End Property
+    End Class
     <WebMethod>
     <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
     Public Shared Function filltable2(Kennzeichen As String) As List(Of Entry)
@@ -543,6 +582,7 @@ Partial Class LKWS
             Dim Entrytemp As Entry = New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr)
             list.Add(Entrytemp)
         Next
+
         Return list
     End Function