Änderungen invoices.aspx und andere seiten im Prozess optimiert.
This commit is contained in:
ja
@@ -164,7 +164,13 @@ Partial Class Customers_Invoices
|
||||
End Sub
|
||||
|
||||
Protected Sub valDateRange_1_ServerValidate(source As Object, args As ServerValidateEventArgs)
|
||||
Dim minDate As DateTime = DateTime.Parse("01.04.2001")
|
||||
Dim maxDate As DateTime = DateTime.Parse(DateTime.Now.ToShortDateString)
|
||||
Dim dt As DateTime
|
||||
|
||||
args.IsValid = (DateTime.TryParse(args.Value, dt) AndAlso
|
||||
dt <= maxDate AndAlso
|
||||
dt >= minDate)
|
||||
End Sub
|
||||
|
||||
Protected Sub pickdate2_TextChanged(sender As Object, e As EventArgs)
|
||||
@@ -172,101 +178,106 @@ Partial Class Customers_Invoices
|
||||
End Sub
|
||||
|
||||
Protected Sub valDateRange_2_ServerValidate(source As Object, args As ServerValidateEventArgs)
|
||||
Dim minDate As DateTime = DateTime.Parse("01." + Date.Now.Month.ToString + ".2001")
|
||||
Dim maxDate As DateTime = DateTime.Parse(DateTime.Now.ToShortDateString)
|
||||
Dim dt As DateTime
|
||||
|
||||
args.IsValid = (DateTime.TryParse(args.Value, dt) AndAlso
|
||||
dt <= maxDate AndAlso
|
||||
dt >= minDate) And dt < Date.Now.AddDays(-1)
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_LKWNr_TextChanged(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_Empfaenger_TextChanged(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_Absender_TextChanged(sender As Object, e As EventArgs)
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_ReNr_TextChanged(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_KdNrAuftrag_TextChanged(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_LKWNr_M_TextChanged(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub TextBox2_TextChanged(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_KdNrAuftrag_M_TextChanged(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub txt_KundenNr_TextChanged(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub btn_Rechnungen_Click(sender As Object, e As EventArgs)
|
||||
dt = Nothing
|
||||
If String.IsNullOrEmpty(txt_Absender.Text) Then
|
||||
regexval_txt_Absender.Enabled = False
|
||||
Else
|
||||
regexval_txt_Absender.Enabled = True
|
||||
End If
|
||||
If String.IsNullOrEmpty(txt_Empfaenger.Text) Then
|
||||
regexval_txt_Empfaenger.Enabled = False
|
||||
Else
|
||||
regexval_txt_Empfaenger.Enabled = True
|
||||
End If
|
||||
If String.IsNullOrEmpty(txt_KdNrAuftrag.Text) Then
|
||||
regexval_txt_KdNrAuftrag.Enabled = False
|
||||
Else
|
||||
regexval_txt_KdNrAuftrag.Enabled = True
|
||||
End If
|
||||
If String.IsNullOrEmpty(txt_LKWNr.Text) Then
|
||||
regexval_txt_LKW.Enabled = False
|
||||
Else
|
||||
regexval_txt_LKW.Enabled = True
|
||||
End If
|
||||
If String.IsNullOrEmpty(txt_ReNr.Text) Then
|
||||
regexval_txt_ReNr.Enabled = False
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_Empfaenger_TextChanged(sender As Object, e As EventArgs)
|
||||
If String.IsNullOrEmpty(txt_Empfaenger.Text) Then
|
||||
regexval_txt_Empfaenger.Enabled = False
|
||||
Else
|
||||
regexval_txt_ReNr.Enabled = False
|
||||
regexval_txt_Empfaenger.Enabled = True
|
||||
End If
|
||||
'Mobile
|
||||
If String.IsNullOrEmpty(txt_Absender_M.Text) Then
|
||||
regexval_txt_Absender_M.Enabled = False
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_Absender_TextChanged(sender As Object, e As EventArgs)
|
||||
If String.IsNullOrEmpty(txt_Absender.Text) Then
|
||||
regexval_txt_Absender.Enabled = False
|
||||
Else
|
||||
regexval_txt_Absender_M.Enabled = True
|
||||
End If
|
||||
If String.IsNullOrEmpty(txt_Empfaenger_M.Text) Then
|
||||
regexval_txt_Empfaenger_M.Enabled = False
|
||||
Else
|
||||
regexval_txt_Empfaenger_M.Enabled = True
|
||||
End If
|
||||
If String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) Then
|
||||
regexval_txt_KdNrAuftrag_M.Enabled = False
|
||||
Else
|
||||
regexval_txt_KdNrAuftrag_M.Enabled = True
|
||||
End If
|
||||
If String.IsNullOrEmpty(txt_LKWNr_M.Text) Then
|
||||
regexval_txt_LKW_M.Enabled = False
|
||||
Else
|
||||
regexval_txt_LKW_M.Enabled = True
|
||||
regexval_txt_Absender.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_ReNr_TextChanged(sender As Object, e As EventArgs)
|
||||
If String.IsNullOrEmpty(txt_ReNr_M.Text) Then
|
||||
regexval_txt_ReNr_M.Enabled = False
|
||||
Else
|
||||
regexval_txt_ReNr_M.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_KdNrAuftrag_TextChanged(sender As Object, e As EventArgs)
|
||||
If String.IsNullOrEmpty(txt_KdNrAuftrag.Text) Then
|
||||
regexval_txt_KdNrAuftrag.Enabled = False
|
||||
Else
|
||||
regexval_txt_KdNrAuftrag.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_LKWNr_M_TextChanged(sender As Object, e As EventArgs)
|
||||
If String.IsNullOrEmpty(txt_LKWNr_M.Text) Then
|
||||
regexval_txt_LKW_M.Enabled = False
|
||||
Else
|
||||
regexval_txt_LKW_M.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_KdNrAuftrag_M_TextChanged(sender As Object, e As EventArgs)
|
||||
If String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) Then
|
||||
regexval_txt_KdNrAuftrag_M.Enabled = False
|
||||
Else
|
||||
regexval_txt_KdNrAuftrag_M.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_Absender_M_TextChanged(sender As Object, e As EventArgs)
|
||||
If String.IsNullOrEmpty(txt_Absender_M.Text) Then
|
||||
regexval_txt_Absender_M.Enabled = False
|
||||
Else
|
||||
regexval_txt_Absender_M.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_ReNr_M_TextChanged(sender As Object, e As EventArgs)
|
||||
If String.IsNullOrEmpty(txt_ReNr_M.Text) Then
|
||||
regexval_txt_ReNr_M.Enabled = False
|
||||
Else
|
||||
regexval_txt_ReNr_M.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_Empfaenger_M_TextChanged(sender As Object, e As EventArgs)
|
||||
If String.IsNullOrEmpty(txt_Empfaenger_M.Text) Then
|
||||
regexval_txt_Empfaenger_M.Enabled = False
|
||||
Else
|
||||
regexval_txt_Empfaenger_M.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub Send_Data_Click(sender As Object, e As EventArgs)
|
||||
dt = Nothing
|
||||
|
||||
'Mobile
|
||||
|
||||
|
||||
|
||||
|
||||
valreq_pickdate1.Validate()
|
||||
valreq_pickdate2.Validate()
|
||||
If valreq_pickdate1.IsValid AndAlso valreq_pickdate2.IsValid Then
|
||||
If valreq_pickdate1.IsValid AndAlso valreq_pickdate2.IsValid AndAlso Kdnrtext = Not "" Then
|
||||
If txt_Absender.Text IsNot "" Then
|
||||
regexval_txt_Absender.Enabled = True
|
||||
regexval_txt_Absender.Validate()
|
||||
@@ -402,7 +413,7 @@ Partial Class Customers_Invoices
|
||||
End If
|
||||
|
||||
Kdnrtext = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("P4"))
|
||||
|
||||
MsgBox(Kdnrtext)
|
||||
If String.IsNullOrEmpty(Kdnrtext) = False And String.IsNullOrEmpty(datevon.ToString) = False And String.IsNullOrEmpty(datebis.ToString) = False Then
|
||||
dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), datevon, datebis, Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR)
|
||||
ElseIf String.IsNullOrEmpty(Kdnrtext) = True Or String.IsNullOrEmpty(datevon.ToString) = True And String.IsNullOrEmpty(datebis.ToString) = True And String.IsNullOrEmpty(reNr) = True And String.IsNullOrEmpty(Absender) = False And String.IsNullOrEmpty(LKWNR) = False And String.IsNullOrEmpty(Empfaenger) = False And String.IsNullOrEmpty(KDNAFNR) = False Then
|
||||
@@ -480,4 +491,8 @@ Partial Class Customers_Invoices
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user