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

Tabelle bleibt nach Reset im bestehenden Viewstate

Browse Source
This commit is contained in:
ja
2021-09-22 09:59:46 +02:00
parent 0cc7b8864f
commit ff088ba692
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Customers/CustomsAviso.aspx.vb
View File

@@ -19,10 +19,12 @@ Partial Class Kundenbereich_Default
tbl_Header_row.TableSection = TableRowSection.TableHeader tbl_Header_row.TableSection = TableRowSection.TableHeader
' MsgBox(datebis) ' MsgBox(datebis)
If (Page.IsPostBack And normaltable.EnableViewState = False) Then If (Page.IsPostBack And normaltable.EnableViewState = False) Then
normaltable.EnableViewState = True
datevon = Date.Parse(pickdate1.Text) datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text) datebis = Date.Parse(pickdate2.Text)
normaltable.EnableViewState = True
Else Else
normaltable.EnableViewState = True
Dim erster = New Date(Now().Year, Now().Month, 1) Dim erster = New Date(Now().Year, Now().Month, 1)
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
@@ -32,7 +34,6 @@ Partial Class Kundenbereich_Default
pickdate2.Text = 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
rbt_Alle.Selected = True rbt_Alle.Selected = True
rbt_Alle_M.Selected = True rbt_Alle_M.Selected = True
normaltable.EnableViewState = True
End If End If
End Sub End Sub
@@ -154,6 +155,7 @@ Partial Class Kundenbereich_Default
'MsgBox(Session.Item("test").ToString) 'MsgBox(Session.Item("test").ToString)
'MsgBox(Session.Item("CustomerID").ToString) 'MsgBox(Session.Item("CustomerID").ToString)
'MsgBox(Session.Item("PW").ToString) 'MsgBox(Session.Item("PW").ToString)
Kdnrtext = Session.Item("CustomerID").ToString Kdnrtext = Session.Item("CustomerID").ToString
dt = Nothing dt = Nothing
@@ -370,8 +372,9 @@ Partial Class Kundenbereich_Default
txt_KdNrAuftrag.Text = "" txt_KdNrAuftrag.Text = ""
txt_LKWNr.Text = "" txt_LKWNr.Text = ""
pickdate1.Text = Now.ToString("dd.MM.yyyy")
Dim erster = New Date(Now().Year, Now().Month, 1) 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 pickdate2.Text = Date.Parse(erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
datevon = Nothing datevon = Nothing
datebis = Nothing datebis = Nothing