Imports System.Data
Imports System.Web.UI.HtmlControls

Partial Class CustomsAviso
    Inherits System.Web.UI.Page
    Dim datevon As DateTime
    Dim datebis As DateTime
    Dim Kdnrtext As String
    Dim Absender As String = ""
    Dim Empfaenger As String = ""
    Dim LKWNR As String = ""
    Dim KDNAFNR As String = ""
    Dim dt As DataTable
    Dim Art As String = ""
    Dim ckd As Integer = -1
    Dim wasmobile As Boolean = True
    Dim erster As Date = New Date(Now().Year, Now().Month, 1)
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms
        VERAG_VARIABLES.initerrorcount()

        If Me.Page.User.Identity.IsAuthenticated = True Then
            Try
                Kdnrtext = Session.Item("CustomerID")
            Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Kdnrtext)
                MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
                Response.Redirect("Error.aspx&P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt("CustomsAviso.aspx"))
            End Try

            DataBind()

            'Script für Schließen wirklich verlassen Meldung auf der Masterseite für diese Seite zu registrieren und nicht ueberall
            Dim csm1 As ClientScriptManager = Page.ClientScript
            Dim cstype As Type = Page.GetType
            If Not csm1.IsStartupScriptRegistered(cstype, "Startup") Then
                Dim string1 As String = "<script language=\""JavaScript\"">"
                string1 += "</"
                string1 += "window.addEventListener('onunload', (event) => {"
                string1 += " event.preventDefault();"
                string1 += "event.returnValue = '';"
                string1 += "script>"
                csm1.RegisterClientScriptBlock(cstype, "Startup", string1)
            End If

            tbl_Header_row.TableSection = TableRowSection.TableHeader
            ' MsgBox(datebis)
            btn_Auftraege.Enabled = True
            If (Page.IsPostBack) Then
                Page.MaintainScrollPositionOnPostBack = True

                If rbt_Alle.Checked = True Then
                    lbl_von.Visible = True
                    lbl_bis.Visible = True
                    valDateRange_1.Enabled = True
                    valDateRange_2.Enabled = True
                    valreqpickdate1.Enabled = True
                    valreqpickdate2.Enabled = True
                    valreqpickdate1.Validate()
                    valreqpickdate2.Validate()
                    pickdate1.Visible = True
                    pickdate2.Visible = True
                    If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
                        datevon = Date.Parse(pickdate1.Text)
                        datebis = Date.Parse(pickdate2.Text)
                    ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
                        datevon = Nothing
                        datebis = Nothing
                    End If
                ElseIf rbt_Freig.Checked = True Then
                    lbl_von.Visible = True
                    lbl_bis.Visible = True
                    valreqpickdate1.Enabled = True
                    valreqpickdate2.Enabled = True
                    valreqpickdate1.Validate()
                    valreqpickdate2.Validate()
                    valDateRange_1.Enabled = True
                    valDateRange_2.Enabled = True
                    pickdate1.Visible = True
                    pickdate2.Visible = True
                    If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
                        datevon = Date.Parse(pickdate1.Text)
                        datebis = Date.Parse(pickdate2.Text)
                    ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
                        datevon = Nothing
                        datebis = Nothing
                    End If
                ElseIf rbt_Ankunft.Checked = True Then
                    lbl_von.Visible = False
                    lbl_bis.Visible = False
                    valreqpickdate1.Enabled = False
                    valreqpickdate2.Enabled = False
                    valDateRange_1.Enabled = False
                    valDateRange_2.Enabled = False
                    pickdate1.Visible = False
                    pickdate2.Visible = False
                    datevon = Nothing
                    datebis = Nothing
                ElseIf rbt_Erf.Checked = True Then
                    lbl_von.Visible = False
                    lbl_bis.Visible = False
                    valreqpickdate1.Enabled = False
                    valreqpickdate2.Enabled = False
                    valDateRange_1.Enabled = False
                    valDateRange_2.Enabled = False
                    pickdate1.Visible = False
                    pickdate2.Visible = False
                    datevon = Nothing
                    datebis = Nothing
                ElseIf rbt_Vorb.Checked = True Then
                    lbl_von.Visible = False
                    lbl_bis.Visible = False
                    valreqpickdate1.Enabled = False
                    valreqpickdate2.Enabled = False
                    valDateRange_1.Enabled = False
                    valDateRange_2.Enabled = False
                    pickdate1.Visible = False
                    pickdate2.Visible = False
                    datevon = Nothing
                    datebis = Nothing
                ElseIf rbt_Vorg.Checked = True Then
                    lbl_von.Visible = False
                    lbl_bis.Visible = False
                    valreqpickdate1.Enabled = False
                    valreqpickdate2.Enabled = False
                    valDateRange_1.Enabled = False
                    valDateRange_2.Enabled = False
                    pickdate1.Visible = False
                    pickdate2.Visible = False
                    datevon = Nothing
                    datebis = Nothing
                End If
                'Mobil
                If rbt_Alle_M.Checked = True Then
                    lbl_von.Visible = True
                    lbl_bis.Visible = True
                    valreqpickdate1.Enabled = True
                    valreqpickdate2.Enabled = True
                    valreqpickdate1.Validate()
                    valreqpickdate2.Validate()
                    valDateRange_1.Enabled = True
                    valDateRange_2.Enabled = True
                    pickdate1.Visible = True
                    pickdate2.Visible = True
                    If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
                        datevon = Date.Parse(pickdate1.Text)
                        datebis = Date.Parse(pickdate2.Text)
                    ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
                        datevon = Nothing
                        datebis = Nothing
                    End If
                ElseIf rbt_Freig_M.Checked = True Then
                    lbl_von.Visible = True
                    lbl_bis.Visible = True
                    valreqpickdate1.Enabled = True
                    valreqpickdate2.Enabled = True
                    valreqpickdate1.Validate()
                    valreqpickdate2.Validate()
                    valDateRange_1.Enabled = True
                    valDateRange_2.Enabled = True
                    pickdate1.Visible = True
                    pickdate2.Visible = True
                    If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
                        datevon = Date.Parse(pickdate1.Text)
                        datebis = Date.Parse(pickdate2.Text)
                    ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
                        datevon = Nothing
                        datebis = Nothing
                    End If
                ElseIf rbt_Ankunft_M.Checked = True Then
                    lbl_von.Visible = False
                    lbl_bis.Visible = False
                    valreqpickdate1.Enabled = False
                    valreqpickdate2.Enabled = False
                    valDateRange_1.Enabled = False
                    valDateRange_2.Enabled = False
                    pickdate1.Visible = False
                    pickdate2.Visible = False
                    datevon = Nothing
                    datebis = Nothing
                ElseIf rbt_Erf_M.Checked = True Then
                    lbl_von.Visible = False
                    lbl_bis.Visible = False
                    valreqpickdate1.Enabled = False
                    valreqpickdate2.Enabled = False
                    valDateRange_1.Enabled = False
                    valDateRange_2.Enabled = False
                    pickdate1.Visible = False
                    pickdate2.Visible = False
                    datevon = Nothing
                    datebis = Nothing
                ElseIf rbt_Vorb_M.Checked = True Then
                    lbl_von.Visible = False
                    lbl_bis.Visible = False
                    valreqpickdate1.Enabled = False
                    valreqpickdate2.Enabled = False
                    valDateRange_1.Enabled = False
                    valDateRange_2.Enabled = False
                    pickdate1.Visible = False
                    pickdate2.Visible = False
                    datevon = Nothing
                    datebis = Nothing
                ElseIf rbt_Vorg_M.Checked = True Then
                    lbl_von.Visible = False
                    lbl_bis.Visible = False
                    valreqpickdate1.Enabled = False
                    valreqpickdate2.Enabled = False
                    valDateRange_1.Enabled = False
                    valDateRange_2.Enabled = False
                    pickdate1.Visible = False
                    pickdate2.Visible = False
                    datevon = Nothing
                    datebis = Nothing
                End If
                If txt_Absender.Text IsNot "" Then
                    txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                    regexval_txt_Absender.Enabled = True
                    regexval_txt_Absender.Validate()
                    If regexval_txt_Absender.IsValid Then
                        Try
                            wasmobile = False
                            Absender = txt_Absender.Text
                        Catch ex As FormatException
                            regexval_txt_Empfaenger.ForeColor = Drawing.Color.Red
                            regexval_txt_Empfaenger.ErrorMessage = "Diese Daten können nicht validiert werden"
                        End Try
                    Else
                        regexval_txt_Absender.ForeColor = Drawing.Color.Red
                        regexval_txt_Absender.ErrorMessage = "Der Absender ist nicht richtig formatiert."
                    End If
                ElseIf txt_Empfaenger.Text IsNot "" Then
                    txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                    regexval_txt_Empfaenger.Enabled = True
                    regexval_txt_Empfaenger.Validate()
                    If regexval_txt_Empfaenger.IsValid Then
                        Try
                            wasmobile = False
                            Empfaenger = txt_Empfaenger.Text
                        Catch ex As FormatException
                            MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
                        End Try
                    Else
                        regexval_txt_Empfaenger.ForeColor = Drawing.Color.Red
                        regexval_txt_Empfaenger.ErrorMessage = "Der Empfänger ist nicht richtig formatiert."
                    End If
                ElseIf txt_KdNrAuftrag.Text IsNot "" Then
                    txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                    regexval_txt_KdNrAuftrag.Enabled = True
                    regexval_txt_KdNrAuftrag.Validate()
                    If regexval_txt_KdNrAuftrag.IsValid Then
                        Try
                            wasmobile = False
                            KDNAFNR = txt_KdNrAuftrag.Text
                        Catch ex As FormatException
                            MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
                        End Try
                    Else
                        regexval_txt_KdNrAuftrag.ForeColor = Drawing.Color.Red
                        regexval_txt_KdNrAuftrag.ErrorMessage = "Die Kundenummer ist nicht richtig formatiert."
                    End If
                ElseIf txt_LKWNr.Text IsNot "" Then
                    txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                    regexval_txt_LKW.Enabled = True
                    regexval_txt_LKW.Validate()
                    If regexval_txt_LKW.IsValid = True Then
                        Try
                            LKWNR = txt_LKWNr.Text
                        Catch ex As FormatException
                            MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
                        End Try
                    Else
                        regexval_txt_LKW.ForeColor = Drawing.Color.Red
                        regexval_txt_LKW.ErrorMessage = "Das LKW Kennzeichen ist nicht richtig formatiert."
                    End If
                ElseIf txt_Absender_M.Text IsNot "" Then
                    txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                    regval_txt_Absender_M.Enabled = True
                    regval_txt_Absender_M.Validate()
                    If regval_txt_Absender_M.IsValid Then
                        Try
                            wasmobile = True
                            Absender = txt_Absender_M.Text
                        Catch ex As FormatException
                            MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
                        End Try
                    Else
                        regval_txt_Absender_M.ForeColor = Drawing.Color.Red
                        regval_txt_Absender_M.ErrorMessage = "Der Absender ist nicht richtig formatiert."
                    End If
                ElseIf txt_Empfaenger_M.Text IsNot "" Then
                    txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                    regval_txt_Empfaenger_M.Enabled = True
                    regval_txt_Empfaenger_M.Validate()
                    If regval_txt_Empfaenger_M.IsValid = True Then
                        Try
                            Empfaenger = txt_Empfaenger_M.Text
                        Catch ex As FormatException
                            MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
                        End Try
                    Else
                        regval_txt_Empfaenger_M.ForeColor = Drawing.Color.Red
                        regval_txt_Empfaenger_M.ErrorMessage = "Der Empfänger ist nicht richtig formatiert."
                    End If
                ElseIf txt_KdNrAuftrag_M.Text IsNot "" Then
                    txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                    regval_txt_KdNrAuftrag_M.Enabled = True
                    regval_txt_KdNrAuftrag_M.Validate()
                    If regval_txt_KdNrAuftrag_M.IsValid = True Then
                        Try
                            wasmobile = True
                            KDNAFNR = txt_KdNrAuftrag_M.Text
                        Catch ex As FormatException
                            MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
                        End Try
                    Else
                        regval_txt_KdNrAuftrag_M.ForeColor = Drawing.Color.Red
                        regval_txt_KdNrAuftrag_M.ErrorMessage = "Die Kundennummer ist nicht richtig formatiert."
                    End If
                ElseIf txt_LKWNr_M.Text IsNot "" Then
                    txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                    regexval_txt_LKWNr_M.Enabled = True
                    regexval_txt_LKWNr_M.Validate()
                    If regexval_txt_LKWNr_M.IsValid = True Then
                        Try
                            wasmobile = True
                            LKWNR = txt_LKWNr_M.Text
                        Catch ex As FormatException
                            MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
                        End Try
                    Else
                        regexval_txt_LKWNr_M.ForeColor = Drawing.Color.Red
                        regexval_txt_LKWNr_M.ErrorMessage = "Das LKW Kennzeichen ist nicht richtig formatiert."
                    End If
                End If
                If rbt_Alle.Checked = True Then
                    pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                    pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                    ckd = 1
                    Session.Add("IDOFCKBOX", ckd.ToString)
                    If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
                        Try

                            datevon = Me.erster
                            datebis = Date.Parse(Now.ToShortDateString)
                            pickdate1.Text = Me.erster.ToUniversalTime.ToString("yyyy-MM-dd")
                            pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd")
                            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
                        Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
                            MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
                        End Try
                    Else
                        Try
                            datevon = Date.Parse(pickdate1.Text)
                            datebis = Date.Parse(pickdate2.Text)
                            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
                        Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
                            MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
                        End Try
                    End If

                ElseIf rbt_Erf.Checked = True Then
                    ckd = 2
                    Session.Add("IDOFCKBOX", ckd.ToString)
                    dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)

                ElseIf rbt_Freig.Checked = True Then
                    ckd = 3
                    pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                    pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                    If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
                        datevon = Me.erster
                        datebis = Date.Parse(Now.ToShortDateString)
                        pickdate1.Text = Me.erster.ToUniversalTime.ToString("yyyy-MM-dd")
                        pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd")
                        pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
                        dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
                    Else
                        Try
                            datevon = Date.Parse(pickdate1.Text)
                            'MsgBox(pickdate1.Text)
                            datebis = Date.Parse(pickdate2.Text)
                            'MsgBox(pickdate2.Text)
                            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
                        Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
                            MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
                        End Try
                    End If
                ElseIf rbt_Ankunft.Checked = True Then
                    ckd = 4
                    dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
                ElseIf rbt_Vorb.Checked = True Then
                    ckd = 5
                    dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
                ElseIf rbt_Vorg.Checked = True Then
                    ckd = 6

                    dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
                End If
                If rbt_Alle_M.Checked = True Then
                    pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                    pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                    ckd = 7
                    If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
                        Try
                            datevon = Me.erster
                            datebis = Date.Parse(Now.ToShortDateString)
                            pickdate1.Text = Me.erster.ToUniversalTime.ToString("yyyy-MM-dd")
                            pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd")
                            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
                        Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
                            MsgBox("Time ranges are not valid!", MsgBoxStyle.Exclamation)
                        End Try
                    Else
                        Try
                            datevon = Date.Parse(pickdate1.Text)
                            datebis = Date.Parse(pickdate2.Text)
                            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
                        Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
                            MsgBox("The time ranges given are not valid!", MsgBoxStyle.Exclamation)
                        End Try
                    End If
                ElseIf rbt_Erf_M.Checked = True Then
                    ckd = 8
                    dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
                ElseIf rbt_Freig_M.Checked = True Then
                    ckd = 9
                    Session.Add("IDOFCKBOX", ckd.ToString)
                    pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                    pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                    If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then

                        datevon = Me.erster
                        datebis = Date.Parse(Now.ToShortDateString)
                        pickdate1.Text = Me.erster.ToUniversalTime.ToString("yyyy-MM-dd")
                        pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd")
                        dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
                    Else
                        Try
                            datevon = Date.Parse(pickdate1.Text)
                            'MsgBox(pickdate1.Text)
                            datebis = Date.Parse(pickdate2.Text)
                            'MsgBox(pickdate2.Text)
                            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
                        Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
                            MsgBox("The time ranges given are not valid!", MsgBoxStyle.Exclamation)
                        End Try
                    End If
                ElseIf rbt_Ankunft_M.Checked = True Then
                    ckd = 10
                    pickdate1.Visible = False
                    pickdate2.Visible = False
                    dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
                ElseIf rbt_Vorb_M.Checked = True Then
                    ckd = 11
                    dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
                ElseIf rbt_Vorg_M.Checked = True Then
                    ckd = 12
                    dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
                End If

                addrows()
            Else

                Page.MaintainScrollPositionOnPostBack = False
                rbt_Alle.Checked = True


                lbl_von.Visible = True
                lbl_bis.Visible = True
                valDateRange_1.Enabled = True
                valDateRange_2.Enabled = True
                pickdate1.Visible = True
                pickdate2.Visible = True

                If String.IsNullOrEmpty(txt_LKWNr.Text) Then
                    regexval_txt_LKW.Enabled = False
                Else
                    regexval_txt_LKW.Enabled = True
                End If
                If String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = True Then
                    regexval_txt_KdNrAuftrag.Enabled = False
                Else
                    regexval_txt_KdNrAuftrag.Enabled = True
                End If
                If String.IsNullOrEmpty(txt_Empfaenger.Text) = True Then
                    regexval_txt_Empfaenger.Enabled = False
                Else
                    regexval_txt_Empfaenger.Enabled = True
                End If
                If String.IsNullOrEmpty(txt_Absender.Text) = True Then
                    regexval_txt_Absender.Enabled = False
                Else
                    regexval_txt_Absender.Enabled = True
                End If
                'Mobile
                If String.IsNullOrEmpty(txt_LKWNr_M.Text) Then
                    regexval_txt_LKWNr_M.Enabled = False
                Else
                    regexval_txt_LKWNr_M.Enabled = True
                End If
                If String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = True Then
                    regval_txt_KdNrAuftrag_M.Enabled = False
                Else
                    regval_txt_KdNrAuftrag_M.Enabled = True
                End If
                If String.IsNullOrEmpty(txt_Empfaenger_M.Text) = True Then
                    regval_txt_Empfaenger_M.Enabled = False
                Else
                    regval_txt_Empfaenger_M.Enabled = True
                End If
                If String.IsNullOrEmpty(txt_Absender_M.Text) = True Then
                    regval_txt_Absender_M.Enabled = False
                Else
                    regval_txt_Absender_M.Enabled = True
                End If
            End If
            Dim erster = New Date(Now().Year, Now().Month, 1)
            datevon = erster
            datebis = Date.Parse(Now.ToShortDateString)
            pickdate1.Text = erster.ToUniversalTime.ToString("yyyy-MM-dd")
            pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd")
        Else
            'VERAG_VARIABLES.seterrorcount(20)
            'Console.WriteLine(VERAG_VARIABLES.geterrornumb() + "The User is not authenticated to this page. Please login again!", vbAbort, "Error User")
            FormsAuthentication.RedirectToLoginPage()
        End If

    End Sub

    Protected Sub initcells(tr As TableRow, t1 As TableCell, t2 As TableCell, t3 As TableCell, t4 As TableCell, t5 As TableCell, t6 As TableCell, t7 As TableCell, t8 As TableCell, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, th6 As TableHeaderCell, th7 As TableHeaderCell, th8 As TableHeaderCell)
        Dim white As Drawing.Color = Drawing.Color.White
        Dim schwarz As Drawing.Color = Drawing.Color.Black
        Dim darkgrau As Drawing.Color = Drawing.Color.DarkGray
        Dim darkblue = Drawing.Color.FromArgb(4, 51, 129)

        tr.BackColor = white
        If t1.Text = "" Then
            t1.BackColor = white
            t1.ForeColor = schwarz
        Else
            t1.BackColor = white
            t1.ForeColor = schwarz
        End If
        If t2.Text = "Erfasst" Then
            t2.BackColor = Drawing.Color.HotPink
            t2.ForeColor = white
        ElseIf t2.Text = "Nicht eingetroffen" Then
            t2.BackColor = Drawing.Color.Black
            t2.ForeColor = white
        ElseIf t2.Text = "Ankunft" Then
            t2.BackColor = Drawing.Color.DarkBlue
            t2.ForeColor = white
        ElseIf t2.Text = "Vorbereitet" Then
            t2.BackColor = System.Drawing.Color.Brown
            t2.ForeColor = white
        ElseIf t2.Text = "Vorgeschrieben" Then
            t2.BackColor = Drawing.Color.Purple
            t2.ForeColor = white
        ElseIf t2.Text = "Freigabe" Then
            t2.BackColor = Drawing.Color.Green
            t2.ForeColor = white
        ElseIf t2.Text = "Undefiniert" Then
            t2.BackColor = Drawing.Color.DarkGray
            t2.ForeColor = white
        Else
            t2.BackColor = Drawing.Color.Red
            t2.ForeColor = white
        End If
        If t3.Text = "" Then
            t3.BackColor = white
            t3.ForeColor = schwarz
        Else
            t3.BackColor = white
            t3.ForeColor = schwarz
        End If
        If t4.Text = "" Then
            t4.BackColor = white
            t4.ForeColor = schwarz
        Else
            t4.BackColor = white
            t4.ForeColor = schwarz
        End If
        If t5.Text = "" Then
            t5.BackColor = white
            t5.ForeColor = schwarz
        Else
            t5.BackColor = white
            t5.ForeColor = schwarz
        End If
        If t6.Text = "" Then
            t6.BackColor = white
            t6.ForeColor = schwarz
        Else
            t6.BackColor = white
            t6.ForeColor = schwarz
        End If
        If t7.Text = "" Then
            t7.BackColor = white
            t7.ForeColor = schwarz
        Else
            t7.BackColor = white
            t7.ForeColor = schwarz
        End If
        If t8.Text = "" Then
            t8.BackColor = white
            t8.ForeColor = schwarz
        Else
            t8.BackColor = white
            t8.ForeColor = schwarz
        End If
        th1.Font.Bold = True
        th1.BackColor = darkblue
        th1.ForeColor = white
        th2.Font.Bold = True
        th2.BackColor = darkblue
        th2.ForeColor = white
        th3.Font.Bold = True
        th3.BackColor = darkblue
        th3.ForeColor = white
        th4.Font.Bold = True
        th4.BackColor = darkblue
        th4.ForeColor = white
        th5.Font.Bold = True
        th5.BackColor = darkblue
        th5.ForeColor = white
        th6.Font.Bold = True
        th6.BackColor = darkblue
        th6.ForeColor = white
        th7.Font.Bold = True
        th7.BackColor = darkblue
        th7.ForeColor = white
        th8.Font.Bold = True
        th8.BackColor = darkblue
        th8.ForeColor = white
    End Sub

    Protected Sub btn_Auftraege_Click(ByVal sender As Object, e As EventArgs) Handles btn_Auftraege.Click
        dt = Nothing
        MsgBox("TEst")
        Session.Add("mytable", Nothing)
        If Session.Item("mytable") = Nothing Then
            If txt_Absender.Text IsNot "" Then
                txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                regexval_txt_Absender.Enabled = True
                regexval_txt_Absender.Validate()
                If regexval_txt_Absender.IsValid Then
                    Try
                        wasmobile = False
                        Absender = txt_Absender.Text
                    Catch ex As FormatException
                        regexval_txt_Empfaenger.ForeColor = Drawing.Color.Red
                        regexval_txt_Empfaenger.ErrorMessage = "Diese Daten können nicht validiert werden"
                    End Try
                Else
                    regexval_txt_Absender.ForeColor = Drawing.Color.Red
                    regexval_txt_Absender.ErrorMessage = "Der Absender ist nicht richtig formatiert."
                End If
            Else
                txt_Absender.ValidateRequestMode = 
                regexval_txt_Absender.Enabled = False
            End If
            If txt_Empfaenger.Text IsNot "" Then
                txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                regexval_txt_Empfaenger.Enabled = True
                regexval_txt_Empfaenger.Validate()
                If regexval_txt_Empfaenger.IsValid Then
                    Try
                        wasmobile = False
                        Empfaenger = txt_Empfaenger.Text
                    Catch ex As FormatException
                        MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
                    End Try
                Else
                    regexval_txt_Empfaenger.ForeColor = Drawing.Color.Red
                    regexval_txt_Empfaenger.ErrorMessage = "Der Empfänger ist nicht richtig formatiert."
                End If
            Else
                txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Disabled
                regexval_txt_Empfaenger.Enabled = False
            End If
            If txt_KdNrAuftrag.Text IsNot "" Then
                txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                regexval_txt_KdNrAuftrag.Enabled = True
                regexval_txt_KdNrAuftrag.Validate()
                If regexval_txt_KdNrAuftrag.IsValid Then
                    Try
                        wasmobile = False
                        KDNAFNR = txt_KdNrAuftrag.Text
                    Catch ex As FormatException
                        MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
                    End Try
                Else
                    regexval_txt_KdNrAuftrag.ForeColor = Drawing.Color.Red
                    regexval_txt_KdNrAuftrag.ErrorMessage = "Die Kundenummer ist nicht richtig formatiert."
                End If
            Else
                txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Disabled
                regexval_txt_KdNrAuftrag.Enabled = False
            End If
            If txt_LKWNr.Text IsNot "" Then
                txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                regexval_txt_LKW.Enabled = True
                regexval_txt_LKW.Validate()
                If regexval_txt_LKW.IsValid = True Then
                    Try
                        LKWNR = txt_LKWNr.Text
                    Catch ex As FormatException
                        MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
                    End Try
                Else
                    regexval_txt_LKW.ForeColor = Drawing.Color.Red
                    regexval_txt_LKW.ErrorMessage = "Das LKW Kennzeichen ist nicht richtig formatiert."
                End If
            Else
                txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Disabled
                regexval_txt_LKW.Enabled = False
            End If
            If txt_Absender_M.Text IsNot "" Then
                txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                regval_txt_Absender_M.Enabled = True
                regval_txt_Absender_M.Validate()
                If regval_txt_Absender_M.IsValid Then
                    Try
                        wasmobile = True
                        Absender = txt_Absender_M.Text
                    Catch ex As FormatException
                        MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
                    End Try
                Else
                    regval_txt_Absender_M.ForeColor = Drawing.Color.Red
                    regval_txt_Absender_M.ErrorMessage = "Der Absender ist nicht richtig formatiert."
                End If
            Else
                txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
                regval_txt_Absender_M.Enabled = False
            End If
            If txt_Empfaenger_M.Text IsNot "" Then
                txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                regval_txt_Empfaenger_M.Enabled = True
                regval_txt_Empfaenger_M.Validate()
                If regval_txt_Empfaenger_M.IsValid = True Then
                    Try
                        wasmobile = True
                        Empfaenger = txt_Empfaenger_M.Text
                    Catch ex As FormatException
                        MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
                    End Try
                Else
                    regval_txt_Empfaenger_M.ForeColor = Drawing.Color.Red
                    regval_txt_Empfaenger_M.ErrorMessage = "Der Empfänger ist nicht richtig formatiert."
                End If
            Else
                txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
                regval_txt_Empfaenger_M.Enabled = False
            End If
            If txt_KdNrAuftrag_M.Text IsNot "" Then
                txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                regval_txt_KdNrAuftrag_M.Enabled = True
                regval_txt_KdNrAuftrag_M.Validate()
                If regval_txt_KdNrAuftrag_M.IsValid = True Then
                    Try
                        wasmobile = True
                        KDNAFNR = txt_KdNrAuftrag_M.Text
                    Catch ex As FormatException
                        MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
                    End Try
                Else
                    regval_txt_KdNrAuftrag_M.ForeColor = Drawing.Color.Red
                    regval_txt_KdNrAuftrag_M.ErrorMessage = "Die Kundennummer ist nicht richtig formatiert."
                End If
            Else
                txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
                regval_txt_KdNrAuftrag_M.Enabled = False
            End If
            If txt_LKWNr_M.Text IsNot "" Then
                txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                regexval_txt_LKWNr_M.Enabled = True
                regexval_txt_LKWNr_M.Validate()
                If regexval_txt_LKWNr_M.IsValid = True Then
                    Try
                        wasmobile = True
                        LKWNR = txt_LKWNr_M.Text
                    Catch ex As FormatException
                        MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
                    End Try
                Else
                    regexval_txt_LKWNr_M.ForeColor = Drawing.Color.Red
                    regexval_txt_LKWNr_M.ErrorMessage = "Das LKW Kennzeichen ist nicht richtig formatiert."
                End If
            Else
                txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
                regexval_txt_LKWNr_M.Enabled = False
            End If
            If rbt_Alle.Checked = True Then
                pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                ckd = 1
                Session.Add("IDOFCKBOX", ckd.ToString)
                If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
                    Try
                        Dim erster = New Date(Now().Year, Now().Month, 1)
                        datevon = erster
                        datebis = Date.Parse(Now.ToShortDateString)
                        pickdate1.Text = erster.ToUniversalTime.ToString("yyyy-MM-dd")
                        pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd")
                        dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
                    Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
                        MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
                    End Try
                Else
                    Try
                        datevon = Date.Parse(pickdate1.Text)
                        datebis = Date.Parse(pickdate2.Text)
                        dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
                    Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
                        MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
                    End Try
                End If

            ElseIf rbt_Erf.Checked = True Then
                ckd = 2
                Session.Add("IDOFCKBOX", ckd.ToString)
                dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)

            ElseIf rbt_Freig.Checked = True Then
                ckd = 3
                pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
                    Dim erster = New Date(Now().Year, Now().Month, 1)
                    datevon = erster
                    datebis = Date.Parse(Now.ToShortDateString)
                    pickdate1.Text = erster.ToUniversalTime.ToString("yyyy-MM-dd")
                    pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd")
                    pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
                    dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
                Else
                    Try
                        datevon = Date.Parse(pickdate1.Text)
                        'MsgBox(pickdate1.Text)
                        datebis = Date.Parse(pickdate2.Text)
                        'MsgBox(pickdate2.Text)
                        dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
                    Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
                        MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
                    End Try
                End If
            ElseIf rbt_Ankunft.Checked = True Then
                ckd = 4
                dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
            ElseIf rbt_Vorb.Checked = True Then
                ckd = 5
                dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
            ElseIf rbt_Vorg.Checked = True Then
                ckd = 6

                dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
            End If
            If rbt_Alle_M.Checked = True Then
                pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                ckd = 7
                If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
                    Try
                        Dim erster = New Date(Now().Year, Now().Month, 1)
                        datevon = erster
                        datebis = Date.Parse(Now.ToShortDateString)
                        pickdate1.Text = erster.ToUniversalTime.ToString("yyyy-MM-dd")
                        pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd")
                        dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
                    Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
                        MsgBox("Time ranges are not valid!", MsgBoxStyle.Exclamation)
                    End Try
                Else
                    Try
                        datevon = Date.Parse(pickdate1.Text)
                        datebis = Date.Parse(pickdate2.Text)
                        dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
                    Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
                        MsgBox("The time ranges given are not valid!", MsgBoxStyle.Exclamation)
                    End Try
                End If
            ElseIf rbt_Erf_M.Checked = True Then
                ckd = 8
                dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
            ElseIf rbt_Freig_M.Checked = True Then
                ckd = 9
                Session.Add("IDOFCKBOX", ckd.ToString)
                pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
                    Dim erster = New Date(Now().Year, Now().Month, 1)
                    datevon = erster
                    datebis = Date.Parse(Now.ToShortDateString)
                    pickdate1.Text = erster.ToUniversalTime.ToString("yyyy-MM-dd")
                    pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd")
                    dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
                Else
                    Try
                        datevon = Date.Parse(pickdate1.Text)
                        'MsgBox(pickdate1.Text)
                        datebis = Date.Parse(pickdate2.Text)
                        'MsgBox(pickdate2.Text)
                        dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
                    Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
                        MsgBox("The time ranges given are not valid!", MsgBoxStyle.Exclamation)
                    End Try
                End If
            ElseIf rbt_Ankunft_M.Checked = True Then
                ckd = 10
                pickdate1.Visible = False
                pickdate2.Visible = False
                dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
            ElseIf rbt_Vorb_M.Checked = True Then
                ckd = 11
                dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
            ElseIf rbt_Vorg_M.Checked = True Then
                ckd = 12
                dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
            End If
        End If
        addrows()
        Session.Item("mytable") = normaltable
    End Sub

    Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)
        Dim erster = New Date(Now().Year, Now().Month, 1)
        pickdate1.Text = erster.Day.ToString + "." + erster.Month.ToString + "." + erster.Year.ToString
        pickdate2.Text = Date.Parse(erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
        datevon = Nothing
        datebis = Nothing
        dt = Nothing
        normaltable.Rows.Clear()
        If String.IsNullOrEmpty(txt_Absender_M.Text) = False Or String.IsNullOrEmpty(txt_Empfaenger_M.Text) = False Or String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = False Or String.IsNullOrEmpty(txt_LKWNr_M.Text) = False Or rbt_Alle_M.Checked = True Or rbt_Ankunft_M.Checked = True Or rbt_Erf_M.Checked = True Or rbt_Freig_M.Checked = True Or rbt_Vorb_M.Checked = True Or rbt_Vorg_M.Checked = True Then
            'Mobil
            rbt_Alle_M.Checked = True
            rbt_Alle_M.Disabled = False
            rbt_Ankunft_M.Checked = False
            rbt_Ankunft_M.Disabled = False
            rbt_Erf_M.Checked = False
            rbt_Erf_M.Disabled = False
            rbt_Freig_M.Checked = False
            rbt_Freig_M.Disabled = False
            rbt_Vorg_M.Checked = False
            rbt_Vorg_M.Disabled = False
            rbt_Vorb_M.Checked = False
            rbt_Vorb_M.Disabled = False
            txt_Absender_M.Text = ""
            txt_Empfaenger_M.Text = ""
            txt_KdNrAuftrag_M.Text = ""
            txt_LKWNr_M.Text = ""
            'Desktop
            rbt_Alle.Checked = False
            rbt_Alle.Disabled = False
            rbt_Ankunft.Checked = False
            rbt_Ankunft.Disabled = False
            rbt_Erf.Checked = False
            rbt_Erf.Disabled = False
            rbt_Freig.Checked = False
            rbt_Freig.Disabled = False
            rbt_Vorg.Checked = False
            rbt_Vorg.Disabled = False
            rbt_Vorb.Checked = False
            rbt_Vorb.Disabled = False

            txt_Absender_M.Text = ""
            txt_Empfaenger_M.Text = ""
            txt_KdNrAuftrag_M.Text = ""
            txt_LKWNr_M.Text = ""
            Response.Redirect(Request.RawUrl)
            Return
        ElseIf String.IsNullOrEmpty(txt_Absender.Text) = False Or String.IsNullOrEmpty(txt_Empfaenger.Text) = False Or String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = False Or String.IsNullOrEmpty(txt_LKWNr.Text) = False Or rbt_Alle.Checked = True Or rbt_Ankunft.Checked = True Or rbt_Erf.Checked = True Or rbt_Freig.Checked = True Or rbt_Vorb.Checked = True Or rbt_Vorg.Checked = True Then
            'Desktop
            rbt_Alle.Checked = True
            rbt_Alle.Disabled = False
            rbt_Ankunft.Checked = False
            rbt_Ankunft.Disabled = False
            rbt_Erf.Checked = False
            rbt_Erf.Disabled = False
            rbt_Freig.Checked = False
            rbt_Freig.Disabled = False
            rbt_Vorg.Checked = False
            rbt_Vorg.Disabled = False
            rbt_Vorb.Checked = False
            rbt_Vorb.Disabled = False

            rbt_Alle_M.Checked = False
            rbt_Alle_M.Disabled = False
            rbt_Ankunft_M.Checked = False
            rbt_Ankunft_M.Disabled = False
            rbt_Erf_M.Checked = False
            rbt_Erf_M.Disabled = False
            rbt_Freig_M.Checked = False
            rbt_Freig_M.Disabled = False
            rbt_Vorg_M.Checked = False
            rbt_Vorg_M.Disabled = False
            rbt_Vorb_M.Checked = False
            rbt_Vorb_M.Disabled = False

            txt_Absender.Text = ""
            txt_Empfaenger.Text = ""
            txt_KdNrAuftrag.Text = ""
            txt_LKWNr.Text = ""
            Response.Redirect(Request.RawUrl)

            Return
        End If
    End Sub

    Protected Sub addrows()
        Session.Item("mytable") = Nothing
        normaltable.Rows.Clear()
        Dim header As TableHeaderRow = New TableHeaderRow()
        header.Cells.Add(tbl_HeaderCellIndexNr)
        header.Cells.Add(tbl_HeaderCell_LKWs)
        header.Cells.Add(tbl_HeaderCell_Status)
        header.Cells.Add(tbl_HeaderCell_Auftragsdatum)
        header.Cells.Add(tbl_HeaderCell_Absender)
        header.Cells.Add(tbl_HeaderCell_Empfaenger)
        header.Cells.Add(tbl_HeaderCell_KundAuftNr)
        header.Cells.Add(tbl_HeaderCell_Info)

        normaltable.Rows.Add(header)
        If dt IsNot Nothing AndAlso Not dt.Rows.Count = 0 Then
            Dim i As Integer = 0
            For Each d In dt.Rows
                Dim tr = New TableRow
                Dim Cell = New TableCell
                Dim tbl_CellIndex = New TableCell
                Dim tbl_CellStatus = New TableCell
                Dim tbl_Cell_Auftragsdatum = 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

                Dim zahl = i + 1
                tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                tbl_CellIndex.Text = zahl
                tr.Cells.Add(tbl_CellIndex)
                tbl_CellLKWs.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                tbl_CellLKWs.Text = d("LKW_Nr").ToString
                tr.Cells.Add(tbl_CellLKWs)
                tbl_CellStatus.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                Select Case d("Status")
                    Case 0
                        tbl_CellStatus.Text = "Erfasst"
                        tr.Cells.Add(tbl_CellStatus)
                    Case 1
                        tbl_CellStatus.Text = "Freigabe"
                        tr.Cells.Add(tbl_CellStatus)
                    Case 2
                        tbl_CellStatus.Text = "Nicht eingetroffen"
                        tr.Cells.Add(tbl_CellStatus)
                    Case 3
                        tbl_CellStatus.Text = "Ankunft"
                        tr.Cells.Add(tbl_CellStatus)
                    Case 4
                        tbl_CellStatus.Text = "Vorbereitet"
                        tr.Cells.Add(tbl_CellStatus)
                    Case 5
                        tbl_CellStatus.Text = "Vorgeschrieben"
                        tr.Cells.Add(tbl_CellStatus)
                    Case Nothing
                        tbl_CellStatus.Text = "Undefiniened"
                        tr.Cells.Add(tbl_CellStatus)
                End Select
                initcells(tr, tbl_CellIndex, tbl_CellStatus, tbl_Cell_Auftragsdatum, tbl_CellAbsender, tbl_CellEmpfaenger, tbl_CellLKWs, tbl_CellKundAuftNr, tbl_CellInfo, tbl_HeaderCellIndexNr, tbl_HeaderCell_Status, tbl_HeaderCell_Auftragsdatum, tbl_HeaderCell_Absender, tbl_HeaderCell_Empfaenger, tbl_HeaderCell_LKWs, tbl_HeaderCell_KundAuftNr, tbl_HeaderCell_Info)
                tbl_Cell_Auftragsdatum.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                tbl_Cell_Auftragsdatum.Text = d("AvisoEingang").ToString
                tr.Cells.Add(tbl_Cell_Auftragsdatum)
                tbl_CellAbsender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                tbl_CellAbsender.Text = d("Auftraggeber").ToString
                tr.Cells.Add(tbl_CellAbsender)
                tbl_CellEmpfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString
                tr.Cells.Add(tbl_CellEmpfaenger)
                tbl_CellKundAuftNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                tbl_CellKundAuftNr.Text = d("KdAuftragsNr_Avisierer").ToString
                tr.Cells.Add(tbl_CellKundAuftNr)

                Dim btn As New ImageButton
                btn.ViewStateMode = ViewStateMode.Enabled
                'btn.Text = "Text"
                btn.CssClass = "btn btn-primary"
                btn.ImageUrl = "../images/Icons/service/hilfe_small.png"
                'btn.Attributes.Add("Text", <img src= width="15" height="15"/>)
                btn.Attributes.Add("href", "../status_Julius.aspx?AvisoId=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d("AvisoID")).ToString)
                btn.Attributes.Add("target", "_blank")
                btn.PostBackUrl = "../status_Julius.aspx?AvisoId=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d("AvisoID")).ToString
                btn.Height = Unit.Pixel(40)
                btn.Width = Unit.Pixel(46)
                tbl_CellInfo.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                tbl_CellInfo.Controls.Add(btn)
                tr.Cells.Add(tbl_CellInfo)

                If (rbt_Alle.Checked = True Or rbt_Alle_M.Checked = True) Then
                    normaltable.Rows.Add(tr)
                ElseIf (rbt_Ankunft.Checked = True Or rbt_Ankunft_M.Checked = True) AndAlso tbl_CellStatus.Text = "Ankunft" Then
                    normaltable.Rows.Add(tr)
                ElseIf (rbt_Erf.Checked = True Or rbt_Erf_M.Checked = True) AndAlso tbl_CellStatus.Text = "Erfasst" Then
                    normaltable.Rows.Add(tr)
                ElseIf (rbt_Freig.Checked = True Or rbt_Freig_M.Checked = True) AndAlso tbl_CellStatus.Text = "Freigegeben" Then
                    normaltable.Rows.Add(tr)
                ElseIf (rbt_Vorb.Checked = True Or rbt_Vorb_M.Checked = True) AndAlso tbl_CellStatus.Text = "Vorbereitet" Then
                    normaltable.Rows.Add(tr)
                ElseIf (rbt_Vorg.Checked = True Or rbt_Vorg_M.Checked = True) AndAlso tbl_CellStatus.Text = "Vorgeschrieben" Then
                    normaltable.Rows.Add(tr)
                End If

                i += 1
            Next
        Else
            Dim tbl_cellNothing = New TableCell()
            tbl_cellNothing.ColumnSpan = tbl_Header_row.Cells.Count
            tbl_cellNothing.Style.Add("text-align", "center")
            Dim tr = New TableRow()
            tr.Style.Add("text-align", "center")
            tbl_cellNothing.Text = Server.HtmlEncode("Keine Daten gefunden.")
            tr.Cells.Add(tbl_cellNothing)
            normaltable.Rows.Add(tr)
        End If
    End Sub
    Protected Sub pickdate1_TextChanged(sender As Object, e As EventArgs)
        valDateRange_1.Validate()
    End Sub
    Protected Sub pickdate2_TextChanged(sender As Object, e As EventArgs)
        valDateRange_2.Validate()
    End Sub

    Protected Sub valDateRange_1_ServerValidate(source As Object, args As ServerValidateEventArgs)
        Dim minDate As DateTime = DateTime.Parse("01.04.2001")
        Dim maxDate As DateTime = DateTime.Parse(DateTime.Now.ToShortDateString)
        Dim dt As DateTime
        args.IsValid = (DateTime.TryParse(args.Value, dt) AndAlso
                     dt <= maxDate AndAlso
                     dt >= minDate)
    End Sub
    Protected Sub valDateRange_2_ServerValidate(source As Object, args As ServerValidateEventArgs)
        Dim minDate As DateTime = DateTime.Parse("01." + Date.Now.Month.ToString + ".2001")
        Dim maxDate As DateTime = DateTime.Parse(DateTime.Now.ToShortDateString)
        Dim dt As DateTime
        args.IsValid = (DateTime.TryParse(args.Value, dt) AndAlso
                     dt <= maxDate AndAlso
                     dt >= minDate) And dt < Date.Now.AddDays(-1)
    End Sub

    Protected Sub txt_LKWNr_TextChanged(sender As Object, e As EventArgs)
        regexval_txt_LKW.Validate()
    End Sub

    Protected Sub txt_Absender_TextChanged(sender As Object, e As EventArgs)
        regexval_txt_Absender.Validate()
    End Sub

    Protected Sub txt_KdNrAuftrag_TextChanged(sender As Object, e As EventArgs)
        regexval_txt_KdNrAuftrag.Validate()
    End Sub

    Protected Sub txt_Empfaenger_TextChanged(sender As Object, e As EventArgs)
        regexval_txt_Empfaenger.Validate()
    End Sub

    Protected Sub txt_LKWNr_M_TextChanged(sender As Object, e As EventArgs)
        regexval_txt_LKWNr_M.Validate()
    End Sub

    Protected Sub txt_Empfaenger_M_TextChanged(sender As Object, e As EventArgs)
        regval_txt_Empfaenger_M.Validate()
    End Sub

    Protected Sub txt_Absender_M_TextChanged(sender As Object, e As EventArgs)
        regval_txt_Absender_M.Validate()
    End Sub

    Protected Sub txt_KdNrAuftrag_M_TextChanged(sender As Object, e As EventArgs)
        regval_txt_KdNrAuftrag_M.Validate()
    End Sub



End Class