diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index d6e7532..e45f93f 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/Customers/CustomsAviso.aspx.vb @@ -636,7 +636,7 @@ Partial Class CustomsAviso Protected Sub btn_Auftraege_Click(ByVal sender As Object, e As EventArgs) Handles btn_Auftraege.Click dt = Nothing - MsgBox("TEst") + 'MsgBox("TEst") Session.Add("mytable", Nothing) If Session.Item("mytable") = Nothing Then If txt_Absender.Text IsNot "" Then diff --git a/Customers/Invoices.aspx b/Customers/Invoices.aspx index 3c382ec..bab5856 100644 --- a/Customers/Invoices.aspx +++ b/Customers/Invoices.aspx @@ -90,7 +90,7 @@
-

<%Response.Write(Server.HtmlEncode("Invoices"))%>

+

Invoices

diff --git a/Customers/Invoices.aspx.vb b/Customers/Invoices.aspx.vb index 116bd43..57024e8 100644 --- a/Customers/Invoices.aspx.vb +++ b/Customers/Invoices.aspx.vb @@ -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