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

2
Customers/CustomsAviso.aspx.vb
View File

@@ -636,7 +636,7 @@ Partial Class CustomsAviso
Protected Sub btn_Auftraege_Click(ByVal sender As Object, e As EventArgs) Handles btn_Auftraege.Click Protected Sub btn_Auftraege_Click(ByVal sender As Object, e As EventArgs) Handles btn_Auftraege.Click
dt = Nothing dt = Nothing
MsgBox("TEst") 'MsgBox("TEst")
Session.Add("mytable", Nothing) Session.Add("mytable", Nothing)
If Session.Item("mytable") = Nothing Then If Session.Item("mytable") = Nothing Then
If txt_Absender.Text IsNot "" Then If txt_Absender.Text IsNot "" Then

2
Customers/Invoices.aspx
View File

@@ -90,7 +90,7 @@
<div> <div>
<div style="height:0.936768149882904vh"></div> <div style="height:0.936768149882904vh"></div>
<div class="col-12" style="margin-left:2px"> <div class="col-12" style="margin-left:2px">
<h2><%Response.Write(Server.HtmlEncode("Invoices"))%></h2> <h2>Invoices</h2>
</div> </div>
<div style="margin-left:6px"> <div style="margin-left:6px">
<div class="col-12" style="text-align:end"> <div class="col-12" style="text-align:end">

6
Customers/Invoices.aspx.vb
View File

@@ -715,7 +715,7 @@ Partial Class Customers_Default3
datebis = Date.Parse(Now.ToShortDateString) datebis = Date.Parse(Now.ToShortDateString)
pickdate1.Text = erster.ToUniversalTime.ToString("yyyy-MM-dd") pickdate1.Text = erster.ToUniversalTime.ToString("yyyy-MM-dd")
pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyyy-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 Catch ex As Exception
lbl_status.ForeColor = Drawing.Color.Red lbl_status.ForeColor = Drawing.Color.Red
lbl_status.Text = "Die Daten konnten nicht initialisiert werden. Bitte erneut versuchen." lbl_status.Text = "Die Daten konnten nicht initialisiert werden. Bitte erneut versuchen."
@@ -724,14 +724,12 @@ Partial Class Customers_Default3
Try Try
datevon = Date.Parse(pickdate1.Text) datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.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 Catch
lbl_status.ForeColor = Drawing.Color.Red lbl_status.ForeColor = Drawing.Color.Red
lbl_status.Text = "Fehler bei der Datenvergabe." lbl_status.Text = "Fehler bei der Datenvergabe."
End Try End Try
End If 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 End If
addrows() addrows()
Session.Item("mytable") = normaltable Session.Item("mytable") = normaltable