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

AutoComplete verworfen

Browse Source
This commit is contained in:
ja
2021-11-10 10:02:50 +01:00
parent fd32664516
commit f442d666c6
3 changed files with 52 additions and 284 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Customers/Invoices.aspx.vb
View File

@@ -1,5 +1,7 @@
Imports System.Data
Imports System.Data.SqlClient
Imports System.Globalization
Imports System.Web.Services
Partial Class Customers_Default3
Inherits System.Web.UI.Page
@@ -41,23 +43,23 @@ Partial Class Customers_Default3
End If
DataBind()
tbl_Header_row.TableSection = TableRowSection.TableHeader
tbl_Header_row.TableSection = TableRowSection.TableHeader
If (Page.IsPostBack And normaltable.EnableViewState = False) Then
Page.MaintainScrollPositionOnPostBack = True
normaltable.EnableViewState = True
If valreq_pickdate1.IsValid And valreq_pickdate2.IsValid Then
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
Else
Dim erster = New Date(Now().Year, Now().Month, 1)
datevon = erster
datebis = Date.Parse(Now.ToShortDateString)
pickdate1.Text = erster.ToShortDateString()
pickdate2.Text = Date.Now.ToShortDateString()
End If
If (Page.IsPostBack And normaltable.EnableViewState = False) Then
Page.MaintainScrollPositionOnPostBack = True
normaltable.EnableViewState = True
If valreq_pickdate1.IsValid And valreq_pickdate2.IsValid Then
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
Else
Dim erster = New Date(Now().Year, Now().Month, 1)
datevon = erster
datebis = Date.Parse(Now.ToShortDateString)
pickdate1.Text = erster.ToShortDateString()
pickdate2.Text = Date.Now.ToShortDateString()
End If
End If
End If
End Sub
Protected Sub initcells(tr As TableRow, t1 As TableCell, t2 As TableCell, t3 As TableCell, t4 As TableCell, t5 As TableCell, t6 As TableCell, t7 As TableCell, t8 As TableCell, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, th6 As TableHeaderCell, th7 As TableHeaderCell, th8 As TableHeaderCell)
@@ -480,7 +482,7 @@ Partial Class Customers_Default3
lbl_status.ForeColor = Drawing.Color.Red
lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error in getting Customer-ID from login"
End If
Else
Else
VERAG_VARIABLES.seterrorcount(8)
lbl_status.ForeColor = Drawing.Color.Red
lbl_status.Text = VERAG_VARIABLES.geterrornumb + "The time chosen is newer then today or older than april 2001. Please correct"