VERAG_Homepage/Customers/LKWs.aspx.vb

Imports System
Imports System.ComponentModel
Imports System.IO
Imports System.Net
Imports System.Web.Script.Serialization
Imports System.Web.Script.Services
Imports System.Web.Security
Imports System.Web.Services
Imports System.Web.UI.WebControls
Imports LKWS.Entry
Imports Newtonsoft.Json

Partial Class LKWS
    Inherits System.Web.UI.Page
    Shared Kdnrtext As String = String.Empty
    Dim list As Collections.Generic.List(Of VERAG_PROG_ALLGEMEIN.cSDL_LKW) = Nothing
    Dim list_M As Collections.Generic.List(Of VERAG_PROG_ALLGEMEIN.cSDL_LKW) = Nothing
    Dim tbl2mainpagetemp As Table
    Dim TableRows As List(Of TableRow) = New List(Of TableRow)
    Dim TableRows_M As List(Of TableRow) = New List(Of TableRow)
    Protected Sub Page_OnInit(sender As Object, e As EventArgs)
        If TableRows.Count = 0 Then
            For Each tr In TableRows_M
                tbl_mainpage_M.Rows.Add(tr)
            Next
        Else
            For Each tr In TableRows
                tbl_mainpage.Rows.Add(tr)
            Next
        End If
    End Sub
    Protected Sub Page_Load(sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Me.Page.User.Identity.IsAuthenticated Then
            Try

                If String.Equals(Session.Item("CustomerID"), String.Empty) Then
                    Kdnrtext = Request.QueryString("CustomerID")
                Else
                    Kdnrtext = Session.Item("CustomerID")
                End If

            Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Session.Item("CustomerID"))
                FormsAuthentication.RedirectToLoginPage()
                'MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
            End Try
        Else
            FormsAuthentication.RedirectToLoginPage()
        End If
        If Page.IsPostBack = True Then
            Page.MaintainScrollPositionOnPostBack = True
        Else
            Page.MaintainScrollPositionOnPostBack = False
        End If
    End Sub
    Public Function getkdnr() As String
        If String.Equals(HttpContext.Current.Session.Item("CustomerID").ToString, "") = False Then
            Return HttpContext.Current.Session.Item("CustomerID").ToString
        Else
            Return Kdnrtext
        End If
    End Function

    Protected Sub btn_alle_Click(sender As Object, e As EventArgs)

        If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
        Else
            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
        End If

        Dim cnt As Integer = 0

        list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(Integer.Parse(Kdnrtext))
        Dim tblhrow As TableHeaderRow = New TableHeaderRow
        tblhrow.Cells.Add(tbhc_KFZKennz)
        tblhrow.Cells.Add(tbhc_Nat)
        tblhrow.Cells.Add(tblhc_Verk)
        tblhrow.Cells.Add(tblhc_Kz)
        tblhrow.Cells.Add(tblhc_Verm)
        tbl_sidemenue.Rows.Add(tblhrow)
        'Dim strstrstrstretemparr As String = String.Empty
        'tbl_sidemenue.Rows.Clear()
        'MsgBox("Test2")
        For Each l1 In list
            Dim tr1 As TableRow = New TableRow()
            Dim tc_KfzKennz As TableCell = New TableCell()
            Dim tc_Nationalitaet As TableCell = New TableCell()
            Dim tc_Verk As TableCell = New TableCell()
            Dim tc_KZ_Ab As TableCell = New TableCell()
            Dim tc_Vermerk As TableCell = New TableCell()


            tc_KfzKennz.Text = l1.KfzKennzeichen
            tr1.Cells.Add(tc_KfzKennz)
            If IsNothing(l1.Nationalität) = True Then
                tc_Nationalitaet.Text = String.Empty
            ElseIf String.IsNullOrEmpty(l1.Nationalität.ToString) = True Then
                tc_Nationalitaet.Text = String.Empty
            Else
                tc_Nationalitaet.Text = l1.Nationalität.ToString
            End If
            tr1.Cells.Add(tc_Nationalitaet)
            Dim cbverk As CheckBox = New CheckBox()
            If l1.Verkauft = True Then
                cbverk.Checked = True
            Else
                cbverk.Checked = False
            End If
            tc_Verk.Controls.Add(cbverk)
            cbverk.Enabled = False
            tr1.Cells.Add(tc_Verk)
            Dim chbx2_Kz_ab As CheckBox = New CheckBox()
            If l1.Abgemeldet = True Then
                chbx2_Kz_ab.Checked = True
            Else
                chbx2_Kz_ab.Checked = False
            End If
            chbx2_Kz_ab.Enabled = False
            tc_KZ_Ab.Controls.Add(chbx2_Kz_ab)
            tr1.Cells.Add(tc_KZ_Ab)
            If IsNothing(l1.Vermerk) = True Then
                tc_Vermerk.Text = String.Empty
            ElseIf String.IsNullOrEmpty(l1.Vermerk.ToString) = True Then
                tc_Vermerk.Text = String.Empty
            Else
                tc_Vermerk.Text = l1.Vermerk.ToString
            End If
            tr1.Cells.Add(tc_Vermerk)
            initcells(tblhrow, tbhc_KFZKennz, tbhc_Nat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_Ab, tc_Vermerk, cnt)
            Dim Stringtemp As String = String.Empty
            TableRows.Clear()
            Dim throw2 As TableHeaderRow = New TableHeaderRow
            throw2.Cells.Add(tblhc_SDLNr)
            throw2.Cells.Add(tblhc_Bez)
            throw2.Cells.Add(tbl_gueltig)
            throw2.Cells.Add(tblhc_KarteNr)
            TableRows.Add(throw2)
            tbl_mainpage.Rows.Add(throw2)

            Dim strtemparr As String = String.Empty
            Dim strtemp2 As String = String.Empty
            Dim strarrtemp = String.Empty
            Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), l1.KfzKennzeichen)
            Dim stringtemtr As String = String.Empty
            Dim tr As TableRow = New TableRow
            Dim list3 As List(Of String) = New List(Of String)
            Dim strstrstrstrtemp As String = String.Empty
            Dim strstrstrstrtempCardno As String = String.Empty
            Dim strstrstrstrtempKennz As String = String.Empty
            Dim strstrstrstrtempKundNr As String = String.Empty
            Dim strstrstrstrtempHistory As String = String.Empty
            Dim strstrstrstrtempSDL As String = String.Empty
            For Each l2 In list2
                Dim String2 As String = String.Empty

                If IsNothing(l2.Kategorie) = True Then
                    Stringtemp = "Keine Angabe"
                Else
                    Stringtemp = l2.Kategorie.ToString
                End If

                Dim tc_SDL As TableCell = New TableCell
                Dim tc_Bez As TableCell = New TableCell
                Dim tc_gueltigbis As TableCell = New TableCell
                Dim tc_Karten_Nr As TableCell = New TableCell
                strstrstrstrtempSDL = l2.SDLNr.ToString
                strstrstrstrtempCardno = l2.KartenNr.ToString
                strstrstrstrtempKennz = l2.KfzKennzeichen.ToString
                tc_SDL.Text = l2.SDLNr.ToString
                tc_Bez.Text = Stringtemp
                tc_gueltigbis.Text = l2.GültigBis.ToString
                tc_Karten_Nr.Text = l2.KartenNr.ToString
                strstrstrstrtempKundNr = l2.KundenNr.ToString
                strstrstrstrtempHistory = l2.History.ToString
                If String.Equals(l2.KfzKennzeichen.ToString, l1.KfzKennzeichen.ToString) = True Then
                    tr.Cells.Add(tc_SDL)
                    tr.Cells.Add(tc_Bez)
                    tr.Cells.Add(tc_gueltigbis)
                    tr.Cells.Add(tc_Karten_Nr)
                    'tbl_mainpage.Rows.Add(tr)
                    TableRows.Add(tr)
                    strstrstrstrtemp += String.Join("-", tc_SDL.Text + "," + tc_Bez.Text + "," + tc_gueltigbis.Text + "," + tc_Karten_Nr.Text)
                End If
                list3.Add(strstrstrstrtemp)

                'MsgBox(TableRows.Count.ToString)
            Next
            If IsNothing(l1.Nationalität) = True Then
                strtemp2 = "Keine Angabe"
            Else
                strtemp2 = l1.Nationalität
            End If

            tr1.Attributes.Add("onclick", "Javascript:doPostBack('" + tr1.Cells.Item(0).Text + "," + strtemp2 + "," + Kdnrtext + "," + strstrstrstrtempCardno + "," + strstrstrstrtempSDL + "," + strstrstrstrtempHistory + "')")
            cnt += 1
            tbl_sidemenue.Rows.Add(tr1)
        Next
        'MsgBox("Test3")
    End Sub

    Public Function ConvertToJSON(lst As List(Of String)) As String
        Dim jss1 As New JavaScriptSerializer()
        Dim _myJSONstring As String = jss1.Serialize(lst)
        Return _myJSONstring
    End Function

    Private Sub initcells(thr1 As TableHeaderRow, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, tr1 As TableRow, tc_KfzKennz As TableCell, tc_Nationalitaet As TableCell, tc_Verk As TableCell, tc_KZ_An As TableCell, tc_Vermerk As TableCell, countrows As Integer)
        'Dim res As Integer
        thr1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
        th1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
        th2.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
        th3.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
        th4.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
        th5.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
        th1.ForeColor = Drawing.Color.White
        th2.ForeColor = Drawing.Color.White
        th3.ForeColor = Drawing.Color.White
        th4.ForeColor = Drawing.Color.White
        th5.ForeColor = Drawing.Color.White
    End Sub

    Protected Sub btn_Suchen_Click(sender As Object, e As EventArgs)
        Dim txt_LkwNr As TextBox = txt_lkw

        list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(Integer.Parse(HttpContext.Current.Session.Item("CustomerID")))
        Dim tblhrow As TableHeaderRow = New TableHeaderRow()
        Dim cnt As Integer = 0
        Dim list3 As List(Of String) = New List(Of String)

        tblhrow.Cells.Add(tbhc_KFZKennz)
        tblhrow.Cells.Add(tbhc_Nat)
        tblhrow.Cells.Add(tblhc_Verk)
        tblhrow.Cells.Add(tblhc_Kz)
        tblhrow.Cells.Add(tblhc_Verm)

        tbl_sidemenue.Height = Unit.Pixel(150)

        For Each l2 In list
            Dim tr2 As TableRow = New TableRow()
            Dim tc_KfzKennz As TableCell = New TableCell()
            Dim tc_Nationalitaet As TableCell = New TableCell()
            Dim tc_Verk As TableCell = New TableCell()
            Dim tc_KZ_An As TableCell = New TableCell()
            Dim tc_Vermerk As TableCell = New TableCell()
            tc_KfzKennz.Text = l2.KfzKennzeichen.ToString
            tr2.Cells.Add(tc_KfzKennz)
            Dim strtempnat As String = String.Empty
            If IsNothing(l2.Nationalität) = True Then
                strtempnat = "Keine Angabe!"
            Else
                strtempnat = l2.Nationalität.ToString
            End If
            tc_Nationalitaet.Text = String.Empty
            tr2.Cells.Add(tc_Nationalitaet)
            Dim cbVerk_Such As CheckBox = New CheckBox()
            If l2.Verkauft = True Then
                cbVerk_Such.Checked = True
            Else
                cbVerk_Such.Checked = False
            End If
            tc_Verk.Controls.Add(cbVerk_Such)
            tr2.Cells.Add(tc_Verk)
            Dim cb_Kz_An As CheckBox = New CheckBox()
            If l2.KZAenderung = True Then
                cb_Kz_An.Checked = True
            Else
                cb_Kz_An.Checked = False
            End If
            tc_KZ_An.Controls.Add(cb_Kz_An)
            tr2.Cells.Add(tc_KZ_An)
            If IsNothing(l2.Vermerk) = True Then
                tc_Vermerk.Text = String.Empty
            ElseIf l2.Vermerk.ToString = String.Empty Then
                tc_Vermerk.Text = "Keine Anagben!"
            Else
                tc_Vermerk.Text = l2.Vermerk.ToString
            End If
            tr2.Cells.Add(tc_Vermerk)

            initcells(tblhrow, tbhc_KFZKennz, tbhc_Nat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr2, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt)
            tr2.Attributes.Add("OnClientClick", "Javascript:doPostBack('""" + tr2.Cells.Item(0).Text + """,""" + strtempnat + """')")
            tbl_sidemenue.Rows.Add(tr2)
            cnt += 1
        Next
    End Sub

    Protected Sub btn_Suchen_M_Click(sender As Object, e As EventArgs)
        If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
        Else
            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
        End If
        tbl_2.Rows.Clear()
        list_M = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(Integer.Parse(getkdnr))
        Dim cnt As Integer = 0

        headrow_M.Cells.Add(tbhc_KFZKennz_M)
        headrow_M.Cells.Add(tbhc_Nat_M)
        headrow_M.Cells.Add(tbhc_Verk_M)
        headrow_M.Cells.Add(tbhc_KZ_An_M)
        headrow_M.Cells.Add(tbhc_Verm_M)
        tbl_2.Rows.Add(headrow_M)

        For Each li_M In list_M
            Dim tr2 As TableRow = New TableRow()
            Dim tc_KfZKennz_M As TableCell = New TableCell()
            Dim tc_Nationalitaet_M As TableCell = New TableCell()
            Dim tc_Verk_M As TableCell = New TableCell()
            Dim tc_KzAn_M As TableCell = New TableCell()
            Dim tc_Vermerk_M As TableCell = New TableCell()
            tc_KfZKennz_M.Text = li_M.KfzKennzeichen.ToString
            tr2.Cells.Add(tc_KfZKennz_M)
            tc_Nationalitaet_M.Text = String.Empty
            tr2.Cells.Add(tc_Nationalitaet_M)
            Dim cb_Verk_M As CheckBox = New CheckBox()
            If (li_M.Verkauft = True) Then
                cb_Verk_M.Checked = True
            Else
                cb_Verk_M.Checked = False
            End If
            tc_Verk_M.Controls.Add(cb_Verk_M)
            tr2.Cells.Add(tc_Verk_M)
            Dim cb_M_2 As CheckBox = New CheckBox()
            If (li_M.KZAenderung = True) Then
                cb_M_2.Checked = True
            Else
                cb_M_2.Checked = False
            End If
            tc_KzAn_M.Controls.Add(cb_M_2)
            tr2.Cells.Add(tc_KzAn_M)
            If IsNothing(li_M.Vermerk) = True Then
                tc_Vermerk_M.Text = String.Empty
            ElseIf String.IsNullOrEmpty(li_M.Vermerk.ToString) = True Then
                tc_Vermerk_M.Text = String.Empty
            Else
                tc_Vermerk_M.Text = li_M.Vermerk.ToString
            End If
            tr2.Cells.Add(tc_Vermerk_M)
            initcells(headrow_M, tbhc_KFZKennz_M, tbhc_Nat_M, tbhc_Verk_M, tbhc_KZ_An_M, tbhc_Verm_M, tr2, tc_KfZKennz_M, tc_Nationalitaet_M, tc_Verk_M, tc_KzAn_M, tc_Vermerk_M, cnt)
            tbl_2.Rows.Add(tr2)
            cnt += 1
        Next
    End Sub

    Protected Sub btn_alle_M_Click(sender As Object, e As EventArgs)
        If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
        Else
            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
        End If

        tbl_mainpage_M.Rows.Clear()
        Dim cnt As Integer = 0

        list_M = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(Integer.Parse(Kdnrtext))
        Dim tblhrow_M As TableHeaderRow = New TableHeaderRow

        tblhrow_M.Cells.Add(tbhc_KFZKennz_M)
        tblhrow_M.Cells.Add(tbhc_Nat_M)
        tblhrow_M.Cells.Add(tbhc_Verk_M)
        tblhrow_M.Cells.Add(tbhc_KZ_An_M)
        tblhrow_M.Cells.Add(tbhc_Verm_M)
        tbl_2.Rows.Add(tblhrow_M)

        For Each l3 In list_M
            Dim tr1_M As TableRow = New TableRow()
            Dim tc_KfzKennz_M As TableCell = New TableCell()
            Dim tc_Nationalitaet_M As TableCell = New TableCell()
            Dim tc_Verk_M As TableCell = New TableCell()
            Dim tc_KZ_Ab_M As TableCell = New TableCell()
            Dim tc_Vermerk_M As TableCell = New TableCell()
            Dim strstrstrstrtemp As String = String.Empty
            Dim strstrstrstrtempCardno As String = String.Empty
            Dim strstrstrstrtempKennz As String = String.Empty
            Dim strstrstrstrtempKundNr As String = String.Empty
            Dim strstrstrstrtempHistory As String = String.Empty
            Dim strstrstrstrtempSDL As String = String.Empty
            Dim strstrtemp As String = String.Empty
            tc_KfzKennz_M.Text = l3.KfzKennzeichen
            tr1_M.Cells.Add(tc_KfzKennz_M)
            Dim strtemparr As String = String.Empty
            Dim strtemp2 As String = String.Empty
            Dim strarrtemp = String.Empty
            Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), l3.KfzKennzeichen)
            Dim stringtemtr As String = String.Empty
            Dim tr As TableRow = New TableRow
            Dim list3 As List(Of String) = New List(Of String)

            For Each l2 In list2
                Dim String2 As String = String.Empty

                If IsNothing(l2.Kategorie) = True Then
                    stringtemtr = "Keine Angabe"
                Else
                    stringtemtr = l2.Kategorie.ToString
                End If

                Dim tc_SDL As TableCell = New TableCell
                Dim tc_Bez As TableCell = New TableCell
                Dim tc_gueltigbis As TableCell = New TableCell
                Dim tc_Karten_Nr As TableCell = New TableCell
                strstrstrstrtempSDL = l2.SDLNr.ToString
                strstrstrstrtempCardno = l2.KartenNr.ToString
                strstrstrstrtempKennz = l2.KfzKennzeichen.ToString
                tc_SDL.Text = l2.SDLNr.ToString
                tc_Bez.Text = stringtemtr
                tc_gueltigbis.Text = l2.GültigBis.ToString
                tc_Karten_Nr.Text = l2.KartenNr.ToString
                strstrstrstrtempKundNr = l2.KundenNr.ToString
                strstrstrstrtempHistory = l2.History.ToString
                If String.Equals(l2.KfzKennzeichen.ToString, l3.KfzKennzeichen.ToString) = True Then
                    tr.Cells.Add(tc_SDL)
                    tr.Cells.Add(tc_Bez)
                    tr.Cells.Add(tc_gueltigbis)
                    tr.Cells.Add(tc_Karten_Nr)
                    'tbl_mainpage.Rows.Add(tr)
                    TableRows.Add(tr)
                    strstrstrstrtemp += String.Join("-", tc_SDL.Text + "," + tc_Bez.Text + "," + tc_gueltigbis.Text + "," + tc_Karten_Nr.Text)
                End If
                list3.Add(strstrstrstrtemp)

                'MsgBox(TableRows.Count.ToString)
            Next
            If IsNothing(l3.Nationalität) = True Then
                tc_Nationalitaet_M.Text = String.Empty
            ElseIf String.IsNullOrEmpty(l3.Nationalität.ToString) = True Then
                tc_Nationalitaet_M.Text = String.Empty
            Else
                tc_Nationalitaet_M.Text = l3.Nationalität.ToString
            End If
            tr1_M.Cells.Add(tc_Nationalitaet_M)
            Dim cbverk_M As CheckBox = New CheckBox()
            tc_Verk_M.Controls.Add(cbverk_M)
            cbverk_M.Enabled = False
            tr1_M.Cells.Add(tc_Verk_M)
            If l3.Verkauft = True Then
                cbverk_M.Checked = True
            Else
                cbverk_M.Checked = False
            End If
            Dim chbx2_Kz_ab_M As CheckBox = New CheckBox()
            chbx2_Kz_ab_M.Enabled = False
            If (l3.Abgemeldet = True) Then
                chbx2_Kz_ab_M.Checked = True
            Else
                chbx2_Kz_ab_M.Checked = False
            End If
            tc_KZ_Ab_M.Controls.Add(chbx2_Kz_ab_M)
            tr1_M.Cells.Add(tc_KZ_Ab_M)
            If IsNothing(l3.Vermerk) = True Then
                tc_Vermerk_M.Text = String.Empty
            ElseIf String.IsNullOrEmpty(l3.Vermerk.ToString) = True Then
                tc_Vermerk_M.Text = String.Empty
            Else
                tc_Vermerk_M.Text = l3.Vermerk.ToString
            End If
            tr1_M.Cells.Add(tc_Vermerk_M)
            initcells(tblhrow_M, tbhc_KFZKennz_M, tbhc_Nat_M, tbhc_Verk_M, tbhc_KZ_An_M, tbhc_Verm_M, tr1_M, tc_KfzKennz_M, tc_Nationalitaet_M, tc_Verk_M, tc_KZ_Ab_M, tc_Vermerk_M, cnt)
            Dim Stringtemp_M As String = String.Empty


            If String.IsNullOrEmpty(l3.Nationalität) Then
                strtemp2 = "Keine Angabe"
            Else
                strtemp2 = l3.Nationalität
            End If
            tbl_mainpage_M.Rows.Clear()
            tr1_M.Attributes.Add("onclick", "Javascript:doPostBack_M('" + tr1_M.Cells.Item(0).Text + "," + strtemp2 + "," + Kdnrtext + "," + strstrstrstrtempCardno + "," + strstrstrstrtempSDL + "," + strstrstrstrtempHistory + "')")
            cnt += 1
            tbl_2.Rows.Add(tr1_M)
        Next
    End Sub

    <Serializable>
    Public Class Entry
        Private SDLNr As String = String.Empty
        Private Bez As String = String.Empty
        Private GueltigBis As String = String.Empty
        Private Kartnr As String = String.Empty
        Private Kaution As String = String.Empty
        Private Archivt As String = String.Empty
        Private BelegNr As String = String.Empty
        Private Ersatzkarte As String = String.Empty
        Private DefektAm As String = String.Empty
        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
        Private GestohlenAm As String = String.Empty
        Private LKWAbgemeldet As String = String.Empty
        Private LKWAbgemeldetAM As String = String.Empty
        Private Lieferdatum As String = String.Empty
        Private MasterPIN As String = String.Empty
        Private MOTORWAY_CARD_Nr As String = String.Empty
        Private MSE_Kd_Nr As String = String.Empty
        Private OBUID As String = String.Empty
        Private PAN_Nr As String = String.Empty
        Private Partner As String = String.Empty
        Private PIN As String = String.Empty
        Private RefKundenNr As String = String.Empty
        Private Retourniert As String = String.Empty
        Private RetourniertAm As String = String.Empty
        Private Sachbearbeiter As String = String.Empty
        Private SERIE_Nr As String = String.Empty
        Private Status As String = String.Empty
        Private TelepassErsatzkarte As String = String.Empty
        Private TelepassErsatzkarteAm As String = String.Empty
        Private TELEPASS_Kd_Nr As String = String.Empty
        Private TELEPASS_Nr As String = String.Empty
        Private Umstellungsdatum As String = String.Empty
        Private Verloren As String = String.Empty
        Private Vertragsabschlussdatum As String = String.Empty
        Private VertragsNr As String = String.Empty
        Private VIACARD As String = String.Empty
        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, 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,
                       ByVal History As String, ByVal HasEntry As String, ByVal FlottenPIN As String, ByVal FREJUS_CARD_Nr As String, ByVal GestohlenAm As String, ByVal LKWAbgemeldet As String, ByVal LKWAbgemeldetAM As String, ByVal Lieferdatum As String, ByVal MasterPIN As String,
                       ByVal MOTORWAY_CARD_Nr As String, ByVal MSE_Kd_Nr As String, ByVal OBUID As String, ByVal PAN_Nr As String, ByVal Partner As String, ByVal PIN As String, ByVal RefKundenNr As String, ByVal Retourniert As String, ByVal RetourniertAm As String, ByVal Sachbearbeiter As String,
                       ByVal SERIE_Nr As String, ByVal Status As String, ByVal TelepassErsatzkarte As String, ByVal TelepassErsatzkarteAm As String, ByVal TELEPASS_Kd_Nr As String, ByVal TELEPASS_Nr As String, ByVal Umstellungsdatum As String, ByVal Verloren As String,
                       ByVal Vertragsabschlussdatum As String, ByVal VertragsNr As String, ByVal VIACARD As String, ByVal Aenderungsdatum As String, ByVal Vermerk As String)
            Me.SDLNr = SDL
            Me.Bez = Bez
            Me.GueltigBis = GueltigBis
            Me.Kartnr = KartNr
            Me.Kaution = Kaut
            Me.Archivt = Archivt
            Me.BelegNr = BelegNr
            Me.Ersatzkarte = Ersatzkarte
            Me.DefektAm = DefektAm
            Me.Fahrer = Fahrer
            Me.GesperrtAm = GesperrtAm
            Me.History = History
            Me.HasEntry = HasEntry
            Me.FlottenPIN = FlottenPIN
            Me.FREJUS_CARD_Nr = FREJUS_CARD_Nr
            Me.GestohlenAm = GestohlenAm
            Me.LKWAbgemeldet = LKWAbgemeldet
            Me.LKWAbgemeldetAM = LKWAbgemeldetAM
            Me.Lieferdatum = Lieferdatum
            Me.MasterPIN = MasterPIN
            Me.MOTORWAY_CARD_Nr = MOTORWAY_CARD_Nr
            Me.MSE_Kd_Nr = MSE_Kd_Nr
            Me.OBUID = OBUID
            Me.PAN_Nr = PAN_Nr
            Me.Partner = Partner
            Me.PIN = PIN
            Me.RefKundenNr = RefKundenNr
            Me.Retourniert = Retourniert
            Me.RetourniertAm = RetourniertAm
            Me.Sachbearbeiter = Sachbearbeiter
            Me.SERIE_Nr = SERIE_Nr
            Me.Status = Status
            Me.TelepassErsatzkarte = TelepassErsatzkarte
            Me.TelepassErsatzkarteAm = TelepassErsatzkarteAm
            Me.TELEPASS_Kd_Nr = TELEPASS_Kd_Nr
            Me.TELEPASS_Nr = TELEPASS_Nr
            Me.Umstellungsdatum = Umstellungsdatum
            Me.Verloren = Verloren
            Me.Vertragsabschlussdatum = Vertragsabschlussdatum
            Me.VertragsNr = VertragsNr
            Me.VIACARD = VIACARD
            Me.Aenderungsdatum = Aenderungsdatum
            Me.Vermerk = Vermerk
        End Sub
    End Class
    <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 filltable2(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(Kundennr), Kennzeichen)
        Dim container 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

            If IsNothing(l2.Kategorie) = False Then
                strtempKat = l2.Kategorie.ToString
            End If
            If IsNothing(l2.GültigBis) = False Then
                strtempGueltigBis = l2.GültigBis.ToString
            End If
            If IsNothing(l2.KartenNr) = False Then
                strtempKartenNr = l2.KartenNr.ToString
            End If

            ' If String.Equals(finalSDLNrstr, l2.SDLNr.ToString) = True AndAlso String.Equals(finalstr, l2.KfzKennzeichen.ToString) = True AndAlso String.Equals(finalstrKundNr, l2.KundenNr.ToString) = True Then
            Dim Entrytemp As New List(Of String)
            Entrytemp.Add(l2.SDLNr.ToString)
            Entrytemp.Add(strtempKat)
            Entrytemp.Add(strtempGueltigBis)
            Entrytemp.Add(strtempKartenNr)
            Entrytemp.Add(Kennzeichen)
            Entrytemp.Add(Kdnrtext)
            Entrytemp.Add(SDLNr)
            Entrytemp.Add(History)
            container.Add(Entrytemp)
            ' End If
        Next

        HttpContext.Current.Response.ContentType = "application/json"
        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 filltable2_M(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(Kundennr), Kennzeichen)
        Dim container 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

            If IsNothing(l2.Kategorie) = False Then
                strtempKat = l2.Kategorie.ToString
            End If
            If IsNothing(l2.GültigBis) = False Then
                strtempGueltigBis = l2.GültigBis.ToString
            End If
            If IsNothing(l2.KartenNr) = False Then
                strtempKartenNr = l2.KartenNr.ToString
            End If

            Dim Entrytemp As New List(Of String)
            ' If String.Equals(SDLNr, l2.SDLNr.ToString) = True AndAlso String.Equals(Kennzeichen, l2.KfzKennzeichen.ToString) = True AndAlso String.Equals(Kundennr, l2.KundenNr.ToString) = True Then
            Entrytemp.Add(l2.SDLNr.ToString)
                Entrytemp.Add(strtempKat)
                Entrytemp.Add(strtempGueltigBis)
                Entrytemp.Add(strtempKartenNr)
                Entrytemp.Add(Kennzeichen)
                Entrytemp.Add(Kdnrtext)
                Entrytemp.Add(SDLNr)
                Entrytemp.Add(History)
                container.Add(Entrytemp)
            ' End If
        Next

        HttpContext.Current.Response.ContentType = "application/json"

        Return New FormattedList(HttpContext.Current.Request("sEcho"), container.Count.ToString, container.Count.ToString, container)
    End Function


End Class