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

Änderungenb Logik Programmablauf und Codedesign sowie GUI-Verbesserungen

Browse Source
This commit is contained in:
ja
2021-10-29 16:36:18 +02:00
parent a7882579a9
commit cd960f46a1
2 changed files with 65 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

120
Customers/Invoices.aspx.vb
View File

@@ -171,66 +171,66 @@ Partial Class Customers_Invoices
'valDateRange_2.Validate()
'If valDateRange_1.IsValid And valDateRange_2.IsValid Then
If Not String.IsNullOrEmpty(txt_Absender.Text) 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
lbl_status.Text = ex.Message
End Try
End If
If Not String.IsNullOrEmpty(txt_Empfaenger.Text) 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
lbl_status.Text = ex.Message
End Try
End If
If Not String.IsNullOrEmpty(txt_KdNrAuftrag.Text) 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
lbl_status.Text = ex.Message
End Try
End If
If Not String.IsNullOrEmpty(txt_LKWNr.Text) 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
lbl_status.Text = ex.Message
End Try
End If
If Not String.IsNullOrEmpty(txt_ReNr.Text) Then
regexval_txt_ReNr.Enabled = True
regexval_txt_ReNr.Validate()
txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
regexval_txt_Absender.Enabled = True
regexval_txt_Absender.Validate()
Try
If regexval_txt_Absender.IsValid = True Then
Absender = txt_Absender.Text
Else
Absender = String.Empty
End If
Catch ex As FormatException
lbl_status.Text = ex.Message
End Try
End If
If Not String.IsNullOrEmpty(txt_Empfaenger.Text) Then
txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
regexval_txt_Empfaenger.Enabled = True
regexval_txt_Empfaenger.Validate()
Try
If regexval_txt_Empfaenger.IsValid = True Then
Empfaenger = txt_Empfaenger.Text
Else
Empfaenger = String.Empty
End If
Catch ex As FormatException
lbl_status.Text = ex.Message
End Try
End If
If Not String.IsNullOrEmpty(txt_KdNrAuftrag.Text) Then
txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
regexval_txt_KdNrAuftrag.Enabled = True
regexval_txt_KdNrAuftrag.Validate()
Try
If regexval_txt_KdNrAuftrag.IsValid = True Then
KDNAFNR = txt_KdNrAuftrag.Text
Else
KDNAFNR = String.Empty
End If
Catch ex As FormatException
lbl_status.Text = ex.Message
End Try
End If
If Not String.IsNullOrEmpty(txt_LKWNr.Text) Then
txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
regexval_txt_LKW.Enabled = True
regexval_txt_LKW.Validate()
Try
If regexval_txt_LKW.IsValid = True Then
LKWNR = txt_LKWNr.Text
Else
LKWNR = String.Empty
End If
Catch ex As FormatException
lbl_status.Text = ex.Message
End Try
End If
If Not String.IsNullOrEmpty(txt_ReNr.Text) Then
txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
regexval_txt_ReNr.Enabled = True
regexval_txt_ReNr.Validate()
Try
If regexval_txt_ReNr.IsValid = True Then
reNr = txt_ReNr.Text
Else