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



    Protected Sub Button1_Click(sender As Object, e As EventArgs)
        Dim Kdnrtext = TB_KdNr.Text
        Dim truefalse(5) As Boolean
        Dim numarr(5) As Integer

        Dim dt

        If RadioButtonErf.Checked = True Then

            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {0}, DateTime.Now.ToString, DateTime.Today.AddDays(10).ToString)
        ElseIf RadioButtonFreig.Checked = True Then

            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {1}, DateTime.Now.ToString, DateTime.Today.AddDays(10).ToString)
        ElseIf RadioButtonAnkunft.Checked = True Then

            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {3})
        ElseIf RadioButtonVorb.Checked = True Then

            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {4})
        End If

        For Each num In numarr
            If truefalse.GetValue(num) = True Then
                dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {num})
            Else
                dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {0})
            End If
        Next

    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs)
        RadioButtonAnkunft.Checked = False
        RadioButtonErf.Checked = False
        RadioButtonFreig.Checked = False
        RadioButtonVorb.Checked = False
        RadioButtonVorg.Checked = False
        TB_KdNr.Text = ""
        TB_KdNr.Focus()
    End Sub
End Class