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


        If rbt_Erf.Checked = True Then
            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
                'Dim tr = New TableRow
                tr = New HtmlTableRow()
                Do
                    'Cell.Controls.Add(New HtmlTableCell(i))
                    tr.Cells.Add(New HtmlTableCell(""))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
                    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")))
                    tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
                    trContent.Rows.Add(tr)

                    i = i + 1
                Loop
                While i <= dt.Rows.Count

                End While

            Next

        ElseIf rbt_Freig.Checked = True Then
            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, datevon, datebis)

            Dim i As Integer = 0
            'Dim Cell = New TableCell
            tr = New HtmlTableRow()
            For Each d In dt.Rows
                'Dim tr = New TableRow

                Do
                    'Cell.Controls.Add(New HtmlTableCell(i))
                    tr.Cells.Add(New HtmlTableCell(""))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
                    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")))
                    tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
                    trContent.Rows.Add(tr)

                    i = i + 1
                Loop
                While i <= dt.Rows.Count

                End While

            Next
        ElseIf rbt_Ankunft.Checked = True Then
            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {3})

            Dim i As Integer = 0
            'Dim Cell = New TableCell
            tr = New HtmlTableRow()
            For Each d In dt.Rows
                'Dim tr = New TableRow

                Do
                    'Cell.Controls.Add(New HtmlTableCell(i))
                    tr.Cells.Add(New HtmlTableCell(""))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
                    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")))
                    tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
                    trContent.Rows.Add(tr)

                    i = i + 1
                Loop
                While i <= dt.Rows.Count

                End While

            Next

        ElseIf rbt_Vorb.Checked = True Then
            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4})

            Dim i As Integer = 0
            'Dim Cell = New TableCell
            tr = New HtmlTableRow()
            For Each d In dt.Rows
                'Dim tr = New TableRow

                Do
                    'Cell.Controls.Add(New HtmlTableCell(i))
                    tr.Cells.Add(New HtmlTableCell(""))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
                    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")))
                    tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
                    trContent.Rows.Add(tr)

                    i = i + 1
                Loop
                While i <= dt.Rows.Count

                End While
            Next

        ElseIf rbt_Vorg.Checked = True Then
            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {5})

            Dim i As Integer = 0
            'Dim Cell = New TableCell
            tr = New HtmlTableRow()
            For Each d In dt.Rows
                'Dim tr = New TableRow

                Do
                    'Cell.Controls.Add(New HtmlTableCell(i))
                    tr.Cells.Add(New HtmlTableCell(""))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
                    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")))
                    tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
                    trContent.Rows.Add(tr)

                    i = i + 1
                Loop
                While i <= dt.Rows.Count

                End While
            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
            tr = New HtmlTableRow()
            For Each d In dt.Rows
                'Dim tr = New TableRow

                Do
                    'Cell.Controls.Add(New HtmlTableCell(i))
                    tr.Cells.Add(New HtmlTableCell(""))
                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
                    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")))
                    tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
                    trContent.Rows.Add(tr)

                    i = i + 1
                Loop
                While i <= dt.Rows.Count

                End While

            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_Erf.Checked = False
        rbt_Freig.Checked = False
        rbt_Vorg.Checked = False
        rbt_Vorb.Checked = False
        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