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

Änderungen

Browse Source
This commit is contained in:
ja
2021-10-28 14:46:18 +02:00
parent 8982ff39d4
commit aae68b929c
1 changed files with 78 additions and 95 deletions
Download Patch File Download Diff File Expand all files Collapse all files

141
Customers/Invoices.aspx.vb
View File

@@ -17,61 +17,16 @@ Partial Class Customers_Invoices
DataBind() DataBind()
tbl_Header_row.TableSection = TableRowSection.TableHeader tbl_Header_row.TableSection = TableRowSection.TableHeader
If (Page.IsPostBack And normaltable.EnableViewState = False) Then If (Page.IsPostBack) Then
normaltable.EnableViewState = True valreq_pickdate1.Validate()
valreq_pickdate2.Validate()
If valreq_pickdate1.IsValid And valreq_pickdate2.IsValid Then
valDateRange_1.Validate()
valDateRange_2.Validate()
If valDateRange_1.IsValid AndAlso valDateRange_2.IsValid Then
datevon = Date.Parse(pickdate1.Text) datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text) datebis = Date.Parse(pickdate2.Text)
If String.IsNullOrEmpty(txt_Absender.Text) Then
regexval_txt_Absender.Enabled = False
Else
regexval_txt_Absender.Enabled = True
End If 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
Else
regexval_txt_ReNr.Enabled = False
End If
'Mobile
If String.IsNullOrEmpty(txt_Absender_M.Text) Then
regexval_txt_Absender_M.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
End If
If String.IsNullOrEmpty(txt_ReNr_M.Text) Then
regexval_txt_ReNr_M.Enabled = False
Else
regexval_txt_ReNr_M.Enabled = True
End If End If
Else Else
normaltable.EnableViewState = True normaltable.EnableViewState = True
@@ -88,7 +43,6 @@ Partial Class Customers_Invoices
pickdate2.Text = Now().ToShortDateString() pickdate2.Text = Now().ToShortDateString()
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
End If End If
End Sub End Sub
Protected Sub initcells(tr As TableRow, t1 As TableCell, t2 As TableCell, t3 As TableCell, t4 As TableCell, t5 As TableCell, t6 As TableCell, t7 As TableCell, t8 As TableCell, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, th6 As TableHeaderCell, th7 As TableHeaderCell, th8 As TableHeaderCell) Protected Sub initcells(tr As TableRow, t1 As TableCell, t2 As TableCell, t3 As TableCell, t4 As TableCell, t5 As TableCell, t6 As TableCell, t7 As TableCell, t8 As TableCell, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, th6 As TableHeaderCell, th7 As TableHeaderCell, th8 As TableHeaderCell)
@@ -182,42 +136,20 @@ Partial Class Customers_Invoices
Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs) Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)
If String.IsNullOrEmpty(txt_Absender.Text) = False Then
txt_Absender.Text = String.Empty txt_Absender.Text = String.Empty
End If
If String.IsNullOrEmpty(txt_Absender_M.Text) = False Then
txt_Absender_M.Text = String.Empty txt_Absender_M.Text = String.Empty
End If
If String.IsNullOrEmpty(txt_Empfaenger.Text) = False Then
txt_Empfaenger.Text = String.Empty txt_Empfaenger.Text = String.Empty
End If
If String.IsNullOrEmpty(txt_Empfaenger_M.Text) = False Then
txt_Empfaenger_M.Text = String.Empty txt_Empfaenger_M.Text = String.Empty
End If
If String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = False Then
txt_KdNrAuftrag.Text = String.Empty txt_KdNrAuftrag.Text = String.Empty
End If
If String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = False Then
txt_KdNrAuftrag_M.Text = String.Empty txt_KdNrAuftrag_M.Text = String.Empty
End If
If String.IsNullOrEmpty(txt_LKWNr.Text) = False Then
txt_LKWNr.Text = String.Empty txt_LKWNr.Text = String.Empty
End If
If String.IsNullOrEmpty(txt_LKWNr_M.Text) = False Then
txt_LKWNr_M.Text = String.Empty txt_LKWNr_M.Text = String.Empty
End If
If String.IsNullOrEmpty(txt_ReNr.Text) = False Then
txt_ReNr.Text = String.Empty txt_ReNr.Text = String.Empty
End If
If String.IsNullOrEmpty(txt_ReNr_M.Text) = False Then
txt_ReNr_M.Text = String.Empty txt_ReNr_M.Text = String.Empty
End If
If String.IsNullOrEmpty(pickdate1.Text) = False Then
pickdate1.Text = String.Empty pickdate1.Text = String.Empty
End If
If String.IsNullOrEmpty(pickdate2.Text) = False Then
pickdate2.Text = String.Empty pickdate2.Text = String.Empty
End If
dt = Nothing dt = Nothing
Kdnrtext = "" Kdnrtext = ""
Absender = "" Absender = ""
@@ -282,7 +214,57 @@ Partial Class Customers_Invoices
Protected Sub btn_Rechnungen_Click(sender As Object, e As EventArgs) Protected Sub btn_Rechnungen_Click(sender As Object, e As EventArgs)
dt = Nothing 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
Else
regexval_txt_ReNr.Enabled = False
End If
'Mobile
If String.IsNullOrEmpty(txt_Absender_M.Text) Then
regexval_txt_Absender_M.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
End If
If String.IsNullOrEmpty(txt_ReNr_M.Text) Then
regexval_txt_ReNr_M.Enabled = False
Else
regexval_txt_ReNr_M.Enabled = True
End If
valreq_pickdate1.Validate() valreq_pickdate1.Validate()
valreq_pickdate2.Validate() valreq_pickdate2.Validate()
If valreq_pickdate1.IsValid AndAlso valreq_pickdate2.IsValid Then If valreq_pickdate1.IsValid AndAlso valreq_pickdate2.IsValid Then
@@ -448,13 +430,14 @@ Partial Class Customers_Invoices
tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellIndex.Text = zahl tbl_CellIndex.Text = zahl
tr.Cells.Add(tbl_CellIndex) tr.Cells.Add(tbl_CellIndex)
initcells(tr, tbl_CellIndex, tbl_CellRENr, tbl_CellLKWs, tbl_Cell_Auftragsdatum, tbl_CellKundAuftNr, tbl_CellAbsender, tbl_CellEmpfaenger, tbl_CellInfo, tbl_HeaderCellIndexNr, tbl_HeaderCell_ReNr, tbl_HeaderCell_LKWNr, tbl_HeaderCell_Auftragsdatum, tbl_HeaderCell_KundAuftrNr, tbl_HeaderCell_Absender, tbl_HeaderCell_Empfaenger, tbl_HeaderCell_Info)
tbl_CellLKWs.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellLKWs.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellLKWs.Text = d.LKW_Kennzeichen.ToString tbl_CellLKWs.Text = d.LKW_Kennzeichen.ToString
tr.Cells.Add(tbl_CellLKWs) tr.Cells.Add(tbl_CellLKWs)
tbl_CellRENr.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellRENr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellRENr.Text = d.RechnungsNr.ToString tbl_CellRENr.Text = d.RechnungsNr.ToString
tr.Cells.Add(tbl_CellRENr) tr.Cells.Add(tbl_CellRENr)
initcells(tr, tbl_CellIndex, tbl_CellRENr, tbl_CellLKWs, tbl_Cell_Auftragsdatum, tbl_CellKundAuftNr, tbl_CellAbsender, tbl_CellEmpfaenger, tbl_CellInfo, tbl_HeaderCellIndexNr, tbl_HeaderCell_ReNr, tbl_HeaderCell_LKWNr, tbl_HeaderCell_Auftragsdatum, tbl_HeaderCell_KundAuftrNr, tbl_HeaderCell_Absender, tbl_HeaderCell_Empfaenger, tbl_HeaderCell_Info)
tbl_Cell_Auftragsdatum.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_Cell_Auftragsdatum.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_Cell_Auftragsdatum.Text = d.RechnungsDatum.ToString tbl_Cell_Auftragsdatum.Text = d.RechnungsDatum.ToString
tr.Cells.Add(tbl_Cell_Auftragsdatum) tr.Cells.Add(tbl_Cell_Auftragsdatum)