Die Parameter aller Objekte wurden sicherheitshalber übergeben. Anpassungen auf jeweilige Werteverbrauche wird nachmittags vorgenommen, um JSON-Größe zu minimieren.
This commit is contained in:
ja
@@ -36,7 +36,7 @@ Partial Class LKWS
|
||||
Try
|
||||
|
||||
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
|
||||
Kdnrtext = Request.QueryString("P1")
|
||||
Kdnrtext = Request.QueryString("CustomerID")
|
||||
Else
|
||||
Kdnrtext = Session.Item("CustomerID")
|
||||
End If
|
||||
@@ -430,6 +430,7 @@ Partial Class LKWS
|
||||
Private Fahrer As String = String.Empty
|
||||
Private GesperrtAm As String = String.Empty
|
||||
Private History As String = String.Empty
|
||||
Private Kennzeichen As String = String.Empty
|
||||
Private HasEntry As String = String.Empty
|
||||
Private FlottenPIN As String = String.Empty
|
||||
Private FREJUS_CARD_Nr As String = String.Empty
|
||||
@@ -462,11 +463,12 @@ Partial Class LKWS
|
||||
Private Aenderungsdatum As String = String.Empty
|
||||
Private Vermerk As String = String.Empty
|
||||
|
||||
Public Sub New(ByVal SDL As String, Bez As String, ByVal GueltigBis As String, ByVal KartNr As String)
|
||||
Public Sub New(ByVal SDL As String, Bez As String, ByVal GueltigBis As String, ByVal KartNr As String, ByVal Kennzeich As String)
|
||||
Me.SDLNr = SDL
|
||||
Me.Bez = Bez
|
||||
Me.GueltigBis = GueltigBis
|
||||
Me.Kartnr = KartNr
|
||||
Me.Kennzeichen = Kennzeich
|
||||
End Sub
|
||||
|
||||
Public Sub New(ByVal SDL As String, Bez As String, ByVal GueltigBis As String, ByVal KartNr As String, ByVal Kaut As String, ByVal Archivt As String, ByVal BelegNr As String, ByVal Ersatzkarte As String, ByVal DefektAm As String, ByVal Fahrer As String, ByVal GesperrtAm As String,
|
||||
@@ -591,6 +593,7 @@ Partial Class LKWS
|
||||
Entrytemp.Add(strtempKat)
|
||||
Entrytemp.Add(strtempGueltigBis)
|
||||
Entrytemp.Add(strtempKartenNr)
|
||||
Entrytemp.Add(l2.KfzKennzeichen)
|
||||
container.Add(Entrytemp)
|
||||
Next
|
||||
|
||||
@@ -625,6 +628,7 @@ Partial Class LKWS
|
||||
Entrytemp.Add(strtempKat)
|
||||
Entrytemp.Add(strtempGueltigBis)
|
||||
Entrytemp.Add(strtempKartenNr)
|
||||
Entrytemp.Add(l2.KfzKennzeichen)
|
||||
container.Add(Entrytemp)
|
||||
Next
|
||||
|
||||
@@ -633,461 +637,5 @@ Partial Class LKWS
|
||||
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
|
||||
Dim strtempGueltigBis As String = String.Empty
|
||||
Dim strtempKaut As String = String.Empty
|
||||
Dim strtempArchivt As String = String.Empty
|
||||
Dim strtempBelegNr As String = String.Empty
|
||||
Dim strtempErsatzkarte As String = String.Empty
|
||||
Dim strtempDefektAm As String = String.Empty
|
||||
Dim strtempFahrer As String = String.Empty
|
||||
Dim strtempGesperrtAm As String = String.Empty
|
||||
Dim strtempHistory As String = String.Empty
|
||||
Dim strtempHasEntry As String = String.Empty
|
||||
Dim strtempFlottenPIN As String = String.Empty
|
||||
Dim strtempFREJUS_CARD_Nr As String = String.Empty
|
||||
Dim strtempGestohlenAm As String = String.Empty
|
||||
Dim strtempLKWAbgemeldet As String = String.Empty
|
||||
Dim strtempLKWAbgemeldetAM As String = String.Empty
|
||||
Dim strtempLieferdatum As String = String.Empty
|
||||
Dim strtempMasterPIN As String = String.Empty
|
||||
Dim strtempMOTORWAY_CARD_Nr As String = String.Empty
|
||||
Dim strtempMSE_Kd_Nr As String = String.Empty
|
||||
Dim strtempOBUID As String = String.Empty
|
||||
Dim strtempPAN_Nr As String = String.Empty
|
||||
Dim strtempVermerk As String = String.Empty
|
||||
Dim strtempPartner As String = String.Empty
|
||||
Dim strtempPIN As String = String.Empty
|
||||
Dim strtempRefKundenNr As String = String.Empty
|
||||
Dim strtempRetourniert As String = String.Empty
|
||||
Dim strtempRetourniertAm As String = String.Empty
|
||||
Dim strtempSachbearbeiter As String = String.Empty
|
||||
Dim strtempSERIE_Nr As String = String.Empty
|
||||
Dim strtempStatus As String = String.Empty
|
||||
Dim strtempTelepassErsatzkarte As String = String.Empty
|
||||
Dim strtempTelepassErsatzkarteAm As String = String.Empty
|
||||
Dim strtempTELEPASS_Kd_Nr As String = String.Empty
|
||||
Dim strtempTELEPASS_Nr As String = String.Empty
|
||||
Dim strtempUmstellungsdatum As String = String.Empty
|
||||
Dim strtempVerloren As String = String.Empty
|
||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
||||
Dim strtempVertragsNr As String = String.Empty
|
||||
Dim strtempVIACARD As String = String.Empty
|
||||
Dim strtempAenderungsdatum As String = String.Empty
|
||||
|
||||
If IsNothing(l2.Kategorie) = False Then
|
||||
strtempKat = l2.Kategorie.ToString
|
||||
End If
|
||||
If IsNothing(l2.Kaution) = False Then
|
||||
strtempKaut = l2.Kaution.ToString
|
||||
End If
|
||||
If IsNothing(l2.Archiviert) = False Then
|
||||
strtempArchivt = l2.Archiviert.ToString
|
||||
End If
|
||||
If IsNothing(l2.BelegNr) = False Then
|
||||
strtempBelegNr = l2.BelegNr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Ersatzkarte) = False Then
|
||||
strtempErsatzkarte = l2.Ersatzkarte.ToString
|
||||
End If
|
||||
If IsNothing(l2.DefektAm) = False Then
|
||||
strtempDefektAm = l2.DefektAm.ToString
|
||||
End If
|
||||
If IsNothing(l2.Fahrer) = False Then
|
||||
strtempFahrer = l2.Fahrer.ToString
|
||||
End If
|
||||
If IsNothing(l2.GesperrtAm) = False Then
|
||||
strtempGesperrtAm = l2.GesperrtAm.ToString
|
||||
End If
|
||||
If IsNothing(l2.History) = False Then
|
||||
strtempHistory = l2.History.ToString
|
||||
End If
|
||||
If IsNothing(l2.hasentry) = False Then
|
||||
strtempHasEntry = l2.hasentry.ToString
|
||||
End If
|
||||
If IsNothing(l2.FlottenPIN) = False Then
|
||||
strtempFlottenPIN = l2.FlottenPIN.ToString
|
||||
End If
|
||||
If IsNothing(l2.FREJUS_CARD_Nr) = False Then
|
||||
strtempFREJUS_CARD_Nr = l2.FREJUS_CARD_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.GestohlenAm) = False Then
|
||||
strtempGestohlenAm = l2.GestohlenAm.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
|
||||
If IsNothing(l2.LKWAbgemeldet) = False Then
|
||||
strtempLKWAbgemeldet = l2.LKWAbgemeldet.ToString
|
||||
End If
|
||||
If IsNothing(l2.LKWAbgemeldetAM) = False Then
|
||||
strtempLKWAbgemeldetAM = l2.LKWAbgemeldetAM.ToString
|
||||
End If
|
||||
If IsNothing(l2.Lieferdatum) = False Then
|
||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||
End If
|
||||
If IsNothing(l2.MasterPIN) = False Then
|
||||
strtempMasterPIN = l2.MasterPIN.ToString
|
||||
End If
|
||||
If IsNothing(l2.MOTORWAY_CARD_Nr) = False Then
|
||||
strtempMOTORWAY_CARD_Nr = l2.MOTORWAY_CARD_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.MSE_Kd_Nr) = False Then
|
||||
strtempMSE_Kd_Nr = l2.MSE_Kd_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.OBUID) = False Then
|
||||
strtempOBUID = l2.OBUID.ToString
|
||||
End If
|
||||
If IsNothing(l2.PAN_Nr) = False Then
|
||||
strtempPAN_Nr = l2.PAN_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Partner) = False Then
|
||||
strtempPartner = l2.Partner.ToString
|
||||
End If
|
||||
If IsNothing(l2.PIN) = False Then
|
||||
strtempPIN = l2.PIN.ToString
|
||||
End If
|
||||
If IsNothing(l2.RefKundenNr) = False Then
|
||||
strtempRefKundenNr = l2.RefKundenNr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Retourniert) = False Then
|
||||
strtempRetourniert = l2.Retourniert.ToString
|
||||
End If
|
||||
If IsNothing(l2.RetourniertAm) = False Then
|
||||
strtempRetourniertAm = l2.RetourniertAm.ToString
|
||||
End If
|
||||
If IsNothing(l2.Sachbearbeiter) = False Then
|
||||
strtempSachbearbeiter = l2.Sachbearbeiter.ToString
|
||||
End If
|
||||
If IsNothing(l2.SERIE_Nr) = False Then
|
||||
strtempSERIE_Nr = l2.SERIE_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Status) = False Then
|
||||
strtempStatus = l2.Status.ToString
|
||||
End If
|
||||
If IsNothing(l2.TelepassErsatzkarte) = False Then
|
||||
strtempTelepassErsatzkarte = l2.TelepassErsatzkarte.ToString
|
||||
End If
|
||||
If IsNothing(l2.TelepassErsatzkarteAm) = False Then
|
||||
strtempTelepassErsatzkarteAm = l2.TelepassErsatzkarteAm.ToString
|
||||
End If
|
||||
If IsNothing(l2.TELEPASS_Kd_Nr) = False Then
|
||||
strtempTELEPASS_Kd_Nr = l2.TELEPASS_Kd_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.TELEPASS_Nr) = False Then
|
||||
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Umstellungsdatum) = False Then
|
||||
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
|
||||
End If
|
||||
If IsNothing(l2.Verloren) = False Then
|
||||
strtempVerloren = l2.Verloren.ToString
|
||||
End If
|
||||
If IsNothing(l2.Vermerk) = False Then
|
||||
strtempVermerk = l2.Vermerk.ToString
|
||||
End If
|
||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
||||
End If
|
||||
If IsNothing(l2.VertragsNr) = False Then
|
||||
strtempVertragsNr = l2.VertragsNr.ToString
|
||||
End If
|
||||
If IsNothing(l2.VIACARD) = False Then
|
||||
strtempVIACARD = l2.VIACARD.ToString
|
||||
End If
|
||||
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))
|
||||
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
|
||||
|
||||
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 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_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
|
||||
Dim strtempKaut As String = String.Empty
|
||||
Dim strtempArchivt As String = String.Empty
|
||||
Dim strtempBelegNr As String = String.Empty
|
||||
Dim strtempErsatzkarte As String = String.Empty
|
||||
Dim strtempDefektAm As String = String.Empty
|
||||
Dim strtempFahrer As String = String.Empty
|
||||
Dim strtempGesperrtAm As String = String.Empty
|
||||
Dim strtempHistory As String = String.Empty
|
||||
Dim strtempHasEntry As String = String.Empty
|
||||
Dim strtempFlottenPIN As String = String.Empty
|
||||
Dim strtempFREJUS_CARD_Nr As String = String.Empty
|
||||
Dim strtempGestohlenAm As String = String.Empty
|
||||
Dim strtempLKWAbgemeldet As String = String.Empty
|
||||
Dim strtempLKWAbgemeldetAM As String = String.Empty
|
||||
Dim strtempLieferdatum As String = String.Empty
|
||||
Dim strtempMasterPIN As String = String.Empty
|
||||
Dim strtempMOTORWAY_CARD_Nr As String = String.Empty
|
||||
Dim strtempMSE_Kd_Nr As String = String.Empty
|
||||
Dim strtempOBUID As String = String.Empty
|
||||
Dim strtempPAN_Nr As String = String.Empty
|
||||
Dim strtempPartner As String = String.Empty
|
||||
Dim strtempPIN As String = String.Empty
|
||||
Dim strtempRefKundenNr As String = String.Empty
|
||||
Dim strtempRetourniert As String = String.Empty
|
||||
Dim strtempRetourniertAm As String = String.Empty
|
||||
Dim strtempSachbearbeiter As String = String.Empty
|
||||
Dim strtempSERIE_Nr As String = String.Empty
|
||||
Dim strtempStatus As String = String.Empty
|
||||
Dim strtempTelepassErsatzkarte As String = String.Empty
|
||||
Dim strtempTelepassErsatzkarteAm As String = String.Empty
|
||||
Dim strtempTELEPASS_Kd_Nr As String = String.Empty
|
||||
Dim strtempTELEPASS_Nr As String = String.Empty
|
||||
Dim strtempUmstellungsdatum As String = String.Empty
|
||||
Dim strtempVerloren As String = String.Empty
|
||||
Dim strtempVermerk As String = String.Empty
|
||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
||||
Dim strtempVertragsNr As String = String.Empty
|
||||
Dim strtempVIACARD As String = String.Empty
|
||||
Dim strtempAenderungsdatum As String = String.Empty
|
||||
|
||||
If IsNothing(l2.Kategorie) = False Then
|
||||
strtempKat = l2.Kategorie.ToString
|
||||
End If
|
||||
If IsNothing(l2.Kaution) = False Then
|
||||
strtempKaut = l2.Kaution.ToString
|
||||
End If
|
||||
If IsNothing(l2.Archiviert) = False Then
|
||||
strtempArchivt = l2.Archiviert.ToString
|
||||
End If
|
||||
If IsNothing(l2.BelegNr) = False Then
|
||||
strtempBelegNr = l2.BelegNr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Ersatzkarte) = False Then
|
||||
strtempErsatzkarte = l2.Ersatzkarte.ToString
|
||||
End If
|
||||
If IsNothing(l2.DefektAm) = False Then
|
||||
strtempDefektAm = l2.DefektAm.ToString
|
||||
End If
|
||||
If IsNothing(l2.Fahrer) = False Then
|
||||
strtempFahrer = l2.Fahrer.ToString
|
||||
End If
|
||||
If IsNothing(l2.GesperrtAm) = False Then
|
||||
strtempGesperrtAm = l2.GesperrtAm.ToString
|
||||
End If
|
||||
If IsNothing(l2.History) = False Then
|
||||
strtempHistory = l2.History.ToString
|
||||
End If
|
||||
If IsNothing(l2.hasentry) = False Then
|
||||
strtempHasEntry = l2.hasentry.ToString
|
||||
End If
|
||||
If IsNothing(l2.FlottenPIN) = False Then
|
||||
strtempFlottenPIN = l2.FlottenPIN.ToString
|
||||
End If
|
||||
If IsNothing(l2.FREJUS_CARD_Nr) = False Then
|
||||
strtempFREJUS_CARD_Nr = l2.FREJUS_CARD_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.GestohlenAm) = False Then
|
||||
strtempGestohlenAm = l2.GestohlenAm.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
|
||||
If IsNothing(l2.LKWAbgemeldet) = False Then
|
||||
strtempLKWAbgemeldet = l2.LKWAbgemeldet.ToString
|
||||
End If
|
||||
If IsNothing(l2.LKWAbgemeldetAM) = False Then
|
||||
strtempLKWAbgemeldetAM = l2.LKWAbgemeldetAM.ToString
|
||||
End If
|
||||
If IsNothing(l2.Lieferdatum) = False Then
|
||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||
End If
|
||||
If IsNothing(l2.MasterPIN) = False Then
|
||||
strtempMasterPIN = l2.MasterPIN.ToString
|
||||
End If
|
||||
If IsNothing(l2.MOTORWAY_CARD_Nr) = False Then
|
||||
strtempMOTORWAY_CARD_Nr = l2.MOTORWAY_CARD_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.MSE_Kd_Nr) = False Then
|
||||
strtempMSE_Kd_Nr = l2.MSE_Kd_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.OBUID) = False Then
|
||||
strtempOBUID = l2.OBUID.ToString
|
||||
End If
|
||||
If IsNothing(l2.PAN_Nr) = False Then
|
||||
strtempPAN_Nr = l2.PAN_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Partner) = False Then
|
||||
strtempPartner = l2.Partner.ToString
|
||||
End If
|
||||
If IsNothing(l2.PIN) = False Then
|
||||
strtempPIN = l2.PIN.ToString
|
||||
End If
|
||||
If IsNothing(l2.RefKundenNr) = False Then
|
||||
strtempRefKundenNr = l2.RefKundenNr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Retourniert) = False Then
|
||||
strtempRetourniert = l2.Retourniert.ToString
|
||||
End If
|
||||
If IsNothing(l2.RetourniertAm) = False Then
|
||||
strtempRetourniertAm = l2.RetourniertAm.ToString
|
||||
End If
|
||||
If IsNothing(l2.Sachbearbeiter) = False Then
|
||||
strtempSachbearbeiter = l2.Sachbearbeiter.ToString
|
||||
End If
|
||||
If IsNothing(l2.SERIE_Nr) = False Then
|
||||
strtempSERIE_Nr = l2.SERIE_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Status) = False Then
|
||||
strtempStatus = l2.Status.ToString
|
||||
End If
|
||||
If IsNothing(l2.TelepassErsatzkarte) = False Then
|
||||
strtempTelepassErsatzkarte = l2.TelepassErsatzkarte.ToString
|
||||
End If
|
||||
If IsNothing(l2.TelepassErsatzkarteAm) = False Then
|
||||
strtempTelepassErsatzkarteAm = l2.TelepassErsatzkarteAm.ToString
|
||||
End If
|
||||
If IsNothing(l2.TELEPASS_Kd_Nr) = False Then
|
||||
strtempTELEPASS_Kd_Nr = l2.TELEPASS_Kd_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.TELEPASS_Nr) = False Then
|
||||
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Umstellungsdatum) = False Then
|
||||
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
|
||||
End If
|
||||
If IsNothing(l2.Verloren) = False Then
|
||||
strtempVerloren = l2.Verloren.ToString
|
||||
End If
|
||||
If IsNothing(l2.Vermerk) = False Then
|
||||
strtempVermerk = l2.Vermerk.ToString
|
||||
End If
|
||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
||||
End If
|
||||
If IsNothing(l2.VertragsNr) = False Then
|
||||
strtempVertragsNr = l2.VertragsNr.ToString
|
||||
End If
|
||||
If IsNothing(l2.VIACARD) = False Then
|
||||
strtempVIACARD = l2.VIACARD.ToString
|
||||
End If
|
||||
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))
|
||||
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
|
||||
|
||||
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