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
    Dim dt0, dt1, dt3, dt4, dt5, dt6
    Dim dtmain As DataTable = New DataTable
    Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
        Dim Kdnrtext = txt_KdNr.Text
        Dim datevon As Date
        Dim datebis As Date

        Try
            datevon = pickdate1.SelectedDate
            datebis = pickdate2.SelectedDate
        Catch
            datevon = DateValue(Date.Now.ToString("01.MM.yyyy"))
            datebis = DateValue(Date.Now)
        End Try



        If rbt_Erf.Checked = True Then
            dt0 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0})
            dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
            Dim i As Integer = 1
            For Each d In dt0.Rows
                Dim tr As HtmlTableRow = New HtmlTableRow()
                tr.Cells.Add(New HtmlTableCell(i))
                'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
                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>))
                dtmain.Rows.Add(tr)
                Dim sb As StringBuilder = New StringBuilder()
                'Table start.
                sb.Append("<table cellpadding='5' cellspacing='0' style='border: 1px solid #ccc;font-size: 9pt;font-family:Arial'>")
                'Adding HeaderRow.
                sb.Append("<tr>")
                For Each column As DataColumn In dtmain.Columns
                    sb.Append(("<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" _
                            + (column.ColumnName + "</th>")))
                Next
                sb.Append("</tr>")
                'Adding DataRow.
                For Each row As DataRow In dtmain.Rows
                    sb.Append("<tr>")
                    For Each column As DataColumn In dtmain.Columns
                        sb.Append(("<td style='width:100px;border: 1px solid #ccc'>" _
                                + (row(column.ColumnName).ToString + "</td>")))
                    Next
                    sb.Append("</tr>")
                Next
                'Table end.
                sb.Append("</table>")
                ltTable.Text = sb.ToString

                i = i + 1
            Next
        ElseIf rbt_Freig.Checked = True Then
            dt1 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, pickdate1.SelectedDate, pickdate2.SelectedDate)
            dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
            Dim i As Integer = 1
            For Each d In dt1.Rows
                Dim tr As HtmlTableRow = New HtmlTableRow()
                tr.Cells.Add(New HtmlTableCell(i))
                'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
                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>))
                dtmain.Rows.Add(tr)
                Dim sb As StringBuilder = New StringBuilder()
                'Table start.
                sb.Append("<table cellpadding='5' cellspacing='0' style='border: 1px solid #ccc;font-size: 9pt;font-family:Arial'>")
                'Adding HeaderRow.
                sb.Append("<tr>")
                For Each column As DataColumn In dtmain.Columns
                    sb.Append(("<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" _
                            + (column.ColumnName + "</th>")))
                Next
                sb.Append("</tr>")
                'Adding DataRow.
                For Each row As DataRow In dtmain.Rows
                    sb.Append("<tr>")
                    For Each column As DataColumn In dtmain.Columns
                        sb.Append(("<td style='width:100px;border: 1px solid #ccc'>" _
                                + (row(column.ColumnName).ToString + "</td>")))
                    Next
                    sb.Append("</tr>")
                Next
                'Table end.
                sb.Append("</table>")
                ltTable.Text = sb.ToString

                i = i + 1
            Next
        ElseIf rbt_Ankunft.Checked = True Then
            dt3 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {3})
            'dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(Button))})
            Dim i As Integer = 1
            For Each d In dt3.Rows
                Dim tr As HtmlTableRow = New HtmlTableRow()
                tr.Cells.Add(New HtmlTableCell(i))
                'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
                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(<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>))
                dtmain.Rows.Add(tr)
                Dim sb As StringBuilder = New StringBuilder()
                'Table start.
                sb.Append("<table cellpadding='5' cellspacing='0' style='border: 1px solid #ccc;font-size: 9pt;font-family:Arial'>")
                'Adding HeaderRow.
                sb.Append("<tr>")
                For Each column As DataColumn In dtmain.Columns
                    sb.Append(("<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" _
                            + (column.ColumnName + "</th>")))
                Next
                sb.Append("</tr>")
                'Adding DataRow.
                For Each row As DataRow In dtmain.Rows
                    sb.Append("<tr>")
                    For Each column As DataColumn In dtmain.Columns
                        sb.Append(("<td style='width:100px;border: 1px solid #ccc'>" _
                                + (row(column.ColumnName).ToString + "</td>")))
                    Next
                    sb.Append("</tr>")
                Next
                'Table end.
                sb.Append("</table>")
                ltTable.Text = sb.ToString

                i = i + 1
            Next
        ElseIf rbt_Vorb.Checked = True Then
            dt4 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4})
            dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
            Dim i As Integer = 1
            For Each d In dt4.Rows
                Dim tr As HtmlTableRow = New HtmlTableRow()
                tr.Cells.Add(New HtmlTableCell(i))
                'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
                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>))
                dtmain.Rows.Add(tr)
                Dim sb As StringBuilder = New StringBuilder()
                'Table start.
                sb.Append("<table cellpadding='5' cellspacing='0' style='border: 1px solid #ccc;font-size: 9pt;font-family:Arial'>")
                'Adding HeaderRow.
                sb.Append("<tr>")
                For Each column As DataColumn In dtmain.Columns
                    sb.Append(("<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" _
                            + (column.ColumnName + "</th>")))
                Next
                sb.Append("</tr>")
                'Adding DataRow.
                For Each row As DataRow In dtmain.Rows
                    sb.Append("<tr>")
                    For Each column As DataColumn In dtmain.Columns
                        sb.Append(("<td style='width:100px;border: 1px solid #ccc'>" _
                                + (row(column.ColumnName).ToString + "</td>")))
                    Next
                    sb.Append("</tr>")
                Next
                'Table end.
                sb.Append("</table>")
                ltTable.Text = sb.ToString

                i = i + 1
            Next
        ElseIf rbt_Vorg.Checked = True Then
            dt5 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {5})
            dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
            Dim i As Integer = 1
            For Each d In dt5.Rows
                Dim tr As HtmlTableRow = New HtmlTableRow()
                tr.Cells.Add(New HtmlTableCell(i))
                'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
                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>))
                dtmain.Rows.Add(tr)
                Dim sb As StringBuilder = New StringBuilder()
                'Table start.
                sb.Append("<table cellpadding='5' cellspacing='0' style='border: 1px solid #ccc;font-size: 9pt;font-family:Arial'>")
                'Adding HeaderRow.
                sb.Append("<tr>")
                For Each column As DataColumn In dtmain.Columns
                    sb.Append(("<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" _
                            + (column.ColumnName + "</th>")))
                Next
                sb.Append("</tr>")
                'Adding DataRow.
                For Each row As DataRow In dtmain.Rows
                    sb.Append("<tr>")
                    For Each column As DataColumn In dtmain.Columns
                        sb.Append(("<td style='width:100px;border: 1px solid #ccc'>" _
                                + (row(column.ColumnName).ToString + "</td>")))
                    Next
                    sb.Append("</tr>")
                Next
                'Table end.
                sb.Append("</table>")
                ltTable.Text = sb.ToString
                i = i + 1
            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
            dt6 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext,, datevon, datebis)
            dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
            Dim i As Integer = 1
            For Each d In dt6.Rows
                Dim tr As HtmlTableRow = New HtmlTableRow()
                tr.Cells.Add(New HtmlTableCell(i))
                'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
                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>))
                dtmain.Rows.Add(tr)
                Dim sb As StringBuilder = New StringBuilder()
                'Table start.
                sb.Append("<table cellpadding='5' cellspacing='0' style='border: 1px solid #ccc;font-size: 9pt;font-family:Arial'>")
                'Adding HeaderRow.
                sb.Append("<tr>")
                For Each column As DataColumn In dtmain.Columns
                    sb.Append(("<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" _
                            + (column.ColumnName + "</th>")))
                Next
                sb.Append("</tr>")
                'Adding DataRow.
                For Each row As DataRow In dtmain.Rows
                    sb.Append("<tr>")
                    For Each column As DataColumn In dtmain.Columns
                        sb.Append(("<td style='width:100px;border: 1px solid #ccc'>" _
                                + (row(column.ColumnName).ToString + "</td>")))
                    Next
                    sb.Append("</tr>")
                Next
                'Table end.
                sb.Append("</table>")
                ltTable.Text = sb.ToString
                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

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Me.IsPostBack Then
            Dim dt As DataTable = New DataTable
            dt.Columns.AddRange(New DataColumn() {New DataColumn("Id", GetType(System.Int32)), New DataColumn("Name", GetType(System.String)), New DataColumn("Country", GetType(System.String))})
            dt.Rows.Add(1, "John Hammond", "United States")
            dt.Rows.Add(2, "Mudassar Khan", "India")
            dt.Rows.Add(3, "Suzanne Mathews", "France")
            dt.Rows.Add(4, "Robert Schidner", "Russia")

            Dim sb As StringBuilder = New StringBuilder()


        End If
    End Sub

End Class