From cd960f46a17d6c9e03adf07ad5a87a60ab8a96ae Mon Sep 17 00:00:00 2001 From: ja Date: Fri, 29 Oct 2021 16:36:18 +0200 Subject: [PATCH] =?UTF-8?q?=C3=84nderungenb=20Logik=20Programmablauf=20und?= =?UTF-8?q?=20Codedesign=20sowie=20GUI-Verbesserungen?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/Invoices.aspx | 10 ++-- Customers/Invoices.aspx.vb | 120 ++++++++++++++++++------------------- 2 files changed, 65 insertions(+), 65 deletions(-) diff --git a/Customers/Invoices.aspx b/Customers/Invoices.aspx index 28ee6be..f0a2e09 100644 --- a/Customers/Invoices.aspx +++ b/Customers/Invoices.aspx @@ -113,17 +113,17 @@ - +
- + - +
@@ -152,10 +152,10 @@
- + - +
diff --git a/Customers/Invoices.aspx.vb b/Customers/Invoices.aspx.vb index f99e71d..36e1494 100644 --- a/Customers/Invoices.aspx.vb +++ b/Customers/Invoices.aspx.vb @@ -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