From bcc78206b57dbed567ba8216cecbe0da21af59ea Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Tue, 30 Nov 2021 15:15:39 +0100
Subject: [PATCH] =?UTF-8?q?=C3=84nderung=20Invoices=20wird=20korrekt=20ang?=
 =?UTF-8?q?ezeigt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/CustomsAviso.aspx.vb | 2 +-
 Customers/Invoices.aspx        | 2 +-
 Customers/Invoices.aspx.vb     | 6 ++----
 3 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index d6e7532..e45f93f 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -636,7 +636,7 @@ Partial Class CustomsAviso
 
     Protected Sub btn_Auftraege_Click(ByVal sender As Object, e As EventArgs) Handles btn_Auftraege.Click
         dt = Nothing
-        MsgBox("TEst")
+        'MsgBox("TEst")
         Session.Add("mytable", Nothing)
         If Session.Item("mytable") = Nothing Then
             If txt_Absender.Text IsNot "" Then
diff --git a/Customers/Invoices.aspx b/Customers/Invoices.aspx
index 3c382ec..bab5856 100644
--- a/Customers/Invoices.aspx
+++ b/Customers/Invoices.aspx
@@ -90,7 +90,7 @@
                             <div>
                                 <div style="height:0.936768149882904vh"></div>
                                 <div class="col-12" style="margin-left:2px">
-                                    <h2><%Response.Write(Server.HtmlEncode("Invoices"))%></h2>
+                                    <h2>Invoices</h2>
                                 </div>
                                 <div style="margin-left:6px">
                                     <div class="col-12" style="text-align:end">
diff --git a/Customers/Invoices.aspx.vb b/Customers/Invoices.aspx.vb
index 116bd43..57024e8 100644
--- a/Customers/Invoices.aspx.vb
+++ b/Customers/Invoices.aspx.vb
@@ -715,7 +715,7 @@ Partial Class Customers_Default3
                     datebis = Date.Parse(Now.ToShortDateString)
                     pickdate1.Text = erster.ToUniversalTime.ToString("yyyy-MM-dd")
                     pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyyy-MM-dd")
-
+                    dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), CDate(datevon), CDate(datebis), Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR)
                 Catch ex As Exception
                     lbl_status.ForeColor = Drawing.Color.Red
                     lbl_status.Text = "Die Daten konnten nicht initialisiert werden. Bitte erneut versuchen."
@@ -724,14 +724,12 @@ Partial Class Customers_Default3
                 Try
                     datevon = Date.Parse(pickdate1.Text)
                     datebis = Date.Parse(pickdate2.Text)
+                    dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), CDate(datevon), CDate(datebis), Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR)
                 Catch
                     lbl_status.ForeColor = Drawing.Color.Red
                     lbl_status.Text = "Fehler bei der Datenvergabe."
                 End Try
             End If
-            dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), CDate(datevon), CDate(datebis), Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR)
-
-            'MsgBox("Alles hinzugefügt")
         End If
         addrows()
         Session.Item("mytable") = normaltable