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

Erneute überprüfung auf geänderte Felder bei pagelaod Event

Browse Source
This commit is contained in:
ja
2021-10-25 16:11:19 +02:00
parent 627228c1bc
commit e87b1b6a4a
1 changed files with 44 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
Customers/CustomsAviso.aspx.vb
View File

@@ -71,19 +71,61 @@ Partial Class CustomsAviso
Else
rbt_Alle.Checked = True
normaltable.EnableViewState = True
lbl_von.Visible = True
lbl_bis.Visible = True
valDateRange_1.Enabled = True
valDateRange_2.Enabled = True
pickdate1.Visible = True
pickdate2.Visible = 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
' 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
pickdate2.Text = Now().ToShortDateString()
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
If txt_LKWNr.Text = "" Then
If String.IsNullOrEmpty(txt_LKWNr.Text) Then
regexval_txt_LKW.Enabled = False
Else
regexval_txt_LKW.Enabled = True
End If
If String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = True Then
regexval_txt_KdNrAuftrag.Enabled = False
Else
regexval_txt_KdNrAuftrag.Enabled = True
End If
If String.IsNullOrEmpty(txt_Empfaenger.Text) = True Then
regexval_txt_Empfaenger.Enabled = False
Else
regexval_txt_Empfaenger.Enabled = True
End If
If String.IsNullOrEmpty(txt_Absender.Text) = True Then
regexval_txt_Absender.Enabled = False
Else
regexval_txt_Absender.Enabled = True
End If
If String.IsNullOrEmpty(txt_LKWNr_M.Text) Then
regexval_txt_LKWNr_M.Enabled = False
Else
regexval_txt_LKWNr_M.Enabled = True
End If
If String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = True Then
regval_txt_KdNrAuftrag_M.Enabled = False
Else
regval_txt_KdNrAuftrag_M.Enabled = True
End If
If String.IsNullOrEmpty(txt_Empfaenger_M.Text) = True Then
regval_txt_Empfaenger_M.Enabled = False
Else
regval_txt_Empfaenger_M.Enabled = True
End If
If String.IsNullOrEmpty(txt_Absender_M.Text) = True Then
regval_txt_Absender_M.Enabled = False
Else
regval_txt_Absender_Meset.Enabled = True
End If
End If
End Sub