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

Partial Class Customers_Default3
    Inherits System.Web.UI.Page
    Shared Kdnrtext As String = String.Empty
    Shared CardNr As String = String.Empty
    Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load
        Kdnrtext = Request.QueryString("CustomerID").ToString
        CardNr = Request.QueryString("CardNo").ToString

        If Page.IsPostBack = True Then
            Kdnrtext = Request.QueryString("CustomerID").ToString
            If String.Equals(Session.Item("CustomerID"), String.Empty) Then
                Kdnrtext = Request.QueryString("CustomerID").ToString
                CardNr = Request.QueryString("CardNo").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, KundenNr As String, CardNo As String, SDLNr As String, History As String, GueltigBis As String, Pin 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
            If l2.KfzKennzeichen = Kennzeichen AndAlso l2.KundenNr = KundenNr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History And l2.KartenNr.ToString = CardNo Then
                Dim strtempbestelltam As String = String.Empty
                Dim strtempLieferdatum As String = String.Empty
                Dim strtempPanNr As String = String.Empty
                Dim strtempSerieNr 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.Substring(0, 10)
                End If
                If IsNothing(l2.Lieferdatum) = False Then
                    strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10)
                End If
                If IsNothing(l2.PAN_Nr) = False Then
                    strtempPanNr = l2.PAN_Nr.ToString
                End If
                If IsNothing(l2.SERIE_Nr) = False Then
                    strtempSerieNr = l2.SERIE_Nr.ToString
                End If
                If IsNothing(l2.Vermerk) = False Then
                    strtempVermerk = l2.Vermerk.ToString
                End If

                strtempGueltigBis = GueltigBis

                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_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(strtempbestelltam)
                list.Add(strtempLieferdatum)
                list.Add(strtempPanNr)
                list.Add(strtempSerieNr)
                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") And l2.KartenNr = CardNr Then
                    listdetails.Add(list)
                End If
            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, KundenNr As String, SDLNr As String, History 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
            If l2.KfzKennzeichen = Kennzeichen AndAlso l2.KundenNr = KundenNr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
                Dim strtempbestelltam As String = String.Empty
                Dim strtempLieferdatum As String = String.Empty
                Dim strtempPanNr As String = String.Empty
                Dim strtempSerieNr 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
                    strtempPanNr = l2.PAN_Nr.ToString
                End If
                If IsNothing(l2.SERIE_Nr) = False Then
                    strtempSerieNr = 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_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(strtempbestelltam)
                list_M.Add(strtempLieferdatum)
                list_M.Add(strtempPanNr)
                list_M.Add(strtempSerieNr)
                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") And l2.KartenNr = CardNr Then
                    listdetails_M.Add(list_M)
                End If
            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