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
    Dim dt0, dt1, dt3, dt4, dt5

    Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
        Dim Kdnrtext = txt_KdNr.Text
        Dim datevon As Date = pickdate1.SelectedDate
        Dim datebis As Date = pickdate2.SelectedDate



        If rbt_Erf.Checked = True Then
            dt0 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0}, datevon, datebis)
            Dim i As Integer = 0
            For Each d In dt0.Rows
                Dim tr As HtmlTableRow = New HtmlTableRow()
                tr.Cells.Add(New HtmlTableCell(<td><CheckBox ID="CheckBox1" runat="server"/></td>))
                tr.Cells.Add(New HtmlTableCell(i))
                tr.Cells.Add(New HtmlTableCell(d("")))
                tr.Cells.Add(New HtmlTableCell(d("KundenNr")))
                tr.Cells.Add(New HtmlTableCell(d("Status")))
                tr.Cells.Add(New HtmlTableCell(d("von")))
                tr.Cells.Add(New HtmlTableCell(d("bis")))
                tr.Cells.Add(New HtmlTableCell(d("Absender")))
                tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
                tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
                tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
                tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))


                i = i + 1
            Next
        ElseIf rbt_Freig.Checked = True Then
            dt1 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, datevon, datebis)
            Dim i As Integer = 0
            For Each d In dt1.Rows
                Dim tr As HtmlTableRow = New HtmlTableRow()
                tr.Cells.Add(New HtmlTableCell(<td><CheckBox ID="CheckBox2" runat="server"/></td>))
                tr.Cells.Add(New HtmlTableCell(i))
                tr.Cells.Add(New HtmlTableCell(d("")))
                tr.Cells.Add(New HtmlTableCell(d("KundenNr")))
                tr.Cells.Add(New HtmlTableCell(d("Status")))
                tr.Cells.Add(New HtmlTableCell(d("von")))
                tr.Cells.Add(New HtmlTableCell(d("bis")))
                tr.Cells.Add(New HtmlTableCell(d("Absender")))
                tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
                tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
                tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
                tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))


                i = i + 1
            Next
        ElseIf rbt_Ankunft.Checked = True Then
            dt3 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {3})
            Dim i As Integer = 0
            For Each d In dt3.Rows

                Dim tr As HtmlTableRow = New HtmlTableRow()
                tr.Cells.Add(New HtmlTableCell(<td><CheckBox ID="CheckBox3" runat="server"/></td>))
                tr.Cells.Add(New HtmlTableCell(i))
                tr.Cells.Add(New HtmlTableCell(d(Nothing)))
                tr.Cells.Add(New HtmlTableCell(d("KundenNr")))
                tr.Cells.Add(New HtmlTableCell(d("Status")))
                tr.Cells.Add(New HtmlTableCell(d("von")))
                tr.Cells.Add(New HtmlTableCell(d("bis")))
                tr.Cells.Add(New HtmlTableCell(d("Absender")))
                tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
                tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
                tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
                tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))

                i = i + 1
            Next
        ElseIf rbt_Vorb.Checked = True Then
            dt4 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4})
            Dim i As Integer = 0
            For Each d In dt4.Rows
                Dim tr As HtmlTableRow = New HtmlTableRow()
                tr.Cells.Add(New HtmlTableCell(<td><CheckBox ID="CheckBox4" runat="server"/></td>))
                tr.Cells.Add(New HtmlTableCell(i))
                tr.Cells.Add(New HtmlTableCell(d(Nothing)))
                tr.Cells.Add(New HtmlTableCell(d("KundenNr")))
                tr.Cells.Add(New HtmlTableCell(d("Status")))
                tr.Cells.Add(New HtmlTableCell(d("von")))
                tr.Cells.Add(New HtmlTableCell(d("bis")))
                tr.Cells.Add(New HtmlTableCell(d("Absender")))
                tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
                tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
                tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
                tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))

                i = i + 1
            Next
        ElseIf rbt_Vorg.Checked = True Then
            dt5 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {5})
            Dim i As Integer = 0
            For Each d In dt5.Rows
                Dim tr As HtmlTableRow = New HtmlTableRow()
                tr.Cells.Add(New HtmlTableCell(<td><CheckBox ID="CheckBox5" runat="server"/></td>))
                tr.Cells.Add(New HtmlTableCell(i))
                tr.Cells.Add(New HtmlTableCell(d(Nothing)))
                tr.Cells.Add(New HtmlTableCell(d("KundenNr")))
                tr.Cells.Add(New HtmlTableCell(d("Status")))
                tr.Cells.Add(New HtmlTableCell(d("von")))
                tr.Cells.Add(New HtmlTableCell(d("bis")))
                tr.Cells.Add(New HtmlTableCell(d("Absender")))
                tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
                tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
                tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
                tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))

                i = i + 1
            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
End Class