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>

219
Customers/Invoices.aspx.vb
View File

@@ -238,109 +238,148 @@ 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
If txt_Absender.Text IsNot "" Then reqfield_txt_kundenNr.Validate()
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled valreq_pickdate1.Validate()
Try valreq_pickdate2.Validate()
Absender = txt_Absender.Text If reqfield_txt_kundenNr.IsValid AndAlso valreq_pickdate1.IsValid AndAlso valreq_pickdate2.IsValid Then
Catch ex As FormatException 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 Try
End If End If
If txt_Empfaenger.Text IsNot "" Then If txt_Empfaenger.Text IsNot "" Then
txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled regexval_txt_Empfaenger.Enabled = True
Try regexval_txt_Empfaenger.Validate()
Empfaenger = txt_Empfaenger.Text txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Catch ex As FormatException 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 Try
End If End If
If txt_KdNrAuftrag.Text IsNot "" Then If txt_KdNrAuftrag.Text IsNot "" Then
txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled regexval_txt_KdNrAuftrag.Enabled = True
Try regexval_txt_KdNrAuftrag.Validate()
KDNAFNR = txt_KdNrAuftrag.Text txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Catch ex As FormatException 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 Try
End If End If
If txt_LKWNr.Text IsNot "" Then If txt_LKWNr.Text IsNot "" Then
txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled regexval_txt_LKW.Enabled = True
Try regexval_txt_LKW.Validate()
LKWNR = txt_LKWNr.Text txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Catch ex As FormatException 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 Try
End If End If
If txt_ReNr.Text IsNot "" Then If txt_ReNr.Text IsNot "" Then
txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled regexval_txt_ReNr.Enabled = True
Try regexval_txt_ReNr.Validate()
reNr = txt_ReNr.Text txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Catch ex As FormatException Try
If regexval_txt_ReNr.IsValid = True Then
reNr = txt_ReNr.Text
Else
reNr = String.Empty
End If
Catch ex As FormatException
End Try End Try
End If End If
If txt_Absender_M.Text IsNot "" Then If txt_Absender_M.Text IsNot "" Then
txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
Absender = txt_Absender_M.Text Absender = txt_Absender_M.Text
Catch ex As FormatException Catch ex As FormatException
End Try End Try
End If End If
If txt_Empfaenger_M.Text IsNot "" Then If txt_Empfaenger_M.Text IsNot "" Then
txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
Empfaenger = txt_Empfaenger_M.Text Empfaenger = txt_Empfaenger_M.Text
Catch ex As FormatException Catch ex As FormatException
End Try End Try
End If End If
If txt_KdNrAuftrag_M.Text IsNot "" Then If txt_KdNrAuftrag_M.Text IsNot "" Then
txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
KDNAFNR = txt_KdNrAuftrag_M.Text KDNAFNR = txt_KdNrAuftrag_M.Text
Catch ex As FormatException Catch ex As FormatException
End Try End Try
End If End If
If txt_LKWNr_M.Text IsNot "" Then If txt_LKWNr_M.Text IsNot "" Then
txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
LKWNR = txt_LKWNr_M.Text LKWNR = txt_LKWNr_M.Text
Catch ex As FormatException Catch ex As FormatException
End Try End Try
End If End If
If txt_ReNr_M.Text IsNot "" Then If txt_ReNr_M.Text IsNot "" Then
txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
reNr = txt_ReNr_M.Text reNr = txt_ReNr_M.Text
Catch ex As FormatException Catch ex As FormatException
End Try End Try
End If End If
pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
Try Try
Dim erster = New Date(Now().Year, Now().Month, 1) Dim erster = New Date(Now().Year, Now().Month, 1)
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
' MsgBox(ersterdat) ' MsgBox(ersterdat)
datevon = ersterdat datevon = ersterdat
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation) MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
End Try End Try
Else
Try
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
End Try
End If
Else Else
Try
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
End Try
End If End If
End Sub
Protected Sub txt_KundenNr_TextChanged(sender As Object, e As EventArgs)
End Sub End Sub
End Class End Class