Änderungen zum komplett dynamischen Erstellen der tabelle
This commit is contained in:
ja
@@ -42,9 +42,8 @@ Partial Class CustomsAviso
|
||||
tbl_Header_row.TableSection = TableRowSection.TableHeader
|
||||
' MsgBox(datebis)
|
||||
|
||||
If (Page.IsPostBack And normaltable.EnableViewState = False) Then
|
||||
If (Page.IsPostBack) Then
|
||||
Page.MaintainScrollPositionOnPostBack = True
|
||||
normaltable.EnableViewState = True
|
||||
|
||||
If rbt_Alle.Checked = True Then
|
||||
lbl_von.Visible = True
|
||||
@@ -209,10 +208,15 @@ Partial Class CustomsAviso
|
||||
datevon = Nothing
|
||||
datebis = Nothing
|
||||
End If
|
||||
|
||||
If Not IsNothing(Session.Item("mytable")) Then
|
||||
addrows()
|
||||
End If
|
||||
Else
|
||||
Page.MaintainScrollPositionOnPostBack = False
|
||||
rbt_Alle.Checked = True
|
||||
normaltable.EnableViewState = True
|
||||
|
||||
lbl_von.Visible = True
|
||||
lbl_bis.Visible = True
|
||||
valDateRange_1.Enabled = True
|
||||
@@ -272,6 +276,7 @@ Partial Class CustomsAviso
|
||||
Else
|
||||
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)
|
||||
@@ -384,254 +389,328 @@ Partial Class CustomsAviso
|
||||
Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
|
||||
dt = Nothing
|
||||
|
||||
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
|
||||
Absender = txt_Absender.Text
|
||||
Catch ex As FormatException
|
||||
MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
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
|
||||
Absender = txt_Absender.Text
|
||||
Catch ex As FormatException
|
||||
MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
LKWNR = txt_LKWNr_M.Text
|
||||
Catch ex As FormatException
|
||||
MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
regexval_txt_Absender.ForeColor = Drawing.Color.Red
|
||||
regexval_txt_Absender.ErrorMessage = "Der Absender ist nicht richtig formatiert."
|
||||
regexval_txt_LKWNr_M.ForeColor = Drawing.Color.Red
|
||||
regexval_txt_LKWNr_M.ErrorMessage = "Das LKW Kennzeichen 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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
LKWNR = txt_LKWNr_M.Text
|
||||
Catch ex As FormatException
|
||||
MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
regexval_txt_LKWNr_M.ForeColor = Drawing.Color.Red
|
||||
regexval_txt_LKWNr_M.ErrorMessage = "Das LKW Kennzeichen ist nicht richtig formatiert!"
|
||||
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
|
||||
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)
|
||||
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
' MsgBox(ersterdat)
|
||||
datevon = ersterdat
|
||||
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
|
||||
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), {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)
|
||||
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
' MsgBox(ersterdat)
|
||||
datevon = ersterdat
|
||||
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
|
||||
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), {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)
|
||||
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
'MsgBox(ersterdat)
|
||||
datevon = ersterdat
|
||||
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
|
||||
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)
|
||||
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
'MsgBox(ersterdat)
|
||||
datevon = ersterdat
|
||||
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
|
||||
pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
|
||||
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)
|
||||
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
'MsgBox(ersterdat)
|
||||
datevon = ersterdat
|
||||
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
|
||||
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("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
|
||||
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)
|
||||
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
'MsgBox(ersterdat)
|
||||
datevon = ersterdat
|
||||
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
|
||||
pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
|
||||
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)
|
||||
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
|
||||
'MsgBox(ersterdat)
|
||||
datevon = ersterdat
|
||||
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
|
||||
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("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)
|
||||
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 = ""
|
||||
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
|
||||
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
|
||||
txt_Absender.Text = ""
|
||||
txt_Empfaenger.Text = ""
|
||||
txt_KdNrAuftrag.Text = ""
|
||||
txt_LKWNr.Text = ""
|
||||
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
|
||||
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
|
||||
@@ -731,61 +810,6 @@ Partial Class CustomsAviso
|
||||
normaltable.Rows.Add(tr)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)
|
||||
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 = ""
|
||||
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
|
||||
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
|
||||
txt_Absender.Text = ""
|
||||
txt_Empfaenger.Text = ""
|
||||
txt_KdNrAuftrag.Text = ""
|
||||
txt_LKWNr.Text = ""
|
||||
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
|
||||
Return
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub pickdate1_TextChanged(sender As Object, e As EventArgs)
|
||||
valDateRange_1.Validate()
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user