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