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

Erweiterung Reset Button um angeglichen zur Arbeitsweise der Seite CustomsAviso.aspx und vollständigem Reset aller Validatoren und Seite

Browse Source
This commit is contained in:
ja
2021-11-26 16:50:46 +01:00
parent 475bf9365c
commit 2b7d15a81c
2 changed files with 58 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Customers/CustomsAviso.aspx.vb
View File

@@ -647,6 +647,13 @@ Partial Class CustomsAviso
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
@@ -678,13 +685,6 @@ Partial Class CustomsAviso
rbt_Vorg.Disabled = False
rbt_Vorb.Checked = False
rbt_Vorb.Disabled = False
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()
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
@@ -723,13 +723,6 @@ Partial Class CustomsAviso
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
normaltable.Rows.Clear()
Response.Redirect(Request.RawUrl)
Return
End If