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

Änderung Invoices wird korrekt angezeigt

Browse Source
This commit is contained in:
ja
2021-11-30 15:15:39 +01:00
parent e6271e4e76
commit bcc78206b5
3 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Customers/Invoices.aspx.vb
View File

@@ -715,7 +715,7 @@ Partial Class Customers_Default3
datebis = Date.Parse(Now.ToShortDateString)
pickdate1.Text = erster.ToUniversalTime.ToString("yyyy-MM-dd")
pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyyy-MM-dd")
dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), CDate(datevon), CDate(datebis), Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR)
Catch ex As Exception
lbl_status.ForeColor = Drawing.Color.Red
lbl_status.Text = "Die Daten konnten nicht initialisiert werden. Bitte erneut versuchen."
@@ -724,14 +724,12 @@ Partial Class Customers_Default3
Try
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), CDate(datevon), CDate(datebis), Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR)
Catch
lbl_status.ForeColor = Drawing.Color.Red
lbl_status.Text = "Fehler bei der Datenvergabe."
End Try
End If
dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), CDate(datevon), CDate(datebis), Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR)
'MsgBox("Alles hinzugefügt")
End If
addrows()
Session.Item("mytable") = normaltable