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

66
Customers/Invoices.aspx.vb
View File

@@ -541,27 +541,63 @@ Partial Class Customers_Default3
Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)
dt = Nothing
txt_Absender.Text = String.Empty
txt_Absender_M.Text = String.Empty
txt_Empfaenger.Text = String.Empty
txt_Empfaenger_M.Text = String.Empty
txt_KdNrAuftrag.Text = String.Empty
txt_KdNrAuftrag_M.Text = String.Empty
txt_LKW.Text = String.Empty
txt_LKW_M.Text = String.Empty
txt_ReNr.Text = String.Empty
txt_ReNr_M.Text = String.Empty
datevon = Date.ParseExact("01." + Date.Now.Month.ToString + "." + Date.Now.Year.ToString, "dd.MM.yyyy", Nothing)
datebis = Date.Now
pickdate1.Text = datevon.ToString
pickdate2.Text = datebis.ToString
Session.Remove("mytable")
Kdnrtext = ""
Absender = ""
Empfaenger = ""
LKWNR = ""
KDNAFNR = ""
reNr = ""
Session.Remove("mytable")
datevon = Date.ParseExact("01." + Date.Now.Month.ToString + "." + Date.Now.Year.ToString, "dd.MM.yyyy", Nothing)
datebis = Date.Now
pickdate1.Text = datevon.ToString
pickdate2.Text = datebis.ToString
If String.IsNullOrEmpty(txt_Absender.Text) = False Or String.IsNullOrEmpty(txt_Empfaenger.Text) = False Or String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = False Or String.IsNullOrEmpty(txt_LKW.Text) = False Or String.IsNullOrEmpty(txt_ReNr.Text) = False Then
txt_Absender.Text = String.Empty
txt_Empfaenger.Text = String.Empty
txt_KdNrAuftrag.Text = String.Empty
txt_LKW.Text = String.Empty
txt_ReNr.Text = String.Empty
valdaterage_1.Enabled = True
valdaterange_2.Enabled = True
valreq_pickdate1.Enabled = True
valreq_pickdate2.Enabled = True
regex_txt_Absender_M.Enabled = True
regex_txt_Empaenger_M.Enabled = True
regex_txt_KdNrAuftrag_M.Enabled = True
regex_txt_LKW_M.Enabled = True
regex_txt_ReNr_M.Enabled = True
'Mobil
regex_txt_Absender.Enabled = False
regex_txt_Empfaenger.Enabled = False
regex_txt_KdNrAuftrag.Enabled = False
regex_txt_LKW.Enabled = False
regex_txt_ReNr.Enabled = False
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_LKW.Text) = False Or String.IsNullOrEmpty(txt_ReNr.Text) = False Then
txt_Absender_M.Text = String.Empty
txt_Empfaenger_M.Text = String.Empty
txt_KdNrAuftrag_M.Text = String.Empty
txt_LKW_M.Text = String.Empty
txt_ReNr_M.Text = String.Empty
regex_txt_Absender.Enabled = True
regex_txt_Empfaenger.Enabled = True
regex_txt_KdNrAuftrag.Enabled = True
regex_txt_LKW.Enabled = True
regex_txt_ReNr.Enabled = True
'Desktop
regex_txt_Absender.Enabled = True
regex_txt_Empfaenger.Enabled = True
regex_txt_KdNrAuftrag.Enabled = True
regex_txt_LKW.Enabled = True
regex_txt_ReNr.Enabled = True
Response.Redirect(Request.RawUrl)
Return
End If
'MsgBox("Reset")
End Sub