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, SDLNr As String, History 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.KundenNr.ToString = KundenNr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
                Dim strtempbestelltam As String = String.Empty
                Dim strtempLieferdatum As String = String.Empty
                Dim strtempVermerk 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.Vermerk) = False Then
                    strtempVermerk = l2.Vermerk.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(strtempVermerk)
                list.Add(l2.KfzKennzeichen)
                If 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.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
                Dim strtempbestelltam As String = String.Empty
                Dim strtempLieferdatum As String = String.Empty
                Dim strtempVermerk 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.Vermerk) = False Then
                    strtempVermerk = l2.Vermerk.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(strtempVermerk)
                list_M.Add(strtempArchivt)
                list_M.Add(l2.KfzKennzeichen)
                If 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