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

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