VERAG_Homepage/Customers/LKWs.aspx.vb

Imports System
Imports System.ComponentModel
Imports System.Web.Script.Serialization
Imports System.Web.Script.Services
Imports System.Web.Security
Imports System.Web.Services
Imports System.Web.UI.WebControls

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
                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("P1")
                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 strlongarr As String
            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
            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
                tc_SDL.Text = l2.SDLNr.ToString
                tc_Bez.Text = Stringtemp
                tc_gueltigbis.Text = l2.GültigBis.ToString
                tc_Karten_Nr.Text = l2.KartenNr.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 + """')")
            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 strstrtemp As String = String.Empty
            tc_KfzKennz_M.Text = l3.KfzKennzeichen
            tr1_M.Cells.Add(tc_KfzKennz_M)
            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

            Dim strtemp2 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 & """')")
            cnt += 1
            tbl_2.Rows.Add(tr1_M)
        Next
    End Sub

    <Serializable>
    Public Class Entry
        Private SDLNr As String
        Private Bez As String
        Private GueltigBis As String
        Private Kartnr As String

        Public Sub New(ByVal SDL As String, Bez As String, ByVal GueltigBis As String, ByVal KartNr As String)
            Me.SDLNr = SDL
            Me.Bez = Bez
            Me.GueltigBis = GueltigBis
            Me.Kartnr = KartNr
        End Sub
    End Class

    <WebMethod>
    <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
    Public Shared Function filltable2(Kennzeichen As String) As List(Of Entry)
        Dim list As List(Of Entry) = New List(Of Entry)
        Dim strtemp As String = Kennzeichen.Remove(0, 1)
        Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
        Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)

        For Each l2 In list2
            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.Kaution) = False Then
                strtempKat = 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
            Dim Entrytemp As New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr)
            list.Add(Entrytemp)
        Next
        Return list
    End Function

    <WebMethod>
    <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
    Public Shared Function filltable2_M(Kennzeichen As String) As List(Of Entry)
        Dim list As List(Of Entry) = New List(Of Entry)
        Dim strtemp As String = Kennzeichen.Remove(0, 1)
        Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
        Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
        For Each l2 In list2
            Dim strtemp2 As String = String.Empty
            If IsNothing(l2.Kategorie) = False Then
                strtemp2 = l2.Kategorie.ToString
            End If
            Dim Entrytemp As New Entry(l2.SDLNr.ToString, strtemp2, l2.GültigBis.ToString, l2.KartenNr.ToString)
            list.Add(Entrytemp)
        Next
        Return list
    End Function
End Class