Listenstyle der Buttons im Mobilmodus

This commit is contained in:
ja
2021-10-05 09:30:58 +02:00
parent 4beb82c135
commit bb899fe2fc
3 changed files with 6 additions and 11 deletions

View File

@@ -20,7 +20,6 @@ Partial Class Kundenbereich_Default
' MsgBox(datebis)
If (Page.IsPostBack And normaltable.EnableViewState = False) Then
normaltable.EnableViewState = True
If rbt_Alle.Checked = True Then
lbl_von.Visible = True
lbl_bis.Visible = True
@@ -50,7 +49,6 @@ Partial Class Kundenbereich_Default
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
Else
normaltable.EnableViewState = True
Dim erster = New Date(Now().Year, Now().Month, 1)
@@ -442,13 +440,11 @@ Partial Class Kundenbereich_Default
pickdate2.Text = Date.Parse(erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
datevon = Nothing
datebis = Nothing
dt = Nothing
'txt_KdNr.Focus()
End Sub
Protected Sub pickdate1_TextChanged(sender As Object, e As EventArgs)
If pickdate1.Text = "" Then
pickdate1.BorderColor = Drawing.Color.Red
Else
@@ -457,7 +453,6 @@ Partial Class Kundenbereich_Default
End Sub
Protected Sub pickdate2_TextChanged(sender As Object, e As EventArgs)
If pickdate2.Text = "" Then
pickdate2.Attributes.Add("Border", "2px solid red")
Else