VERAG_Homepage/Customers/SDL/Formtemplate FRESJUS_Tunnelkarte.aspx.vb

Imports System.Web.Script.Services
Imports System.Web.Services

Partial Class Customers_Default3
    Inherits System.Web.UI.Page
    Shared Kdnrtext As String = String.Empty
    Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load


        Kdnrtext = Request.QueryString("CustomerID").ToString
        If String.Equals(Session.Item("CustomerID"), String.Empty) Then
            Kdnrtext = Request.QueryString("CustomerID").ToString
        Else
            Kdnrtext = Session.Item("CustomerID").ToString
        End If
        If Page.IsPostBack = True Then
            Kdnrtext = Request.QueryString("CustomerID").ToString
            If String.Equals(Session.Item("CustomerID"), String.Empty) Then
                Kdnrtext = Request.QueryString("CustomerID").ToString
            Else
                Kdnrtext = Session.Item("CustomerID").ToString
            End If
            Page.MaintainScrollPositionOnPostBack = True
        Else
            Kdnrtext = Request.QueryString("CustomerID").ToString
            If String.Equals(Session.Item("CustomerID"), String.Empty) Then
                Kdnrtext = Request.QueryString("CustomerID").ToString
            Else
                Kdnrtext = Session.Item("CustomerID").ToString
            End If
            Page.MaintainScrollPositionOnPostBack = False
        End If
    End Sub
    <Serializable>
    Public Class 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(stemp As String)
            _sEcho = stemp
        End Sub
        Private _aaData As New List(Of List(Of String))

        Public Property AaData As List(Of List(Of String))
            Get
                Return _aaData
            End Get
            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 filltabledetails(Kennzeichen As String) As FormattedList
        Dim list As List(Of String) = New List(Of String)
        Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
        Dim listdetails As New List(Of List(Of String))
        For Each l2 In list2
            Dim strtempbestelltam As String = String.Empty
            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.Bestelldatum) = False Then
                strtempbestelltam = l2.Bestelldatum.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(strtempbestelltam)
            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 strtempbestelltam As String = String.Empty
            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.Bestelldatum) = False Then
                strtempbestelltam = l2.Bestelldatum.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(strtempbestelltam)
            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