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
    Dim list_M 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()
            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
            Dim strtemparr As String = String.Empty
            Dim strtemp2 As String = String.Empty
            Dim strarrtemp = 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

                list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
            Next
            If String.IsNullOrEmpty(l1.Nationalität) = True Then
                strtemp2 = "Keine Angabe"
            Else
                strtemp2 = l1.Nationalität
            End If

            For Each l4 In list3
                strarrtemp = String.Join("-", l4.ToString)
            Next
            tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & strarrtemp & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
            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)
        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 tblhrow As TableHeaderRow = New TableHeaderRow()
        Dim cnt As Integer = 0

        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)
        tbl_sidemenue.Rows.Clear()
        tbl_sidemenue.Rows.Add(tblhrow)

        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()
            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 = String.Empty
            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)

            tbl_sidemenue.Rows.Add(tr2)
            cnt += 1
        Next
    End Sub

    Protected Sub TableRowClick(ByVal sender As TableRow, e As EventArgs)
    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(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_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 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
        tbl_2.Rows.Clear()
        Dim cnt As Integer = 0
        list_M = 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_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 list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, l3.KfzKennzeichen)
            Dim list3 As List(Of String) = New List(Of String)
            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
            For Each l2 In list2
                Dim String2 As String = String.Empty
                If IsNothing(l2.Schadstoffklasse) = False Then
                    Stringtemp_M = l2.Kategorie.ToString
                Else
                    Stringtemp_M = String.Empty
                End If
                list3.Add(l2.SDLNr.ToString + ";" + Stringtemp_M + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
            Next
            Dim strtemp2 As String = String.Empty
            If String.IsNullOrEmpty(l3.Nationalität) Then
                strtemp2 = "Keine Angabe"
            Else
                strtemp2 = l3.Nationalität
            End If
            Dim str2temptemp = String.Empty
            For Each Ltenp In list2
                str2temptemp = String.Join("-", Ltenp)
            Next
            tr1_M.Attributes.Add("OnClick", "Javascript:TableRowClick_M(""" & str2temptemp & """,""" & l3.KfzKennzeichen & """,""" & strtemp2 & """)")
            tbl_2.Rows.Add(tr1_M)
            cnt += 1
        Next
    End Sub
End Class