edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Custom-Validator eingefügt.

Browse Source
This commit is contained in:
ja
2021-10-05 10:24:45 +02:00
parent bb899fe2fc
commit cba9733190
3 changed files with 61 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
Customers/CustomsAviso.aspx.vb
View File

@@ -16,41 +16,60 @@ Partial Class Kundenbereich_Default
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms
DataBind()
tbl_Header_row.TableSection = TableRowSection.TableHeader
tbl_Header_row.TableSection = TableRowSection.TableHeader
' MsgBox(datebis)
If (Page.IsPostBack And normaltable.EnableViewState = False) Then
normaltable.EnableViewState = True
If rbt_Alle.Checked = True Then
lbl_von.Visible = True
lbl_bis.Visible = True
pickdate1.Visible = True
pickdate2.Visible = True
ElseIf rbt_Alle_M.Checked = True Then
lbl_von.Visible = True
lbl_bis.Visible = True
valDateRange_1.Enabled = True
valDateRange_2.Enabled = True
pickdate1.Visible = True
pickdate2.Visible = True
ElseIf rbt_Freig.Checked = True Then
lbl_von.Visible = True
lbl_bis.Visible = True
pickdate1.Visible = True
pickdate2.Visible = True
ElseIf rbt_Freig_M.Checked = True Then
lbl_von.Visible = True
lbl_bis.Visible = True
valDateRange_1.Enabled = True
valDateRange_2.Enabled = True
pickdate1.Visible = True
pickdate2.Visible = True
Else
lbl_von.Visible = False
lbl_bis.Visible = False
valDateRange_1.Enabled = False
valDateRange_2.Enabled = False
pickdate1.Visible = False
pickdate2.Visible = False
End If
If rbt_Alle_M.Checked = True Then
lbl_von.Visible = True
lbl_bis.Visible = True
valDateRange_1.Enabled = True
valDateRange_2.Enabled = True
pickdate1.Visible = True
pickdate2.Visible = True
ElseIf rbt_Freig_M.Checked = True Then
lbl_von.Visible = True
lbl_bis.Visible = True
valDateRange_1.Enabled = True
valDateRange_2.Enabled = True
pickdate1.Visible = True
pickdate2.Visible = True
Else
lbl_von.Visible = False
lbl_bis.Visible = False
valDateRange_1.Enabled = False
valDateRange_2.Enabled = False
pickdate1.Visible = False
pickdate2.Visible = False
End If
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
Else
normaltable.EnableViewState = True
Else
normaltable.EnableViewState = True
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
@@ -459,5 +478,22 @@ Partial Class Kundenbereich_Default
pickdate2.BorderStyle = BorderStyle.None
End If
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
End Class