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 datevon As Date
    Dim datebis As Date
    Dim Kdnrtext As String
    Dim dt
    Dim hrv, hrb, minv, minb, secv, secb As DateAndTime
    Dim setuhrzeit1bool As Boolean = False
    Dim setuhrzeit2bool As Boolean = False
    Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
        Kdnrtext = txt_KdNr.Text

        Dim tbl_CellIndex = New TableCell
        Dim tbl_CellArt = New TableCell
        Dim tbl_CellKundenNr = New TableCell
        Dim tbl_CellStatus = New TableCell
        Dim tbl_Cellvon = New TableCell
        Dim tbl_Cellbis = New TableCell
        Dim tbl_CellAbsender = New TableCell
        Dim tbl_CellEmpfaenger = New TableCell
        Dim tbl_CellLKWs = New TableCell
        Dim tbl_CellKundAuftNr = New TableCell
        Dim tbl_CellInfo = New TableCell

        dt = Nothing

        If txt_pickdate1.Text = "" AndAlso txt_pickdate2.Text = "" AndAlso setuhrzeit1bool = False And setuhrzeit2bool = False Then
            Try
                datevon = Date.Parse(pickdate1.SelectedDate.Day.ToString + "-" + pickdate1.SelectedDate.Month.ToString + "-" + pickdate1.SelectedDate.Year.ToString)
                txt_pickdate1.Text = Date.Parse(pickdate1.SelectedDate.Month.ToString + "-" + pickdate1.SelectedDate.Month.ToString + "-" + pickdate1.SelectedDate.Year.ToString)
                datebis = Date.Parse(pickdate2.SelectedDate.Day.ToString + "-" + pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Year.ToString)
                txt_pickdate2.Text = Date.Parse(pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Year.ToString)

            Catch ex As Exception When datebis < datevon
                Dim dttemp As Date

                dttemp = datebis
                datebis = datevon
                datevon = datebis

            End Try
        ElseIf txt_pickdate1.Text = "" AndAlso txt_pickdate2.Text = "" AndAlso setuhrzeit1bool = False And setuhrzeit2bool = False Then
            Try

                Dim splitArray1 As String() = txt_Uhrzeit1_von.Text.Split(New Char() {":"})
                Dim splitArray2 As String() = txt_Uhrzeit2_bis.Text.Split(New Char() {":"})


                Dim hrv, hrb, m1, m2 As Integer
                If ((Integer.TryParse(splitArray1(0), hrv)) AndAlso
       ((Integer.TryParse(splitArray1(1), m1)) AndAlso
       ((Integer.TryParse(splitArray1(1), m1)) AndAlso
       (Integer.TryParse(splitArray2(0), hrb)) AndAlso
       (Integer.TryParse(splitArray2(1), m2))) Then




                Else
  
    // invalid format HHMM

                End If
            End Try
            temp2 = DateAndTime.Minute(txt_Uhrzeit2_bis.Text)

                datevon = Date.Parse(pickdate1.SelectedDate.Day.ToString + "-" + pickdate1.SelectedDate.Month.ToString + "-" + pickdate1.SelectedDate.Year.ToString + temp1.ToString)
                txt_pickdate1.Text = datevon
                datebis = Date.Parse(pickdate2.SelectedDate.Day.ToString + "-" + pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Year.ToString + hrb.ToString)
                txt_pickdate2.Text = Date.Parse(pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Year.ToString)

            Catch ex As Exception When datebis < datevon
                Dim dttemp As Date

                dttemp = datebis
                datebis = datevon
                datevon = datebis

            End Try
        Else
            Try
                datevon = Date.Parse(txt_pickdate1.Text)
                pickdate1.SelectedDate = datevon
                datebis = Date.Parse(txt_pickdate2.Text)
                pickdate2.SelectedDate = datebis
            Catch ex As Exception When datevon < Date.Parse("01-01-2001") Or datebis > Date.Now
                datevon = DateValue(Date.Now.ToString("01-MM-yyyy"))
                txt_pickdate1.Text = datevon.ToString
                datebis = DateValue(Date.Now)
                txt_pickdate2.Text = datebis.ToString
            End Try
        End If
        'Dim tr



        If rbt_Erf.Checked = True Then
            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0})

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

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

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


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

        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)

        End If

        If dt IsNot Nothing Then
            Dim i As Integer = 0


            '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 dt.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 dt.Rows
            'sb.Append("<tr>")
            'For Each column As DataColumn In dt.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

            Dim Cell = New TableCell
            'tr = New HtmlTableRow()
            Dim tr = New TableRow
            For Each d In dt.Rows
                If i <= dt.Rows.Count Then



                    tbl_CellIndex.Text = i
                    tr.Controls.Add(tbl_CellIndex)
                    tbl_CellArt.Text = ""
                    tr.Controls.Add(tbl_CellArt)
                    tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString
                    tr.Controls.Add(tbl_CellKundenNr)

                    Select Case d("Status")
                        Case 1
                            tbl_CellStatus.Text = "Erfasst"
                            tr.Controls.Add(tbl_CellStatus)
                            'Case 2
                            ' tbl_CellStatus = "Nicht eingetroffen"
                           ' tr.Controls.Add(Cell)
                        Case 3
                            tbl_CellStatus.Text = "Ankunft"
                            tr.Controls.Add(tbl_CellStatus)
                        Case 4
                            tbl_CellStatus.Text = "Vorbereitet"
                            tr.Controls.Add(tbl_CellStatus)
                        Case 5
                            tbl_CellStatus.Text = "Vorgeschrieben"
                            tr.Controls.Add(tbl_CellStatus)
                        Case Else
                            tbl_CellStatus.Text = "Undefiend"
                            tr.Controls.Add(tbl_CellStatus)
                    End Select
                    tbl_Cellvon.Text = d("AvisoEingang").ToString
                    tr.Controls.Add(tbl_Cellvon)
                    tbl_Cellbis.Text = d("AvisoEingang").ToString
                    tr.Controls.Add(tbl_Cellbis)
                    tbl_CellAbsender.Text = d("Auftraggeber").ToString
                    tr.Controls.Add(tbl_CellAbsender)
                    tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString
                    tr.Controls.Add(tbl_CellEmpfaenger)
                    tbl_CellLKWs.Text = d("LKW_Nr").ToString
                    tr.Controls.Add(tbl_CellLKWs)
                    tbl_CellKundAuftNr.Text = d("KdAuftragsNr_Avisierer").ToString
                    tr.Controls.Add(tbl_CellKundAuftNr)



                    normaltable.Rows.Add(tr)

                End If
                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_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_pickdate1.Text = ""
        txt_pickdate2.Text = ""
        datevon = Nothing
        datebis = Nothing
        dt = Nothing
        Kdnrtext = ""
        txt_KdNr.Focus()



    End Sub

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

    Protected Sub ckb_Uhrzeit1_CheckedChanged(sender As Object, e As EventArgs)
        If ckb_Uhrzeit1.Checked = False Then
            lbl_Uhrzeit1_von.ForeColor = Drawing.Color.LightGray
            txt_Uhrzeit1_von.ReadOnly = True
            lbl_Uhrzeit1_bis.ForeColor = Drawing.Color.LightGray
            txt_Uhrzeit1_bis.Enabled = True
            lbl_Uhrzeit2_von.ForeColor = Drawing.Color.LightGray
            txt_Uhrzeit2_von.Enabled = True
            lbl_Uhrzeit2_bis.ForeColor = Drawing.Color.LightGray
            txt_Uhrzeit2_bis.Enabled = True
            setuhrzeit1bool = True
        ElseIf ckb_Uhrzeit2.Checked = False Then
            lbl_Uhrzeit1_von.ForeColor = Drawing.Color.LightGray
            txt_Uhrzeit1_von.ReadOnly = True
            lbl_Uhrzeit1_bis.ForeColor = Drawing.Color.LightGray
            txt_Uhrzeit1_bis.Enabled = True
            lbl_Uhrzeit2_von.ForeColor = Drawing.Color.LightGray
            txt_Uhrzeit2_von.Enabled = True
            lbl_Uhrzeit2_bis.ForeColor = Drawing.Color.LightGray
            txt_Uhrzeit2_bis.Enabled = True
            setuhrzeit2bool = True
        Else
            lbl_Uhrzeit1_von.ForeColor = Drawing.Color.FromArgb(452129)
            txt_Uhrzeit1_von.ReadOnly = False
            lbl_Uhrzeit1_bis.ForeColor = Drawing.Color.FromArgb(452129)
            txt_Uhrzeit1_bis.ReadOnly = False
            lbl_Uhrzeit2_von.ForeColor = Drawing.Color.FromArgb(452129)
            txt_Uhrzeit2_von.ReadOnly = False
            lbl_Uhrzeit2_bis.ForeColor = Drawing.Color.FromArgb(452129)
            txt_Uhrzeit2_bis.ReadOnly = False
            setuhrzeit1bool = False
            setuhrzeit2bool = False
        End If
    End Sub
End Class