From 2c32a357150579e9b245a8e2f08ff031ca4f9a09 Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Fri, 24 Sep 2021 16:58:07 +0200
Subject: [PATCH] =?UTF-8?q?Fehlerpr=C3=BCfung=20Datumsbox?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/CustomsAviso.aspx    |  4 ++--
 Customers/CustomsAviso.aspx.vb | 13 +++++++++++++
 2 files changed, 15 insertions(+), 2 deletions(-)

diff --git a/Customers/CustomsAviso.aspx b/Customers/CustomsAviso.aspx
index 755b60b..9e53dc3 100644
--- a/Customers/CustomsAviso.aspx
+++ b/Customers/CustomsAviso.aspx
@@ -108,10 +108,10 @@
                             <div class="col-12" id="cont4">
                             <div class="col-12" id="container2" style="margin-left:2px">                                                                     
                                             <asp:Label ID="lbl_von" runat="server" Text="Von:"></asp:Label>                                             
-                                            <asp:TextBox id="pickdate1" Type="Date" CssClass="classTarget" runat="server"></asp:TextBox>  
+                                            <asp:TextBox id="pickdate1" Type="Date" CssClass="classTarget" OnTextChanged="pickdate1_TextChanged" runat="server"></asp:TextBox>  
                                    
                                             <asp:Label ID="lbl_bis" runat="server" Text="Bis:"></asp:Label> 
-                                            <asp:TextBox id="pickdate2" Type="Date" CssClass="classTarget" runat="server"></asp:TextBox>
+                                            <asp:TextBox id="pickdate2" Type="Date" CssClass="classTarget" OnTextChanged="pickdate2_TextChanged" runat="server"></asp:TextBox>
                                          </div>                                    
                              <div id="Abstand"></div>  
                               <hr>
diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index 6215f87..c810cf2 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -426,4 +426,17 @@ Partial Class Kundenbereich_Default
     Protected Sub Dropdownlst_Selection_Change(sender As Object, e As EventArgs)
 
     End Sub
+
+    Protected Sub pickdate1_TextChanged(sender As Object, e As EventArgs)
+        Dim TB As TextBox = sender
+        If TB.Text = "" Then
+            TB.Attributes.Add("Border", "2px solid red")
+        Else
+            TB.Attributes.Add("Border", "None")
+        End If
+    End Sub
+
+    Protected Sub pickdate2_TextChanged(sender As Object, e As EventArgs)
+
+    End Sub
 End Class
\ No newline at end of file