From 60577d2a15ee62225ba88eecb198195f0eb96a60 Mon Sep 17 00:00:00 2001
From: janeth arvizu <janeth.arvizu@adssistemas.mx>
Date: Thu, 24 Oct 2019 13:29:43 -0700
Subject: [PATCH]

---
 Compras/RepComprasPrecios.aspx    | 12 +++----
 Compras/RepComprasPrecios.aspx.vb | 57 ++++++++++++++-----------------
 2 files changed, 32 insertions(+), 37 deletions(-)

diff --git a/Compras/RepComprasPrecios.aspx b/Compras/RepComprasPrecios.aspx
index 6adade2de..613258ec4 100644
--- a/Compras/RepComprasPrecios.aspx
+++ b/Compras/RepComprasPrecios.aspx
@@ -83,9 +83,9 @@
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
-    <li>
+<%--    <li>
         <asp:LinkButton ID="LnkPdf" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
-    </li>
+    </li>--%>
     <li>
         <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
     </li>
@@ -150,9 +150,9 @@
                         <ItemTemplate>
                             <asp:Literal ID="HplREQ" runat="server" Text='<%# Eval("PS") %>'></asp:Literal>
                         </ItemTemplate>
-                    </asp:TemplateField>
+                    </asp:TemplateField>--%>
 
-                    <asp:TemplateField HeaderText="Ultima Compra" ItemStyle-HorizontalAlign="Right">
+<%--                    <asp:TemplateField HeaderText="Ultima Compra" ItemStyle-HorizontalAlign="Right">
                         <ItemTemplate>
                             <asp:Literal ID="HplOC" runat="server" Text='<%# Eval("UltCompra", "{0:N2}") %>'></asp:Literal>
                         </ItemTemplate>
@@ -165,9 +165,9 @@
                     </asp:TemplateField>--%>
 
                 </Columns>
-                <HeaderStyle CssClass="Titulos" />
+<%--                <HeaderStyle CssClass="Titulos" />
                 <RowStyle CssClass="Texto" />
-                <AlternatingRowStyle CssClass="TextoAlterno" />
+                <AlternatingRowStyle CssClass="TextoAlterno" />--%>
             </asp:GridView>
         </ContentTemplate>
     </asp:UpdatePanel>
diff --git a/Compras/RepComprasPrecios.aspx.vb b/Compras/RepComprasPrecios.aspx.vb
index af6c4034b..5e32eadec 100644
--- a/Compras/RepComprasPrecios.aspx.vb
+++ b/Compras/RepComprasPrecios.aspx.vb
@@ -22,7 +22,7 @@ Partial Class RepComprasPrecios
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             CargaProveedor()
-            CargaDatos()
+            'CargaDatos()
         End If
     End Sub
 
@@ -93,41 +93,36 @@ Partial Class RepComprasPrecios
 #End Region
 
 #Region "IMPRESION"
-    Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
-        Imprime("PDF")
-    End Sub
+    'Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
+    '    Imprime("PDF")
+    'End Sub
     Private Sub Imprime(Formato As String)
-        'If DtInventarios IsNot Nothing Then
-        '    Dim StrFiltro As New StringBuilder
-        '    If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio:</b> {0}", txtFechaI.Text.ToDate.ToShortDateString)
-        '    If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin:</b> {0}", txtFechaF.Text.ToDate.ToShortDateString)
+        If DtCompras IsNot Nothing Then
+            Dim StrFiltro As New StringBuilder
+            If DdlProveedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Proveedor:</b> {0}", DdlProveedor.SelectedItem.Text)
+            GvDatos.ExportToExcelG("RepComprasPrecios.xlsx", "Reporte de Precios de Compras", UsuarioActual, StrFiltro.ToString, 100, 200)
 
-        '    If DdlAlmacenOrigen.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Almacén Origen:</b> {0}", DdlAlmacenOrigen.SelectedItem.Text)
-        '    If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Almacén Destino:</b> {0}", DdlAlmacenDestino.SelectedItem.Text)
-        '    If ChkRecibido.Checked Then StrFiltro.AppendFormat("&emsp;<b>Recibidos: </b>Si") Else StrFiltro.AppendFormat("&emsp;<b>Recibidos: </b>No")
+            'Dim StrFiltro As New StringBuilder
 
-        '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        '    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+            'If DdlProveedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Proveedor:</b> {0}", DdlProveedor.SelectedItem.Text)
 
-        '    Dim FechaI, FechaF As String
-        '    FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
-        '    FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
+            'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
-        '    Dim params As New List(Of ReportParameter)
-        '    params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
-        '    params.Add(New ReportParameter("FechaInicio", FechaI))
-        '    params.Add(New ReportParameter("FechaFin", FechaF))
-        '    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-        '    params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
-        '    If Imagen.Exists Then
-        '        params.Add(New ReportParameter("LogoPath", logouri))
-        '    Else
-        '        params.Add(New ReportParameter("LogoPath", ""))
-        '    End If
-        '    ImprimirPDF("Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", Now.ToDateTime.ToShortDateString), Formato)
-        'Else
-        '    Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
-        'End If
+
+            'Dim params As New List(Of ReportParameter)
+            'params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            'params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            'params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
+            'If Imagen.Exists Then
+            '    params.Add(New ReportParameter("LogoPath", logouri))
+            'Else
+            '    params.Add(New ReportParameter("LogoPath", ""))
+            'End If
+            'ImprimirPDF("Empresas/Grales/Formatos/RepComprasPrecios.rdlc", DtCompras, params, String.Format("RepComprasPrecios-{0}", Now.ToDateTime.ToShortDateString), Formato)
+        Else
+            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+        End If
     End Sub
 #End Region
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click