Imports System.Data
Imports System.Web.UI.HtmlControls

Partial Class Kundenbereich_Default
    Inherits System.Web.UI.Page


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

        FormsAuthentication.SignOut()
        Session.Abandon()
        Response.Redirect("../newpageJulius_Sidebar.aspx", True)
    End Sub
    Protected Sub LogOutBtn2_Click(sender As Object, e As EventArgs)

        FormsAuthentication.SignOut()
        Session.Abandon()
        Response.Redirect("../newpageJulius_Sidebar.aspx", True)
    End Sub

    'Für ASP-NET-Table
    'Dim row As TableRow
    'Dim dvRow As Data.DataRowView

    Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
        Dim Kdnrtext = txt_KdNr.Text
        Dim datevon As Date
        Dim datebis As Date
        Dim dt
        Try
            datevon = pickdate1.SelectedDate
            datebis = pickdate2.SelectedDate
        Catch
            datevon = DateValue(Date.Now.ToString("01.MM.yyyy"))
            datebis = DateValue(Date.Now)
        End Try

        Dim tr
        Dim th
        th = New HtmlTableRow()
        th.Cells.Add(New HtmlTableCell("Index"))
        th.Cells.Add(New HtmlTableCell("Art"))
        th.Cells.Add(New HtmlTableCell("Status"))
        th.Cells.Add(New HtmlTableCell("Von"))
        th.Cells.Add(New HtmlTableCell("Bis"))
        th.Cells.Add(New HtmlTableCell("Absender"))
        th.Cells.Add(New HtmlTableCell("Empfaenger"))
        th.Cells.Add(New HtmlTableCell("LKW_Nr"))
        th.Cells.Add(New HtmlTableCell("Auftraggeber_KdNr"))
        normaltable.Rows.Add(th)
        If rbt_Erf.Checked = True Then
            rbt_Freig.Checked = False
            rbt_Freig.Enabled = False
            rbt_Ankunft.Checked = False
            rbt_Ankunft.Enabled = False
            rbt_Vorb.Checked = False
            rbt_Vorb.Enabled = False
            rbt_Vorg.Checked = False
            rbt_Vorg.Enabled = False

            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0})

            Dim i As Integer = 0
            'Dim Cell = New TableCell

            For Each d In dt.Rows
                If i <= dt.Rows.Count Then
                    'Dim tr = New TableRow
                    tr = New HtmlTableRow()
                    'Cell.Controls.Add(New HtmlTableCell(i))
                    tr.Cells.Add(New HtmlTableCell(i))
                    tr.Cells.Add(New HtmlTableCell(""))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
                    Select Case d("Status")
                        Case 1
                            tr.Cells.Add(New HtmlTableCell("Erfasst"))
                            'Case 2
                         '   tr.Cells.Add(New HtmlTableCell("Nicht eingetroffen"))
                        Case 3
                            tr.Cells.Add(New HtmlTableCell("Ankunft"))
                        Case 4
                            tr.Cells.Add(New HtmlTableCell("Vorbereitet"))
                        Case 5
                            tr.Cells.Add(New HtmlTableCell("Vorgeschrieben"))
                        Case Else
                            tr.Cells.Add(New HtmlTableCell("Undefiend"))
                    End Select
                    tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
                    tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
                    tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
                    normaltable.Rows.Add(tr)

                    i = i + 1
                End If
            Next

        ElseIf rbt_Freig.Checked = True Then
            rbt_Erf.Checked = False
            rbt_Erf.Enabled = False
            rbt_Ankunft.Checked = False
            rbt_Ankunft.Enabled = False
            rbt_Vorb.Checked = False
            rbt_Vorb.Enabled = False
            rbt_Vorg.Checked = False
            rbt_Vorg.Enabled = False
            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, datevon, datebis)

            Dim i As Integer = 0
            'Dim Cell = New TableCell

            For Each d In dt.Rows
                If i <= dt.Rows.Count Then
                    'Dim tr = New TableRow
                    tr = New HtmlTableRow()
                    'Cell.Controls.Add(New HtmlTableCell(i))
                    tr.Cells.Add(New HtmlTableCell(i))
                    tr.Cells.Add(New HtmlTableCell(""))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
                    Select Case d("Status")
                        Case 1
                            tr.Cells.Add(New HtmlTableCell("Erfasst"))
                            'Case 2
                         '   tr.Cells.Add(New HtmlTableCell("Nicht eingetroffen"))
                        Case 3
                            tr.Cells.Add(New HtmlTableCell("Ankunft"))
                        Case 4
                            tr.Cells.Add(New HtmlTableCell("Vorbereitet"))
                        Case 5
                            tr.Cells.Add(New HtmlTableCell("Vorgeschrieben"))
                        Case Else
                            tr.Cells.Add(New HtmlTableCell("Undefiend"))
                    End Select
                    tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
                    tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
                    tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
                    normaltable.Rows.Add(tr)

                    i = i + 1
                End If
            Next

        ElseIf rbt_Ankunft.Checked = True Then
            rbt_Erf.Checked = False
            rbt_Erf.Enabled = False
            rbt_Freig.Checked = False
            rbt_Freig.Enabled = False
            rbt_Vorb.Checked = False
            rbt_Vorb.Enabled = False
            rbt_Vorg.Checked = False
            rbt_Vorg.Enabled = False
            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {3})

            Dim i As Integer = 0
            'Dim Cell = New TableCell

            For Each d In dt.Rows
                If i <= dt.Rows.Count Then
                    'Dim tr = New TableRow
                    tr = New HtmlTableRow()
                    'Cell.Controls.Add(New HtmlTableCell(i))
                    tr.Cells.Add(New HtmlTableCell(i))
                    tr.Cells.Add(New HtmlTableCell(""))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
                    Select Case d("Status")
                        Case 1
                            tr.Cells.Add(New HtmlTableCell("Erfasst"))
                            'Case 2
                         '   tr.Cells.Add(New HtmlTableCell("Nicht eingetroffen"))
                        Case 3
                            tr.Cells.Add(New HtmlTableCell("Ankunft"))
                        Case 4
                            tr.Cells.Add(New HtmlTableCell("Vorbereitet"))
                        Case 5
                            tr.Cells.Add(New HtmlTableCell("Vorgeschrieben"))
                        Case Else
                            tr.Cells.Add(New HtmlTableCell("Undefiend"))
                    End Select
                    tr.Cells.Add(New HtmlTableCell(""))
                    tr.Cells.Add(New HtmlTableCell(""))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
                    tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
                    normaltable.Rows.Add(tr)

                    i = i + 1
                End If
            Next

        ElseIf rbt_Vorb.Checked = True Then
            rbt_Ankunft.Checked = False
            rbt_Ankunft.Enabled = False
            rbt_Erf.Checked = False
            rbt_Erf.Enabled = False
            rbt_Freig.Checked = False
            rbt_Freig.Enabled = False
            rbt_Vorg.Checked = False
            rbt_Vorg.Enabled = False

            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4})

            Dim i As Integer = 0
            'Dim Cell = New TableCell

            For Each d In dt.Rows
                If i <= dt.Rows.Count Then
                    'Dim tr = New TableRow
                    tr = New HtmlTableRow()
                    'Cell.Controls.Add(New HtmlTableCell(i))
                    tr.Cells.Add(New HtmlTableCell(i))
                    tr.Cells.Add(New HtmlTableCell(""))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
                    Select Case d("Status")
                        Case 1
                            tr.Cells.Add(New HtmlTableCell("Erfasst"))
                            'Case 2
                         '   tr.Cells.Add(New HtmlTableCell("Nicht eingetroffen"))
                        Case 3
                            tr.Cells.Add(New HtmlTableCell("Ankunft"))
                        Case 4
                            tr.Cells.Add(New HtmlTableCell("Vorbereitet"))
                        Case 5
                            tr.Cells.Add(New HtmlTableCell("Vorgeschrieben"))
                        Case Else
                            tr.Cells.Add(New HtmlTableCell("Undefiend"))
                    End Select
                    tr.Cells.Add(New HtmlTableCell(""))
                    tr.Cells.Add(New HtmlTableCell(""))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
                    tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
                    normaltable.Rows.Add(tr)

                    i = i + 1
                End If
            Next

        ElseIf rbt_Vorg.Checked = True Then
            rbt_Ankunft.Enabled = False
            rbt_Ankunft.Checked = False
            rbt_Erf.Enabled = False
            rbt_Erf.Checked = False
            rbt_Freig.Enabled = False
            rbt_Freig.Checked = False
            rbt_Vorb.Enabled = False
            rbt_Vorb.Checked = False
            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {5})

            Dim i As Integer = 0
            'Dim Cell = New TableCell

            For Each d In dt.Rows
                If i <= dt.Rows.Count Then

                    tr = New HtmlTableRow()
                    'Dim tr = New TableRow


                    'Cell.Controls.Add(New HtmlTableCell(i))
                    tr.Cells.Add(New HtmlTableCell(i))
                    tr.Cells.Add(New HtmlTableCell(""))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
                    Select Case d("Status")
                        Case 1
                            tr.Cells.Add(New HtmlTableCell("Erfasst"))
                            'Case 2
                         '   tr.Cells.Add(New HtmlTableCell("Nicht eingetroffen"))
                        Case 3
                            tr.Cells.Add(New HtmlTableCell("Ankunft"))
                        Case 4
                            tr.Cells.Add(New HtmlTableCell("Vorbereitet"))
                        Case 5
                            tr.Cells.Add(New HtmlTableCell("Vorgeschrieben"))
                        Case Else
                            tr.Cells.Add(New HtmlTableCell("Undefiend"))
                    End Select
                    tr.Cells.Add(New HtmlTableCell(""))
                    tr.Cells.Add(New HtmlTableCell(""))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
                    tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
                    normaltable.Rows.Add(tr)

                    i = i + 1
                End If
            Next

        ElseIf rbt_Erf.Checked = False And rbt_Freig.Checked = False And rbt_Ankunft.Checked = False And rbt_Vorb.Checked = False And rbt_Vorg.Checked = False Then

            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext,, datevon, datebis)

                Dim i As Integer = 0
                'Dim Cell = New TableCell

                For Each d In dt.Rows
                    'Dim tr = New TableRow
                    If i <= dt.Rows.Count Then
                        tr = New HtmlTableRow()
                        'Cell.Controls.Add(New HtmlTableCell(i))
                        tr.Cells.Add(New HtmlTableCell("nA"))
                        tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
                    Select Case d("Status")
                        Case 1
                            tr.Cells.Add(New HtmlTableCell("Erfasst"))
                        Case 2
                            tr.Cells.Add(New HtmlTableCell("Nicht eingetroffen"))
                        Case 3
                            tr.Cells.Add(New HtmlTableCell("Ankunft"))
                        Case 4
                            tr.Cells.Add(New HtmlTableCell("Vorbereitet"))
                        Case 5
                            tr.Cells.Add(New HtmlTableCell("Vorgeschrieben"))
                        Case Else
                            tr.Cells.Add(New HtmlTableCell("Undefiend"))
                    End Select
                    tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
                        tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
                        tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
                        tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
                        tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
                        tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
                        normaltable.Rows.Add(tr)

                        i = i + 1
                    End If
                Next
            End If


    End Sub
    Protected Sub rbt_Freig_Click(sender As Object, e As EventArgs)
        MsgBox("Es funzt!")
        ' datepicker1.Visible = True
        ' datepicker2.Visible = True
    End Sub
    Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)
        rbt_Ankunft.Checked = False
        rbt_Ankunft.Enabled = True
        rbt_Erf.Checked = False
        rbt_Erf.Enabled = True
        rbt_Freig.Checked = False
        rbt_Freig.Enabled = True
        rbt_Vorg.Checked = False
        rbt_Vorg.Enabled = True
        rbt_Vorb.Checked = False
        rbt_Vorb.Enabled = True
        txt_KdNr.Text = ""
        txt_KdNr.Focus()

    End Sub

    'Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    '   TableHeaderRow1.TableSection = TableRowSection.TableHeader
    'End Sub
End Class