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
        VERAG_VARIABLES.initerrorcount()

        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 Property _SDLNr() As String
            Get
                Return SDLNr
            End Get
            Set(ByVal value As String)
                SDLNr = value
            End Set
        End Property
        Public Property _Bez As String
            Get
                Return Bez
            End Get
            Set(ByVal value As String)
                Bez = value
            End Set
        End Property
        Public Property _GueltigBis As String
            Get
                Return GueltigBis
            End Get
            Set(ByVal value As String)
                GueltigBis = value
            End Set
        End Property
        Public Property _KartenNr As String
            Get
                Return Kartnr
            End Get
            Set(ByVal value As String)
                Kartnr = value
            End Set
        End Property
        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._KartenNr = KartNr
        End Sub
    End Class

    <WebMethod(BufferResponse:=False, CacheDuration:=120, Description:="Funktion zum zurückgeben einer Tabelle", EnableSession:=False, TransactionOption:=EnterpriseServices.TransactionOption.NotSupported)>
    <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
    Public Shared Function filltable2(Kennzeichen As String) As List(Of Entry)
        Dim strtemp2 As String = Kennzeichen.Remove(Kennzeichen.Length - 1, 1)
        Dim strtemp3 As String = strtemp2.Remove(0, 1)
        MsgBox(Kdnrtext + vbCr + strtemp3)
        Dim list As List(Of Entry) = New List(Of Entry)
        Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
        If list2.Count > 0 Then
            For Each l2 In list2
                Dim entr As Entry = New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
                list.Add(entr)
            Next
        ElseIf list2.Count = 0 Then
            Dim container As New Entry("Keine", "gültigen", "Daten", "gefunden!")
            list.Add(container)
        End If
        Return list
    End Function

    <WebMethod(BufferResponse:=False, CacheDuration:=120, Description:="Funktion zum zurückgeben einer Tabelle", EnableSession:=False, TransactionOption:=EnterpriseServices.TransactionOption.NotSupported)>
    <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
    Public Shared Function filltable2_M(Kennzeichen As String) As List(Of Entry)
        Dim strtemp2 As String = Kennzeichen.Remove(Kennzeichen.Length - 1, 1)
        Dim strtemp3 As String = strtemp2.Remove(0, 1)
        MsgBox(Kdnrtext + vbCr + strtemp3)
        Dim list As List(Of Entry) = New List(Of Entry)
        Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
        If list2.Count > 0 Then
            For Each l2 In list2
                Dim entr As Entry = New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
                list.Add(entr)
            Next
        ElseIf list2.Count = 0 Then
            Dim container As New Entry("Keine", "gültigen", "Daten", "gefunden!")
            list.Add(container)
        End If
        Return list
    End Function
End Class