From d90bb21896de6e6fdf145ef3fa8a3a3c108676c2 Mon Sep 17 00:00:00 2001 From: ja Date: Mon, 22 Nov 2021 08:51:42 +0100 Subject: [PATCH] =?UTF-8?q?=C3=84nderungen?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/Invoices.aspx | 14 ++++++-------- Customers/Invoices.aspx.vb | 18 +++++++++--------- 2 files changed, 15 insertions(+), 17 deletions(-) diff --git a/Customers/Invoices.aspx b/Customers/Invoices.aspx index a4ee625..7c20999 100644 --- a/Customers/Invoices.aspx +++ b/Customers/Invoices.aspx @@ -59,9 +59,6 @@ - - -
@@ -237,17 +234,18 @@ Customer Order Number Sender Reciever - Information + Information
<% End If + End If End If - End If - Catch ex As Exception - Response.Write(ex.Message & ex.StackTrace) - End Try %> + Catch ex As Exception + 'Response.Write(ex.Message & ex.StackTrace) + Response.Write("Fehler bei den SQL-Einstellungen. Bitte den Admin kontaktieren.") + End Try %>
diff --git a/Customers/Invoices.aspx.vb b/Customers/Invoices.aspx.vb index fa5de1c..6f58791 100644 --- a/Customers/Invoices.aspx.vb +++ b/Customers/Invoices.aspx.vb @@ -58,6 +58,7 @@ Partial Class Customers_Default3 datevon = Date.Parse(pickdate1.Text) datebis = Date.Parse(pickdate2.Text) End If + End If Dim erster = New Date(Now().Year, Now().Month, 1) datevon = erster @@ -126,14 +127,13 @@ Partial Class Customers_Default3 If String.IsNullOrEmpty(t8.Text) Then t8.BackColor = white - t8.Width = Unit.Percentage(100) - t8.Height = Unit.Percentage(100) + t8.Width = Unit.Pixel(75) + t8.Height = Unit.Pixel(90) Else t8.BackColor = white t8.ForeColor = veragblue End If - th1.Font.Bold = True th2.Font.Bold = True th3.Font.Bold = True @@ -158,7 +158,7 @@ Partial Class Customers_Default3 th6.ForeColor = white th7.ForeColor = white th8.ForeColor = white - th8.Width = Unit.Percentage(100) + th8.Width = Unit.Pixel(75) End Sub Protected Sub btn_b_Click(sender As Object, e As EventArgs) @@ -461,15 +461,15 @@ Partial Class Customers_Default3 btn.Style.Add("Display", "table-cell") btn.Style.Add("Vertical-align", "middle") btn.Style.Add("margin", "2px 2px 8px 4px") - btn.ControlStyle.Width = Unit.Percentage(100) - btn.Height = Unit.Percentage(100) + btn.Width = Unit.Pixel(73) + btn.Height = Unit.Pixel(85) 'btn.Attributes.Add("href", "pdfviewer.aspx?P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.FilialenNr).ToString() + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P3=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.RK_ID).ToString) btn.Attributes.Add("onclick", "window.open('../pdf/Bonizertifikat.pdf')") 'btn.PostBackUrl = "pdfviewer.aspx?P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.FilialenNr).ToString + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P3=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.RK_ID).ToString tbl_Cell_Info.ValidateRequestMode = UI.ValidateRequestMode.Enabled - tbl_Cell_Info.Width = Unit.Percentage(80) - tbl_Cell_Info.Height = Unit.Percentage(100) + tbl_Cell_Info.Width = Unit.Pixel(80) + tbl_Cell_Info.Height = Unit.Pixel(90) tbl_Cell_Info.Controls.Add(btn) tr.Cells.Add(tbl_Cell_Info) initcells(tr, tbl_Cell_Index, tbl_Cell_ReNr, tbl_Cell_LKWs, tbl_Cell_Auftragsdat, tbl_Cell_KundAuftrNr, tbl_Cell_Absender, tbl_Cell_Empfaenger, tbl_Cell_Info, @@ -489,7 +489,7 @@ Partial Class Customers_Default3 tbl_cellNothing.Text = Server.HtmlEncode("No data found!") tr.Cells.Add(tbl_cellNothing) normaltable.Rows.Add(tr) - Session.Add("lastrecord", dt) + End If Else VERAG_VARIABLES.seterrorcount(16)