From 28a8f707411cc6d737d66f9aa7e6cd2756baf143 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 12 Mar 2020 12:04:46 -0700
Subject: [PATCH] =?UTF-8?q?imprimiendo=20excel=20en=20compras=20detalle=20?=
 =?UTF-8?q?y=20se=20avanz=C3=B3=20en=20el=20reporte=20de=20metas=20vendedo?=
 =?UTF-8?q?res=20NOTA:=20Aun=20faltan=20columnas?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/RepComprasDetalle.aspx.vb |  4 ++--
 Ventas/MetasVendedores.aspx       | 15 +++++++++++++++
 Ventas/MetasVendedores.aspx.vb    | 12 ++++++++++++
 3 files changed, 29 insertions(+), 2 deletions(-)

diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb
index 060289af1..d1c57402a 100644
--- a/Compras/RepComprasDetalle.aspx.vb
+++ b/Compras/RepComprasDetalle.aspx.vb
@@ -397,8 +397,8 @@ Partial Class Compras_RepComprasDetalle
         ImprimirPDF(String.Format("{0}Formatos\Remesa.rdlc", UsuarioActual.Empresa.Ruta), DtDatos.FiltraParametros("CveCompra > 0"), params, "Remesa", RDSName:="DsCompras")
     End Sub
     Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
-        GvDatos.ExportToExcel("ReporteComprasDetalles" & Now.ToShortDateString)
-        'GenerarPDF("EXCEL")
+        'GvDatos.ExportToExcel("ReporteComprasDetalles" & Now.ToShortDateString)
+        GenerarPDF("EXCEL")
     End Sub
 
     Protected Sub LnkPdf_Click(sender As Object, e As EventArgs)
diff --git a/Ventas/MetasVendedores.aspx b/Ventas/MetasVendedores.aspx
index 46c64406e..b22cc2c93 100644
--- a/Ventas/MetasVendedores.aspx
+++ b/Ventas/MetasVendedores.aspx
@@ -183,6 +183,21 @@
                                 <asp:Label ID="lblObjAcumulado" runat="server" Target="_blank" Text='<%# Eval("ObjAcumulado").ToString() %>'> </asp:Label>
                             </ItemTemplate>
                         </asp:TemplateField>
+                        <asp:TemplateField HeaderText="%Var vs AA" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblVarVSAAPerc" runat="server" Target="_blank" Text='<%# Eval("VarVSAAPerc").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Var vs AA" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblVarVSAA" runat="server" Target="_blank" Text='<%# Eval("VarVSAA").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Var vs ObjAcum" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblVarVSObjAcum" runat="server" Target="_blank" Text='<%# Eval("VarVSObjAcum").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
                     </Columns>
                 </asp:GridView>
             </ContentTemplate>
diff --git a/Ventas/MetasVendedores.aspx.vb b/Ventas/MetasVendedores.aspx.vb
index e362df89f..fdb6b508a 100644
--- a/Ventas/MetasVendedores.aspx.vb
+++ b/Ventas/MetasVendedores.aspx.vb
@@ -75,9 +75,21 @@ Partial Class MetasVendedores
 
     Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
+            e.Row.FCLabel("lblRealMesPorcentaje").Text = String.Format("{0}{1}", e.Row.FCLabel("lblRealMesPorcentaje").Text, "%")
+            e.Row.FCLabel("lblVarVSAAPerc").Text = String.Format("{0}{1}", e.Row.FCLabel("lblVarVSAAPerc").Text, "%")
             Select Case e.Row.DataKey("Etiqueta")
                 Case "Vendedor"
                     e.Row.CssClass = "Vendedor"
+                    e.Row.FCLabel("lblRealMes").Text = ""
+                    e.Row.FCLabel("lblVtaMesAA").Text = ""
+                    e.Row.FCLabel("lblObjMes").Text = ""
+                    e.Row.FCLabel("lblRealAcumulado").Text = ""
+                    e.Row.FCLabel("lblRealMesPorcentaje").Text = ""
+                    e.Row.FCLabel("lblAAntAcumulado").Text = ""
+                    e.Row.FCLabel("lblObjAcumulado").Text = ""
+                    e.Row.FCLabel("lblVarVSAAPerc").Text = ""
+                    e.Row.FCLabel("lblVarVSAA").Text = ""
+                    e.Row.FCLabel("lblVarVSObjAcum").Text = ""
                 Case "Categoria"
                     e.Row.CssClass = "Totales"
                 Case "Clasificacion"