edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fehlerprüfung Datumsbox

Browse Source
This commit is contained in:
ja
2021-09-24 16:58:07 +02:00
parent ca2d8dfc24
commit 2c32a35715
2 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Customers/CustomsAviso.aspx
View File

@@ -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>

13
Customers/CustomsAviso.aspx.vb
View File

@@ -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