From 6035f73a0a37b4a74c5a9b96bceb83ccfae7c62a Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Tue, 21 Sep 2021 15:55:50 +0200
Subject: [PATCH] Zentrierte Fehlermeldung in Tablerow

---
 Customers/CustomsAviso.aspx    | 1 +
 Customers/CustomsAviso.aspx.vb | 9 ++++++---
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/Customers/CustomsAviso.aspx b/Customers/CustomsAviso.aspx
index beefc84..e7c0835 100644
--- a/Customers/CustomsAviso.aspx
+++ b/Customers/CustomsAviso.aspx
@@ -14,6 +14,7 @@
     visibility: hidden;
     color: #043381;
     } 
+
     </style>    
      <!-- Bootstrap CSS -->
     <link href="https://cdn.jsdelivr.net/npm/bootstrap@5.0.2/dist/css/bootstrap.min.css" rel="stylesheet" integrity="sha384-EVSTQN3/azprG1Anm3QDgpJLIm9Nao0Yz1ztcQTwFspd3yD65VohhpuuCOmLASjC" crossorigin="anonymous"/>
diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index 913485c..53bd1df 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -18,11 +18,10 @@ Partial Class Kundenbereich_Default
         DataBind()
         tbl_Header_row.TableSection = TableRowSection.TableHeader
         ' MsgBox(datebis)
-
         If (Page.IsPostBack And normaltable.EnableViewState = False) Then
-
             datevon = Date.Parse(pickdate1.Text)
             datebis = Date.Parse(pickdate2.Text)
+            normaltable.EnableViewState = True
         Else
             Dim erster = New Date(Now().Year, Now().Month, 1)
             Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
@@ -236,7 +235,7 @@ Partial Class Kundenbereich_Default
             dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
         End If
 
-        If dt IsNot Nothing Then
+        If dt IsNot Nothing AndAlso dt.Rows.Count = 0 Then
             Dim i As Integer = 0
             For Each d In dt.Rows
                 Dim tr = New TableRow
@@ -325,9 +324,13 @@ Partial Class Kundenbereich_Default
             Next
         Else
             Dim tbl_cellNothing = New TableCell()
+            tbl_cellNothing.ColumnSpan = tbl_Header_row.Cells.Count
+            tbl_cellNothing.Style.Add("text-align", "center")
             Dim tr = New TableRow()
+            tr.Style.Add("text-align", "center")
             tbl_cellNothing.Text = "Keine Daten gefunden."
             tr.Cells.Add(tbl_cellNothing)
+            normaltable.Rows.Add(tr)
         End If
     End Sub