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

Logik überarbeitet

Browse Source
This commit is contained in:
ja
2021-10-27 17:40:09 +02:00
parent 9185a95331
commit 8f712a5052
2 changed files with 134 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Customers/Invoices.aspx
View File

@@ -90,13 +90,18 @@
<div style="height:0.936768149882904vh"></div>
<div class="col-12" id="cont4">
<div class="col-12" id="container2" style="margin-left:2px">
<asp:Label ID="lbl_Kundennr" runat="server" Text="Kundennr"></asp:Label>
<asp:TextBox ID="txt_KundenNr" runat="server" Type="Number" CssClass="classTarget" requiered="true" AutoCompleteType="Search" OnTextChanged="txt_KundenNr_TextChanged"></asp:TextBox>
<asp:RequiredFieldValidator ID="reqfield_txt_kundenNr" runat="server" ControlToValidate="txt_KundenNr" ErrorMessage="" Display="Dynamic" SetFocusOnError="true"></asp:RequiredFieldValidator>
<asp:Label ID="lbl_von" runat="server" Text="Von:"></asp:Label>
<%Dim erster = New Date(Now().Year, Now().Month, 1) %>
<asp:TextBox ID="pickdate1" Type="Date" CssClass="classTarget" requiered="true" OnTextChanged="pickdate1_TextChanged" minDate="<%=erster %>" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ControlToValidate="pickdate1" Display="Dynamic" ID="valreq_pickdate1" runat="server" ErrorMessage=""></asp:RequiredFieldValidator>
<asp:CustomValidator runat="server" ID="valDateRange_1" ControlToValidate="pickdate1" Display="Dynamic" OnServerValidate="valDateRange_1_ServerValidate" ErrorMessage="" SetFocusOnError="true" ValidationGroup="Datevalid"></asp:CustomValidator>
<asp:Label ID="lbl_bis" runat="server" Text="Bis:"></asp:Label>
<%Dim jetzt = DateTime.Now.Date %>
<asp:TextBox ID="pickdate2" Type="Date" CssClass="classTarget" OnTextChanged="pickdate2_TextChanged" required="true" runat="server" minDate="<%=jetzt %>"></asp:TextBox>
<asp:RequiredFieldValidator ControlToValidate="pickdate2" Display="Dynamic" ID="valreq_pickdate2" runat="server" ErrorMessage=""></asp:RequiredFieldValidator>
<asp:CustomValidator runat="server" ID="valDateRange_2" ControlToValidate="pickdate2" Display="Dynamic" OnServerValidate="valDateRange_2_ServerValidate" ErrorMessage="" SetFocusOnError="true" ValidationGroup="Datevalid"></asp:CustomValidator>
</div>
<div id="Abstand"></div>

39
Customers/Invoices.aspx.vb
View File

@@ -238,42 +238,76 @@ Partial Class Customers_Invoices
MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
End Try
dt = Nothing
reqfield_txt_kundenNr.Validate()
valreq_pickdate1.Validate()
valreq_pickdate2.Validate()
If reqfield_txt_kundenNr.IsValid AndAlso valreq_pickdate1.IsValid AndAlso valreq_pickdate2.IsValid Then
If txt_Absender.Text IsNot "" Then
regexval_txt_Absender.Enabled = True
regexval_txt_Absender.Validate()
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try
If regexval_txt_Absender.IsValid = True Then
Absender = txt_Absender.Text
Else
Absender = String.Empty
End If
Catch ex As FormatException
End Try
End If
If txt_Empfaenger.Text IsNot "" Then
regexval_txt_Empfaenger.Enabled = True
regexval_txt_Empfaenger.Validate()
txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try
If regexval_txt_Empfaenger.IsValid = True Then
Empfaenger = txt_Empfaenger.Text
Else
Empfaenger = String.Empty
End If
Catch ex As FormatException
End Try
End If
If txt_KdNrAuftrag.Text IsNot "" Then
regexval_txt_KdNrAuftrag.Enabled = True
regexval_txt_KdNrAuftrag.Validate()
txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try
If regexval_txt_KdNrAuftrag.IsValid = True Then
KDNAFNR = txt_KdNrAuftrag.Text
Else
KDNAFNR = String.Empty
End If
Catch ex As FormatException
End Try
End If
If txt_LKWNr.Text IsNot "" Then
regexval_txt_LKW.Enabled = True
regexval_txt_LKW.Validate()
txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try
If regexval_txt_LKW.IsValid = True Then
LKWNR = txt_LKWNr.Text
Else
LKWNR = String.Empty
End If
Catch ex As FormatException
End Try
End If
If txt_ReNr.Text IsNot "" Then
regexval_txt_ReNr.Enabled = True
regexval_txt_ReNr.Validate()
txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try
If regexval_txt_ReNr.IsValid = True Then
reNr = txt_ReNr.Text
Else
reNr = String.Empty
End If
Catch ex As FormatException
End Try
@@ -341,6 +375,11 @@ Partial Class Customers_Invoices
MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
End Try
End If
Else
End If
End Sub
Protected Sub txt_KundenNr_TextChanged(sender As Object, e As EventArgs)
End Sub
End Class