From 30fe1811613f8a630ecd30d87362dbeb17b28386 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Fri, 25 Oct 2019 10:29:52 -0700 Subject: [PATCH] --- Compras/RepComprasPrecios.aspx | 14 ++++++-------- Compras/RepComprasPrecios.aspx.vb | 6 +++++- 2 files changed, 11 insertions(+), 9 deletions(-) diff --git a/Compras/RepComprasPrecios.aspx b/Compras/RepComprasPrecios.aspx index 613258ec4..adc382397 100644 --- a/Compras/RepComprasPrecios.aspx +++ b/Compras/RepComprasPrecios.aspx @@ -83,7 +83,7 @@ -<%--
  • + <%--
  • PDF
  • --%>
  • @@ -141,18 +141,17 @@ - + -<%-- + <%-- --%> -<%-- + <%-- @@ -163,9 +162,8 @@ --%> - -<%-- + <%-- --%> diff --git a/Compras/RepComprasPrecios.aspx.vb b/Compras/RepComprasPrecios.aspx.vb index 5e32eadec..48c9af027 100644 --- a/Compras/RepComprasPrecios.aspx.vb +++ b/Compras/RepComprasPrecios.aspx.vb @@ -45,6 +45,8 @@ Partial Class RepComprasPrecios Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then + 'GvDatos.Columns(1).ItemStyle.Width = New Unit("500px") + GvDatos.HeaderRow.Cells(0).Visible = False e.Row.Cells(0).Visible = False @@ -99,7 +101,7 @@ Partial Class RepComprasPrecios Private Sub Imprime(Formato As String) If DtCompras IsNot Nothing Then Dim StrFiltro As New StringBuilder - If DdlProveedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Proveedor: {0}", DdlProveedor.SelectedItem.Text) + If DdlProveedor.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedItem.Text) GvDatos.ExportToExcelG("RepComprasPrecios.xlsx", "Reporte de Precios de Compras", UsuarioActual, StrFiltro.ToString, 100, 200) 'Dim StrFiltro As New StringBuilder @@ -132,4 +134,6 @@ Partial Class RepComprasPrecios Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click Imprime("Excel") End Sub + Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) + End Sub End Class