From f442d666c67413b66504b1df58a32e078ffb64ff Mon Sep 17 00:00:00 2001 From: ja Date: Wed, 10 Nov 2021 10:02:50 +0100 Subject: [PATCH] AutoComplete verworfen --- Customers/Invoices.aspx | 294 ++++--------------------------------- Customers/Invoices.aspx.vb | 32 ++-- WebService.asmx | 10 ++ 3 files changed, 52 insertions(+), 284 deletions(-) diff --git a/Customers/Invoices.aspx b/Customers/Invoices.aspx index b5a6e56..091cc93 100644 --- a/Customers/Invoices.aspx +++ b/Customers/Invoices.aspx @@ -28,10 +28,10 @@ - - + + @@ -51,23 +51,23 @@

Here you'll find all Information about your Invoices.

<%Try - VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW - 'Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(799124) - Dim VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL - ' MsgBox(VERAGSQL.GetADMINConnectionString()) - 'Response.Write(AD.Ordnungsbegriff) - Dim STANDORT = "SUB" - If (Request.QueryString.Count > 0) AndAlso (Request.QueryString("STANDORT") IsNot Nothing) Then - Try - STANDORT = (Request.QueryString("STANDORT")) - Catch ex As Exception - STANDORT = "SUB" - End Try - End If - If True Then - Dim AVISO_dt As System.Data.DataTable = VERAG_PROG_ALLGEMEIN.cAviso.getAVISO_List(STANDORT) - If AVISO_dt IsNot Nothing Then - If True Then 'AVISO.Status <> 1 And AVISO.Status <> 2 Then 'SENDUNGSTABELLE'%> + VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW + 'Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(799124) + Dim VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL + ' MsgBox(VERAGSQL.GetADMINConnectionString()) + 'Response.Write(AD.Ordnungsbegriff) + Dim STANDORT = "SUB" + If (Request.QueryString.Count > 0) AndAlso (Request.QueryString("STANDORT") IsNot Nothing) Then + Try + STANDORT = (Request.QueryString("STANDORT")) + Catch ex As Exception + STANDORT = "SUB" + End Try + End If + If True Then + Dim AVISO_dt As System.Data.DataTable = VERAG_PROG_ALLGEMEIN.cAviso.getAVISO_List(STANDORT) + If AVISO_dt IsNot Nothing Then + If True Then 'AVISO.Status <> 1 And AVISO.Status <> 2 Then 'SENDUNGSTABELLE'%>
@@ -208,258 +208,14 @@ <% End If - End If - End If - Catch ex As Exception - Response.Write(ex.Message & ex.StackTrace) - End Try %> + End If + End If + Catch ex As Exception + Response.Write(ex.Message & ex.StackTrace) + End Try %>
- - - +
diff --git a/Customers/Invoices.aspx.vb b/Customers/Invoices.aspx.vb index a6d3753..b123844 100644 --- a/Customers/Invoices.aspx.vb +++ b/Customers/Invoices.aspx.vb @@ -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" diff --git a/WebService.asmx b/WebService.asmx index 5b49085..668ff97 100644 --- a/WebService.asmx +++ b/WebService.asmx @@ -1 +1,11 @@ <%@ WebService Language="VB" CodeBehind="~/App_Code/WebService.vb" Class="WebService" %> +Imports System.Web +Imports System.Web.Services +Imports System.Web.Services.Protocols +Imports System.Data.SqlClient + + +Public Class WebService + Inherits System.Web.Services.WebService + +End Class