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

Änderungen Invoices

Browse Source
This commit is contained in:
ja
2021-11-03 15:36:54 +01:00
parent 33523ec7a3
commit 4923c6f304
5 changed files with 116 additions and 113 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
Customers/Invoices.aspx.vb
View File

@@ -351,17 +351,18 @@ Partial Class Customers_Default3
If String.IsNullOrEmpty(Kdnrtext) = False AndAlso String.IsNullOrEmpty(datevon.ToShortDateString) = False AndAlso String.IsNullOrEmpty(datebis.ToShortDateString) = False Then
dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), datevon, datebis, Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR)
Else
ElseIf String.IsNullOrEmpty(Kdnrtext) = False AndAlso String.IsNullOrEmpty(datevon.ToShortDateString) = False AndAlso String.IsNullOrEmpty(datebis.ToShortDateString) = False And reNr = "" Then
dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), datevon, datebis, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
valreq_pickdate1.Validate()
valreq_pickdate2.Validate()
If valreq_pickdate1.IsValid AndAlso valreq_pickdate2.IsValid Then
If valreq_pickdate1.IsValid = False AndAlso valreq_pickdate2.IsValid = False Then
VERAG_VARIABLES.seterrorcount(15)
lbl_status.ForeColor = Drawing.Color.Red
lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error in form validation. Please fill in all fields"
End If
End If
If Not dt.Count = 0 Then
If dt.Count > 0 Then
Dim i As Integer = 0
For Each d In dt
Dim tr As TableRow = New TableRow
@@ -380,24 +381,48 @@ Partial Class Customers_Default3
tbl_Cell_Index.Text = zahl.ToString
tr.Cells.Add(tbl_Cell_Index)
tbl_Cell_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_Cell_ReNr.Text = d.RechnungsNr.ToString
If d.RechnungsNr = Nothing Then
tbl_Cell_ReNr.Text = String.Empty
Else
tbl_Cell_ReNr.Text = d.RechnungsNr.ToString
End If
tr.Cells.Add(tbl_Cell_ReNr)
tbl_Cell_LKWs.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_Cell_LKWs.Text = d.LKW_Kennzeichen.ToString
If d.LKW_Kennzeichen = Nothing Then
tbl_Cell_LKWs.Text = String.Empty
Else
tbl_Cell_LKWs.Text = d.LKW_Kennzeichen.ToString
End If
tr.Cells.Add(tbl_Cell_LKWs)
tbl_Cell_Auftragsdat.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_Cell_Auftragsdat.Text = d.RechnungsDatum.ToString
If d.RechnungsDatum = Nothing Then
tbl_Cell_Auftragsdat.Text = String.Empty
Else
tbl_Cell_Auftragsdat.Text = d.RechnungsDatum.ToString
End If
tr.Cells.Add(tbl_Cell_Auftragsdat)
tbl_Cell_KundAuftrNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_Cell_KundAuftrNr.Text = d.KdAuftragsNr.ToString
If d.KdAuftragsNr = Nothing Then
tbl_Cell_KundAuftrNr.Text = String.Empty
Else
tbl_Cell_KundAuftrNr.Text = d.KdAuftragsNr.ToString
End If
tr.Cells.Add(tbl_Cell_KundAuftrNr)
tbl_Cell_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_Cell_Absender.Text = d.AbsenderName_1.ToString
If d.AbsenderName_1 = Nothing Then
tbl_Cell_Absender.Text = String.Empty
Else
tbl_Cell_Absender.Text = d.AbsenderName_1.ToString
End If
tr.Cells.Add(tbl_Cell_Absender)
tbl_Cell_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_Cell_Empfaenger.Text = d.EmpfängerName_1.ToString
If d.EmpfängerName_1 = Nothing Then
tbl_Cell_Empfaenger.Text = String.Empty
Else
tbl_Cell_Empfaenger.Text = d.EmpfängerName_1.ToString
End If
tr.Cells.Add(tbl_Cell_Empfaenger)
Dim btn As New ImageButton
Dim btn As New ImageButton
btn.ViewStateMode = ViewStateMode.Enabled
btn.CssClass = "btn btn-primary"
btn.ImageUrl = "../images/pdficon.gif"