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

Partial Class LKWS
    Inherits System.Web.UI.Page
    Dim Kdnrtext As String = String.Empty
    Dim list As Collections.Generic.List(Of VERAG_PROG_ALLGEMEIN.cSDL_LKW) = Nothing
    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
                Kdnrtext = Session.Item("CustomerID")
            Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Kdnrtext)
                '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

    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(401940)
        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)

        '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()
            Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, l1.KfzKennzeichen)
            Dim list3 As List(Of String) = New List(Of String)
            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()
            tc_Verk.Controls.Add(cbverk)
            cbverk.Enabled = False
            tr1.Cells.Add(tc_Verk)
            If l1.Verkauft = True Then
                cbverk.Checked = True
            Else
                cbverk.Checked = False
            End If
            Dim chbx2_Kz_ab As CheckBox = New CheckBox()
            chbx2_Kz_ab.Enabled = False
            If (l1.Abgemeldet = True) Then
                chbx2_Kz_ab.Checked = True
            Else
                chbx2_Kz_ab.Checked = False
            End If
            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
            Dim Spedlabel As String = String.Empty
            For Each l2 In list2
                Dim String2 As String = String.Empty

                If IsNothing(l2.Schadstoffklasse) = False Then
                    Stringtemp = l2.Kategorie.ToString
                Else
                    Stringtemp = String.Empty
                End If
                For Each l3 In list3
                    list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString + ";" + l1.KfzKennzeichen + ";" + tc_Nationalitaet.Text)
                Next
            Next
            tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & list3.ToArray.ToString & """,""" & l1.KfzKennzeichen & """,""" & l1.Nationalität & """)")
            cnt += 1
            tbl_sidemenue.Rows.Add(tr1)
        Next
        'MsgBox("Test3")
    End Sub

    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)
        'MsgBox("Test0")
        Dim txt_LkwNr As TextBox = txt_lkw
        'list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, "COOPER8")
        list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
        Dim tbl_sidemenue2 As Table = FindControl("tbl_sidemenue")
        Dim tblhrow As TableHeaderRow = New TableHeaderRow()
        Dim tblheader_Cell1 As TableHeaderCell = FindControl("tbhc_KFZKennz")
        Dim tblheader_Cellnat As TableHeaderCell = FindControl("tbhc_Nat")
        Dim tblheader_Cellverk As TableHeaderCell = FindControl("tbhc_Verk")
        Dim tblheader_cell_KZ As TableHeaderCell = FindControl("tblhc_Kz")
        Dim tblheader_cell_Verm As TableHeaderCell = FindControl("tblhc_Verm")
        tblhrow.Cells.Add(tblheader_Cell1)
        tblhrow.Cells.Add(tblheader_Cellnat)
        tblhrow.Cells.Add(tblheader_Cellverk)
        tblhrow.Cells.Add(tblheader_cell_KZ)
        tblhrow.Cells.Add(tblheader_cell_Verm)

        Dim cnt As Integer = 0
        tbl_sidemenue2.Rows.Clear()
        tbl_sidemenue2.Height = Unit.Pixel(150)
        tbl_sidemenue2.Rows.Add(tblhrow)
        'MsgBox("Test1")
        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)
            tc_Nationalitaet.Text = String.Empty
            tr2.Cells.Add(tc_Nationalitaet)
            Dim cbVerk_Such As CheckBox = New CheckBox()
            tc_Verk.Controls.Add(cbVerk_Such)
            tr2.Cells.Add(tc_Verk)
            Dim cb_Kz_An As CheckBox = New CheckBox()
            tc_KZ_An.Controls.Add(cb_Kz_An)
            tc_Vermerk.Text = l2.Vermerk.ToString
            tr2.Cells.Add(tc_Vermerk)
            initcells(tblhrow, tblheader_Cell1, tblheader_Cellnat, tblheader_Cellverk, tblheader_cell_KZ, tblheader_cell_Verm, tr2, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt)

            tbl_sidemenue2.Rows.Add(tr2)
            cnt += 1
        Next
        'MsgBox("Test2")
    End Sub

    Protected Sub TableRowClick(ByVal sender As TableRow, e As EventArgs)
        MsgBox("varz")
    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
        list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
        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
            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_Vers_M As CheckBox = New CheckBox()
            tc_Verk_M.Controls.Add(cb_Vers_M)
            tr2.Cells.Add(tc_Verk_M)
            Dim cb_M_2 As CheckBox = New CheckBox()
            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

            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 Button_hid_Click(sender As Object, e As EventArgs)
        MsgBox("Test erfolgreich!")
    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

        Dim cnt As Integer = 0
        list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)

        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
            Dim tr3 As New TableRow
            Dim tc_M_KZFZkennz As TableCell = New TableCell
            Dim tc_M_Nat As TableCell = New TableCell
            Dim tc_M_Verk As TableCell = New TableCell
            Dim tc_M_KZ_AN As TableCell = New TableCell
            Dim tc_M_Vermerk As TableCell = New TableCell

            tc_M_KZFZkennz.Text = l3.KfzKennzeichen
            tr3.Cells.Add(tc_M_KZFZkennz)
            tc_M_Nat.Text = String.Empty
            tr3.Cells.Add(tc_M_Nat)
            Dim cb_Verk_M As CheckBox = New CheckBox
            tc_M_Verk.Controls.Add(cb_Verk_M)
            tr3.Cells.Add(tc_M_Verk)
            Dim cb2_M As CheckBox = New CheckBox
            tc_M_KZ_AN.Controls.Add(cb2_M)
            tr3.Cells.Add(tc_M_KZ_AN)
            If IsNothing(l3.Vermerk) = True Then
                tc_M_Vermerk.Text = String.Empty
            ElseIf String.IsNullOrEmpty(l3.Vermerk.ToString) = True Then
                tc_M_Vermerk.Text = String.Empty
            Else
                tc_M_Vermerk.Text = l3.Vermerk
            End If
            tr3.Cells.Add(tc_M_Vermerk)
            cnt += 1
            initcells(tblhrow_M, tbhc_KFZKennz_M, tbhc_Nat_M, tbhc_Verk_M, tbhc_KZ_An_M, tbhc_Verm_M, tr3, tc_M_KZFZkennz, tc_M_Nat, tc_M_Verk, tc_M_KZ_AN, tc_M_Vermerk, cnt)
        Next
    End Sub


End Class