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 style="height:0.936768149882904vh"></div>
<div class="col-12" id="cont4"> <div class="col-12" id="cont4">
<div class="col-12" id="container2" style="margin-left:2px"> <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> <asp:Label ID="lbl_von" runat="server" Text="Von:"></asp:Label>
<%Dim erster = New Date(Now().Year, Now().Month, 1) %> <%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: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: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> <asp:Label ID="lbl_bis" runat="server" Text="Bis:"></asp:Label>
<%Dim jetzt = DateTime.Now.Date %> <%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: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> <asp:CustomValidator runat="server" ID="valDateRange_2" ControlToValidate="pickdate2" Display="Dynamic" OnServerValidate="valDateRange_2_ServerValidate" ErrorMessage="" SetFocusOnError="true" ValidationGroup="Datevalid"></asp:CustomValidator>
</div> </div>
<div id="Abstand"></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!") 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 End Try
dt = Nothing 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 If txt_Absender.Text IsNot "" Then
regexval_txt_Absender.Enabled = True
regexval_txt_Absender.Validate()
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
If regexval_txt_Absender.IsValid = True Then
Absender = txt_Absender.Text Absender = txt_Absender.Text
Else
Absender = String.Empty
End If
Catch ex As FormatException Catch ex As FormatException
End Try End Try
End If End If
If txt_Empfaenger.Text IsNot "" Then If txt_Empfaenger.Text IsNot "" Then
regexval_txt_Empfaenger.Enabled = True
regexval_txt_Empfaenger.Validate()
txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
If regexval_txt_Empfaenger.IsValid = True Then
Empfaenger = txt_Empfaenger.Text Empfaenger = txt_Empfaenger.Text
Else
Empfaenger = String.Empty
End If
Catch ex As FormatException Catch ex As FormatException
End Try End Try
End If End If
If txt_KdNrAuftrag.Text IsNot "" Then If txt_KdNrAuftrag.Text IsNot "" Then
regexval_txt_KdNrAuftrag.Enabled = True
regexval_txt_KdNrAuftrag.Validate()
txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
If regexval_txt_KdNrAuftrag.IsValid = True Then
KDNAFNR = txt_KdNrAuftrag.Text KDNAFNR = txt_KdNrAuftrag.Text
Else
KDNAFNR = String.Empty
End If
Catch ex As FormatException Catch ex As FormatException
End Try End Try
End If End If
If txt_LKWNr.Text IsNot "" Then If txt_LKWNr.Text IsNot "" Then
regexval_txt_LKW.Enabled = True
regexval_txt_LKW.Validate()
txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
If regexval_txt_LKW.IsValid = True Then
LKWNR = txt_LKWNr.Text LKWNR = txt_LKWNr.Text
Else
LKWNR = String.Empty
End If
Catch ex As FormatException Catch ex As FormatException
End Try End Try
End If End If
If txt_ReNr.Text IsNot "" Then If txt_ReNr.Text IsNot "" Then
regexval_txt_ReNr.Enabled = True
regexval_txt_ReNr.Validate()
txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
If regexval_txt_ReNr.IsValid = True Then
reNr = txt_ReNr.Text reNr = txt_ReNr.Text
Else
reNr = String.Empty
End If
Catch ex As FormatException Catch ex As FormatException
End Try End Try
@@ -341,6 +375,11 @@ Partial Class Customers_Invoices
MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation) MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
End Try End Try
End If End If
Else
End If
End Sub
Protected Sub txt_KundenNr_TextChanged(sender As Object, e As EventArgs)
End Sub End Sub
End Class End Class