diff --git a/Customers/CustomsAviso.aspx b/Customers/CustomsAviso.aspx index 82ab7a6..c3087e7 100644 --- a/Customers/CustomsAviso.aspx +++ b/Customers/CustomsAviso.aspx @@ -111,7 +111,7 @@ <%Dim jetzt = DateTime.Now.Date %> - +
@@ -129,7 +129,8 @@
-
+
+
@@ -146,13 +147,14 @@
- + - +
+
@@ -161,7 +163,6 @@
- @@ -184,20 +185,19 @@
-
- +
- Index-Nr - LKW-Nr - Status - Auftragsdatum - Absender - Empfänger - Auftrags-Nr - Info + Index-Nr + LKW-Nr + Status + Auftragsdatum + Absender + Empfänger + Auftrags-Nr + Info
diff --git a/Customers/Invoices.aspx b/Customers/Invoices.aspx index 5a920a5..2d23a36 100644 --- a/Customers/Invoices.aspx +++ b/Customers/Invoices.aspx @@ -1,140 +1,212 @@ -<%@ Page Title="Rechnungen VERAG" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Invoices.aspx.vb" Inherits="Kundenbereich_Default" %> +<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Invoices.aspx.vb" Inherits="Customers_Invoices" %> - - + + + + - - + - - - - - - - + - - - + + - - - - - - + + + + + + + + +
+
+
+

Rechnungen

+
+
+

Hier finden Sie Informationen zu Ihren aktuellen Rechnungen

+
+ <%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 - - - -
- -
-
-

Rechnungen

+ If True Then 'AVISO.Status <> 1 And AVISO.Status <> 2 Then 'SENDUNGSTABELLE'%> +
+
+
+
+

<%=Server.HtmlEncode("Rechnungen:") %>

+
+
+
+ <%=Server.HtmlEncode("Reset Form") %> +
+
+
+ +
+
+
+ + +
+
+
+
+ + +
+
+
+
+
+
+
+ + <%Dim erster = New Date(Now().Year, Now().Month, 1) %> + + + + <%Dim jetzt = DateTime.Now.Date %> + + +
+
+
+
+
+
+

+ +

+
+ +
+
+
+
+
+ +
+ +
+
+
+ + + + + + +
+
+
+ + + + + + +
+
+ + + +
+
+
+ +
+
+
+
+ + + + + + +
+
+
+ + + + + + +
+
+ + + +
+
+
+
+
+
+
+
+
+ +
+
+
+ + + Index-Nr + Rechnungs-Nr + LKW-Nr + Auftragsdatum + Auftrags-Nr + Absender + Empfänger + Info + + +
+
+
+
+
+ <% End If + End If + End If + Catch ex As Exception + Response.Write(ex.Message & ex.StackTrace) + End Try %> +
-
-
-
- -
- - -
-
-
-
- - -
-
-
- -
- -
- - - - - - - - - -
RechnungsnrRechnungsdatumLKWGrenzsztelleRechnungsbetragAbfertigungsdatumFilialeAbfertigungsnr.
04510011018.08.202114334234SUBEN509,21€18.08.2021SUBEN512
048711017.05.202114334234NEUHAUS A INN509,21€17.05.2021NICKELSDORF512
8880011019.10.201714334234SUBEN509,21€19.10.2017WAIDHAUS512
2510011029.02.202114334234SUBEN509,21€18.08.2021SUBEN512
54211029.02.202114334234SUBEN509,21€18.08.2021SUBEN512
-
- - - - - - - - - - +
+ diff --git a/Customers/Invoices.aspx.vb b/Customers/Invoices.aspx.vb index 55ce019..c3139ba 100644 --- a/Customers/Invoices.aspx.vb +++ b/Customers/Invoices.aspx.vb @@ -1,5 +1,61 @@  -Partial Class Kundenbereich_Default +Partial Class Customers_Invoices Inherits System.Web.UI.Page + + Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs) + + End Sub + + Protected Sub pickdate1_TextChanged(sender As Object, e As EventArgs) + + End Sub + + Protected Sub valDateRange_1_ServerValidate(source As Object, args As ServerValidateEventArgs) + + End Sub + + Protected Sub pickdate2_TextChanged(sender As Object, e As EventArgs) + + End Sub + + Protected Sub valDateRange_2_ServerValidate(source As Object, args As ServerValidateEventArgs) + + End Sub + + Protected Sub txt_LKWNr_TextChanged(sender As Object, e As EventArgs) + + End Sub + + Protected Sub txt_Empfaenger_TextChanged(sender As Object, e As EventArgs) + + End Sub + + Protected Sub txt_Absender_TextChanged(sender As Object, e As EventArgs) + + End Sub + + Protected Sub txt_ReNr_TextChanged(sender As Object, e As EventArgs) + + End Sub + + Protected Sub txt_KdNrAuftrag_TextChanged(sender As Object, e As EventArgs) + + End Sub + + Protected Sub txt_LKWNr_M_TextChanged(sender As Object, e As EventArgs) + + End Sub + + Protected Sub TextBox2_TextChanged(sender As Object, e As EventArgs) + + End Sub + + Protected Sub txt_KdNrAuftrag_M_TextChanged(sender As Object, e As EventArgs) + + End Sub + + Protected Sub btn_Rechnungen_Click(sender As Object, e As EventArgs) + + End Sub End Class