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
        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
            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
            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 strtempLieferdatum As String = String.Empty
            Dim strtempPAN_Nr As String = String.Empty
            Dim strtempSERIE_Nr As String = String.Empty
            Dim strtempVermerk As String = String.Empty
            Dim strtempGueltigBis As String = String.Empty
            Dim strtempRetourniert As String = String.Empty
            Dim strtempVerloren As String = String.Empty
            Dim strtempGestohlen As String = String.Empty
            Dim strtempGesperrt As String = String.Empty
            Dim strtempDefekt As String = String.Empty
            Dim strtempArchivt As String = String.Empty

            If IsNothing(l2.Bestelldatum) = False Then
                strtempbestelltam = l2.Bestelldatum.ToString
            End If
            If IsNothing(l2.Lieferdatum) = False Then
                strtempLieferdatum = l2.Lieferdatum.ToString
            End If
            If IsNothing(l2.PAN_Nr) = False Then
                strtempPAN_Nr = l2.PAN_Nr.ToString
            End If
            If IsNothing(l2.SERIE_Nr) = False Then
                strtempSERIE_Nr = l2.SERIE_Nr.ToString
            End If
            If IsNothing(l2.Vermerk) = False Then
                strtempVermerk = l2.Vermerk.ToString
            End If
            If IsNothing(l2.GültigBis) = False Then
                strtempGueltigBis = l2.GültigBis.ToString
            End If
            If IsNothing(l2.Retourniert) = False Then
                strtempRetourniert = l2.Retourniert.ToString
            End If
            If IsNothing(l2.Verloren) = False Then
                strtempVerloren = l2.Verloren.ToString
            End If
            If IsNothing(l2.Gestohlen) = False Then
                strtempGestohlen = l2.Gestohlen.ToString
            End If
            If IsNothing(l2.Gesperrt) = False Then
                strtempGesperrt = l2.Gesperrt.ToString
            End If
            If IsNothing(l2.Defekt) = False Then
                strtempDefekt = l2.Defekt.ToString
            End If
            If IsNothing(l2.Archiviert) = False Then
                strtempArchivt = l2.Archiviert.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(strtempbestelltam)
            list.Add(strtempLieferdatum)
            list.Add(strtempPAN_Nr)
            list.Add(strtempSERIE_Nr)
            list.Add(strtempVermerk)
            list.Add(strtempGueltigBis)
            list.Add(strtempRetourniert)
            list.Add(l2.KfzKennzeichen)
            If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then
                listdetails.Add(list)
            End If
        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 strtempLieferdatum As String = String.Empty
            Dim strtempPAN_Nr As String = String.Empty
            Dim strtempSERIE_Nr As String = String.Empty
            Dim strtempVermerk As String = String.Empty
            Dim strtempGueltigBis As String = String.Empty
            Dim strtempRetourniert As String = String.Empty
            Dim strtempVerloren As String = String.Empty
            Dim strtempGestohlen As String = String.Empty
            Dim strtempGesperrt As String = String.Empty
            Dim strtempDefekt As String = String.Empty
            Dim strtempArchivt As String = String.Empty

            If IsNothing(l2.Bestelldatum) = False Then
                strtempbestelltam = l2.Bestelldatum.ToString
            End If
            If IsNothing(l2.Lieferdatum) = False Then
                strtempLieferdatum = l2.Lieferdatum.ToString
            End If
            If IsNothing(l2.PAN_Nr) = False Then
                strtempPAN_Nr = l2.PAN_Nr.ToString
            End If
            If IsNothing(l2.SERIE_Nr) = False Then
                strtempSERIE_Nr = l2.SERIE_Nr.ToString
            End If
            If IsNothing(l2.Vermerk) = False Then
                strtempVermerk = l2.Vermerk.ToString
            End If
            If IsNothing(l2.GültigBis) = False Then
                strtempGueltigBis = l2.GültigBis.ToString
            End If
            If IsNothing(l2.Retourniert) = False Then
                strtempRetourniert = l2.Retourniert.ToString
            End If
            If IsNothing(l2.Verloren) = False Then
                strtempVerloren = l2.Verloren.ToString
            End If
            If IsNothing(l2.Gestohlen) = False Then
                strtempGestohlen = l2.Gestohlen.ToString
            End If
            If IsNothing(l2.Gesperrt) = False Then
                strtempGesperrt = l2.Gesperrt.ToString
            End If
            If IsNothing(l2.Defekt) = False Then
                strtempDefekt = l2.Defekt.ToString
            End If
            If IsNothing(l2.Archiviert) = False Then
                strtempArchivt = l2.Archiviert.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(strtempbestelltam)
            list_M.Add(strtempLieferdatum)
            list_M.Add(strtempPAN_Nr)
            list_M.Add(strtempSERIE_Nr)
            list_M.Add(strtempVermerk)
            list_M.Add(strtempGueltigBis)
            list_M.Add(strtempRetourniert)
            list_M.Add(l2.KfzKennzeichen)
            If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then
                listdetails_M.Add(list_M)
            End If
        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