JSON gibt die angeforderten Daten korrekt zurück
Es wird an der Tabellenerstellung gearbeitet.
This commit is contained in:
ja
@@ -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)
|
||||
_sEcho = AutoPropertyValue
|
||||
Public Sub SetsEcho(stemp As String)
|
||||
_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)
|
||||
Dim list As List(Of Entry) = New List(Of Entry)
|
||||
Public Shared Function filltable2(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)
|
||||
|
||||
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)
|
||||
|
||||
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
|
||||
@@ -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)
|
||||
list.Add(Entrytemp)
|
||||
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
|
||||
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)
|
||||
Dim listdetails As List(Of Entry) = New List(Of Entry)
|
||||
Public Shared Function filltable2_M(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 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)
|
||||
Dim listdetails_M As List(Of Entry) = New List(Of Entry)
|
||||
Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList
|
||||
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)
|
||||
|
||||
For Each l2 In list2
|
||||
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_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
|
||||
|
||||
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.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
|
||||
|
||||
Reference in New Issue
Block a user