From 26b089b633027cd7c71d5bf98edc317c94d99eda Mon Sep 17 00:00:00 2001 From: ja Date: Fri, 26 Nov 2021 11:07:45 +0100 Subject: [PATCH] =?UTF-8?q?=C3=84nderungen=20CustomsAvisio.aspx=20funktion?= =?UTF-8?q?iert=20wieder.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/CustomsAviso.aspx.vb | 3 +- Customers/Invoices.aspx | 4 +- Customers/Invoices.aspx.vb | 694 +++++++++--------- .../CodeAnalysisLog.xml | 243 +----- 4 files changed, 372 insertions(+), 572 deletions(-) diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index 966ecb9..0800b94 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/Customers/CustomsAviso.aspx.vb @@ -636,8 +636,9 @@ Partial Class CustomsAviso dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR) End If End If - addrows() + addrows() + Session.Item("mytable") = normaltable End Sub Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs) diff --git a/Customers/Invoices.aspx b/Customers/Invoices.aspx index c50e0f9..e814418 100644 --- a/Customers/Invoices.aspx +++ b/Customers/Invoices.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Invoices.aspx.vb" Inherits="Customers_Default3" %> +<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" CodeFile="Invoices.aspx.vb" Inherits="Customers_Default3" %> @@ -221,7 +221,7 @@
- +
diff --git a/Customers/Invoices.aspx.vb b/Customers/Invoices.aspx.vb index fe364f7..aa13e8b 100644 --- a/Customers/Invoices.aspx.vb +++ b/Customers/Invoices.aspx.vb @@ -20,7 +20,7 @@ Partial Class Customers_Default3 Dim reNr As String = "-1" Dim provider As CultureInfo = CultureInfo.InvariantCulture - Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load + Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) VERAG_VARIABLES.initerrorcount() If Not Me.Page.User.Identity.IsAuthenticated Then @@ -37,7 +37,7 @@ Partial Class Customers_Default3 'Script für Schließen wirklich verlassen Meldung auf der Masterseite für diese Seite zu registrieren und nicht ueberall Dim csm1 As ClientScriptManager = Page.ClientScript Dim cstype As Type = Page.GetType - + Dim erster As Date If Not csm1.IsStartupScriptRegistered(cstype, "Startup") Then Dim string1 As String = "