JSON gibt die angeforderten Daten korrekt zurück

Es wird an der Tabellenerstellung gearbeitet.

Customers/LKWs.aspx

@@ -368,7 +368,7 @@
                     this.SDL,
                     this.Bez,
                     this.Gueltigbis,
-                    this.kart
+                    this.Kartnr
                 ]);
             });
 
@@ -386,6 +386,7 @@
                         "data": "{'sEcho': '" + aoData[0].value + "'}",
                         "success": function (msg) {
                             fnCallback(msg.d);
+                            alert(msg.d)
                         }
                     });
                 }

Customers/LKWs.aspx.vb

@@ -517,9 +517,8 @@ Partial Class LKWS
             Me.Vermerk = Vermerk
         End Sub
     End Class
+    <Serializable>
     Public Class FormattedList
-        Dim FormattedList As New FormattedList()
-
         Private _sEcho As String
         Private _iTotalRecords As String
         Private _ivisibleRecords As String
@@ -543,57 +542,34 @@ Partial Class LKWS
             Return _sEcho
         End Function
 
-        Public Sub SetsEcho(AutoPropertyValue As String)
+        Public Sub SetsEcho(stemp As String)
-            _sEcho = AutoPropertyValue
+            _sEcho = stemp
         End Sub
-        Private _aaData As New List(Of String)
+        Private _aaData As New List(Of List(Of String))
 
-        Public Property AaData As List(Of String)
+        Public Property AaData As List(Of List(Of String))
             Get
                 Return _aaData
             End Get
-            Set(value As List(Of String))
+            Set(value As List(Of List(Of String)))
                 _aaData = value
             End Set
         End Property
+        Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
+            Me._sEcho = sEcho
+            Me._iTotalRecords = iTotalRecords
+            Me._ivisibleRecords = iTotalDisplayRecords
+            Me.AaData = aaData
+        End Sub
     End Class
     <WebMethod>
     <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
-    Public Shared Function filltable2(Kennzeichen As String) As List(Of Entry)
+    Public Shared Function filltable2(Kennzeichen As String) As FormattedList
-        Dim list As List(Of Entry) = New List(Of Entry)
+        Dim list As List(Of String) = New List(Of String)
         Dim strtemp As String = Kennzeichen.Remove(0, 1)
         Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
         Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
-
+        Dim container As New List(Of List(Of String))
-        For Each l2 In list2
-            Dim strtempKat As String = String.Empty
-            Dim strtempKartenNr As String = String.Empty
-            Dim strtempGueltigBis As String = String.Empty
-
-            If IsNothing(l2.Kategorie) = False Then
-                strtempKat = l2.Kategorie.ToString
-            End If
-            If IsNothing(l2.hasentry) = False Then
-                strtempGueltigBis = l2.GültigBis.ToString
-            End If
-            If IsNothing(l2.KartenNr) = False Then
-                strtempKartenNr = l2.KartenNr.ToString
-            End If
-            Dim Entrytemp As Entry = New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr)
-            list.Add(Entrytemp)
-        Next
-
-        Return list
-    End Function
-
-    <WebMethod>
-    <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
-    Public Shared Function filltable2_M(Kennzeichen As String) As List(Of Entry)
-        Dim list As List(Of Entry) = New List(Of Entry)
-        Dim strtemp As String = Kennzeichen.Remove(0, 1)
-        Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
-        Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
-
         For Each l2 In list2
             Dim strtempKat As String = String.Empty
             Dim strtempKartenNr As String = String.Empty
@@ -608,20 +584,62 @@ Partial Class LKWS
             If IsNothing(l2.KartenNr) = False Then
                 strtempKartenNr = l2.KartenNr.ToString
             End If
-            Dim Entrytemp As Entry = New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr)
+            Dim Entrytemp As New List(Of String)
-            list.Add(Entrytemp)
+            Entrytemp.Add(l2.SDLNr.ToString)
+            Entrytemp.Add(strtempKat)
+            Entrytemp.Add(strtempGueltigBis)
+            Entrytemp.Add(strtempKartenNr)
+            container.Add(Entrytemp)
         Next
-        Return list
+
+        HttpContext.Current.Response.ContentType = "application/json"
+        Return New FormattedList(HttpContext.Current.Request("sEcho"), container.Count.ToString, container.Count.ToString, container)
     End Function
 
     <WebMethod>
     <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
-    Public Shared Function filltabledetails(Kennzeichen As String) As List(Of Entry)
+    Public Shared Function filltable2_M(Kennzeichen As String) As FormattedList
-        Dim listdetails As List(Of Entry) = New List(Of Entry)
+        Dim list As List(Of String) = New List(Of String)
         Dim strtemp As String = Kennzeichen.Remove(0, 1)
         Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
         Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
+        Dim container As New List(Of List(Of String))
+        For Each l2 In list2
+            Dim strtempKat As String = String.Empty
+            Dim strtempKartenNr As String = String.Empty
+            Dim strtempGueltigBis As String = String.Empty
 
+            If IsNothing(l2.Kategorie) = False Then
+                strtempKat = l2.Kategorie.ToString
+            End If
+            If IsNothing(l2.GültigBis) = False Then
+                strtempGueltigBis = l2.GültigBis.ToString
+            End If
+            If IsNothing(l2.KartenNr) = False Then
+                strtempKartenNr = l2.KartenNr.ToString
+            End If
+            Dim Entrytemp As New List(Of String)
+            Entrytemp.Add(l2.SDLNr.ToString)
+            Entrytemp.Add(strtempKat)
+            Entrytemp.Add(strtempGueltigBis)
+            Entrytemp.Add(strtempKartenNr)
+            container.Add(Entrytemp)
+        Next
+
+        HttpContext.Current.Response.ContentType = "application/json"
+
+        Return New FormattedList(HttpContext.Current.Request("sEcho"), container.Count.ToString, container.Count.ToString, container)
+
+    End Function
+
+    <WebMethod>
+    <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
+    Public Shared Function filltabledetails(Kennzeichen As String) As FormattedList
+        Dim list As List(Of String) = New List(Of String)
+        Dim strtemp As String = Kennzeichen.Remove(0, 1)
+        Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
+        Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
+        Dim listdetails As New List(Of List(Of String))
         For Each l2 In list2
             Dim strtempKat As String = String.Empty
             Dim strtempKartenNr As String = String.Empty
@@ -793,20 +811,66 @@ Partial Class LKWS
                 strtempAenderungsdatum = l2.Änderungsdatum.ToString
             End If
 
-            listdetails.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
+            ' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
+            list.Add(l2.SDLNr.ToString)
+            list.Add(strtempKat)
+            list.Add(strtempGueltigBis)
+            list.Add(strtempKartenNr)
+            list.Add(strtempKaut)
+            list.Add(strtempArchivt)
+            list.Add(strtempBelegNr)
+            list.Add(strtempErsatzkarte)
+            list.Add(strtempDefektAm)
+            list.Add(strtempFahrer)
+            list.Add(strtempGesperrtAm)
+            list.Add(strtempHistory)
+            list.Add(strtempHasEntry)
+            list.Add(strtempFlottenPIN)
+            list.Add(strtempFREJUS_CARD_Nr)
+            list.Add(strtempGestohlenAm)
+            list.Add(strtempLKWAbgemeldet)
+            list.Add(strtempLKWAbgemeldetAM)
+            list.Add(strtempLieferdatum)
+            list.Add(strtempMasterPIN)
+            list.Add(strtempMOTORWAY_CARD_Nr)
+            list.Add(strtempMSE_Kd_Nr)
+            list.Add(strtempOBUID)
+            list.Add(strtempPAN_Nr)
+            list.Add(strtempPartner)
+            list.Add(strtempPIN)
+            list.Add(strtempRefKundenNr)
+            list.Add(strtempRetourniert)
+            list.Add(strtempRetourniertAm)
+            list.Add(strtempSachbearbeiter)
+            list.Add(strtempSERIE_Nr)
+            list.Add(strtempStatus)
+            list.Add(strtempTelepassErsatzkarte)
+            list.Add(strtempTelepassErsatzkarteAm)
+            list.Add(strtempTELEPASS_Kd_Nr)
+            list.Add(strtempTELEPASS_Nr)
+            list.Add(strtempUmstellungsdatum)
+            list.Add(strtempVerloren)
+            list.Add(strtempVertragsabschlussdatum)
+            list.Add(strtempVertragsNr)
+            list.Add(strtempVIACARD)
+            list.Add(strtempAenderungsdatum)
+            list.Add(strtempVermerk)
+            listdetails.Add(list)
         Next
 
-        Return listdetails
+        HttpContext.Current.Response.ContentType = "application/json"
+        Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails)
+
     End Function
     <WebMethod>
     <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
-    Public Shared Function filltabledetails_M(Kennzeichen As String) As List(Of Entry)
+    Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList
-        Dim listdetails_M As List(Of Entry) = New List(Of Entry)
+        Dim list_M As List(Of String) = New List(Of String)
         Dim strtemp As String = Kennzeichen.Remove(0, 1)
         Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
-        Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
+        Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
-
+        Dim listdetails_M As New List(Of List(Of String))
-        For Each l2 In list2
+        For Each l2 In list2_M
             Dim strtempKat As String = String.Empty
             Dim strtempKartenNr As String = String.Empty
             Dim strtempGueltigBis As String = String.Empty
@@ -976,10 +1040,54 @@ Partial Class LKWS
             If IsNothing(l2.Änderungsdatum) = False Then
                 strtempAenderungsdatum = l2.Änderungsdatum.ToString
             End If
-
+            ' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
-            listdetails_M.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
+            list_M.Add(l2.SDLNr.ToString)
+            list_M.Add(strtempKat)
+            list_M.Add(strtempGueltigBis)
+            list_M.Add(strtempKartenNr)
+            list_M.Add(strtempKaut)
+            list_M.Add(strtempArchivt)
+            list_M.Add(strtempBelegNr)
+            list_M.Add(strtempErsatzkarte)
+            list_M.Add(strtempDefektAm)
+            list_M.Add(strtempFahrer)
+            list_M.Add(strtempGesperrtAm)
+            list_M.Add(strtempHistory)
+            list_M.Add(strtempHasEntry)
+            list_M.Add(strtempFlottenPIN)
+            list_M.Add(strtempFREJUS_CARD_Nr)
+            list_M.Add(strtempGestohlenAm)
+            list_M.Add(strtempLKWAbgemeldet)
+            list_M.Add(strtempLKWAbgemeldetAM)
+            list_M.Add(strtempLieferdatum)
+            list_M.Add(strtempMasterPIN)
+            list_M.Add(strtempMOTORWAY_CARD_Nr)
+            list_M.Add(strtempMSE_Kd_Nr)
+            list_M.Add(strtempOBUID)
+            list_M.Add(strtempPAN_Nr)
+            list_M.Add(strtempPartner)
+            list_M.Add(strtempPIN)
+            list_M.Add(strtempRefKundenNr)
+            list_M.Add(strtempRetourniert)
+            list_M.Add(strtempRetourniertAm)
+            list_M.Add(strtempSachbearbeiter)
+            list_M.Add(strtempSERIE_Nr)
+            list_M.Add(strtempStatus)
+            list_M.Add(strtempTelepassErsatzkarte)
+            list_M.Add(strtempTelepassErsatzkarteAm)
+            list_M.Add(strtempTELEPASS_Kd_Nr)
+            list_M.Add(strtempTELEPASS_Nr)
+            list_M.Add(strtempUmstellungsdatum)
+            list_M.Add(strtempVerloren)
+            list_M.Add(strtempVertragsabschlussdatum)
+            list_M.Add(strtempVertragsNr)
+            list_M.Add(strtempVIACARD)
+            list_M.Add(strtempAenderungsdatum)
+            list_M.Add(strtempVermerk)
+            listdetails_M.Add(list_M)
         Next
 
-        Return listdetails_M
+        HttpContext.Current.Response.ContentType = "application/json"
+        Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails_M.Count.ToString, listdetails_M.Count.ToString, listdetails_M)
     End Function
 End Class