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

Updatepanel wurde in den Conditional Mode gesetzt und das Design wurde auch eigentlich aktualisiert, sodass die leeren, bzw nicht gewählten Felder rot angezeigt werden?? Warum passiert das nicht?? .

Browse Source
This commit is contained in:
ja
2021-09-16 16:52:38 +02:00
parent 506ed3197e
commit 6482d90e88
2 changed files with 12 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Customers/CustomsAviso.aspx.vb
View File

@@ -60,14 +60,15 @@ Partial Class Kundenbereich_Default
'Dim tr
If rbt_Alle.Selected = True Then
If pickdate1.Text = "TT.MM.JJJJ" And pickdate2.Text = "TT.MM.JJJJ" Then
If pickdate1.Text = Nothing AndAlso pickdate2.Text = Nothing Then
MsgBox("Bitte ein Datum auswählen!", MsgBoxStyle.Information, "Information!")
pickdate1.Text = Date.ParseExact("01" + "-" + Date.Now.Month.ToString + "-" + Date.Now.Year.ToString, "dd-MM-yyyy", Nothing).ToString
pickdate2.Text = Date.ParseExact(Date.Now.Day.ToString + "-" + Date.Now.Month.ToString + "-" + Date.Now.Year.ToString, "dd-MM-yyyy", Nothing).ToString
End If
If Date.Parse(pickdate2.Text) > Date.Parse(pickdate1.Text) Then
pickdate1.BackColor = Drawing.Color.Aqua
pickdate2.BackColor = Drawing.Color.Aqua
lbl_von.BackColor = Drawing.Color.Red
lbl_bis.BackColor = Drawing.Color.Red
Else
If Date.Parse(pickdate2.Text) > Date.Parse(pickdate1.Text) Then
Try
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
@@ -75,8 +76,10 @@ Partial Class Kundenbereich_Default
MsgBox(ex.StackTrace, MsgBoxStyle.Exclamation)
End Try
End If
Return
End If
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Erf.Selected = True Then
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0},,, Absender, Empfaenger, LKWNR, KDNAFNR)