From f2c6baeff8d09c2f657626157fdd706d2ea7dead Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Mon, 23 Dec 2019 16:09:14 -0700
Subject: [PATCH] =?UTF-8?q?Opci=C3=B3n=20Descarga=20Excel=20Personalisado?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/RepCxPDetalle.aspx    | 84 +++++++++++++++++++++--------------
 Compras/RepCxPDetalle.aspx.vb | 43 +++++++++++++++---
 2 files changed, 88 insertions(+), 39 deletions(-)

diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx
index aafbec8cd..ffe97d3fc 100644
--- a/Compras/RepCxPDetalle.aspx
+++ b/Compras/RepCxPDetalle.aspx
@@ -12,33 +12,44 @@
         }
     </style>
 </asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
-    <li>
-        <asp:LinkButton ID="ImgImprimir" runat="server"> <i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
-    </li>
-    <li>
-        <asp:LinkButton ID="ImgExcel" runat="server"> <i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
-    </li>
-    <li>
-        <asp:UpdatePanel runat="server" ID="UpPersonlizar">
-            <ContentTemplate>
-                        <asp:LinkButton runat="server" ID="LnkPersonalizar" CssClass="" data-toggle="tooltip" Visible="True" OnClick="LnkPersonalizar_Click"
-                    data-placement="left" title="Enviar Correo de Prueba" Text="<i class='fa fa-pencil'></i>  Personalizar" ></asp:LinkButton>
-            </ContentTemplate>
-        </asp:UpdatePanel> 
-
-    
-    </li>
-
-    <li>
-        <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
-    
-         
-    </li>
-
-    <%--<li><asp:Image ID="ImgPersonalizar" runat="server" ImageUrl="/Imagenes/Table-icon.png" Width="17px" Height="17px" Style="cursor: pointer;" /></li>--%>
-    <li>
-        <asp:HyperLink ID="HplProgramar" runat="server">Programar Recursos</asp:HyperLink></li>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+
+    <asp:UpdatePanel runat="server" >
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="ImgImprimir" runat="server"> <i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="ImgExcel" runat="server"> <i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+            </li>
+            
+            <li>
+                <asp:LinkButton ID="ImgExcelPersonalizado" runat="server" Visible="false"> <i class="fa fa-ad-excel"></i> Excel Personalizado</asp:LinkButton>
+            </li>
+
+            <li>
+                <asp:LinkButton runat="server" ID="LnkPersonalizar" CssClass="" data-toggle="tooltip" Visible="True" OnClick="LnkPersonalizar_Click"
+                    data-placement="left" title="Enviar Correo de Prueba" Text="<i class='fa fa-pencil'></i>  Personalizar"></asp:LinkButton>            </li>
+
+            <li>
+                <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
+
+            </li>
+
+            
+            <li>
+                <asp:HyperLink ID="HplProgramar" runat="server">Programar Recursos</asp:HyperLink>
+
+            </li>
+
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="ImgImprimir"  />
+            <asp:PostBackTrigger ControlID="ImgExcel"  />
+            <asp:PostBackTrigger ControlID="ImgExcelPersonalizado"  />
+        </Triggers>
+    </asp:UpdatePanel>
+
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     Reporte de CxP - Detalle
@@ -223,17 +234,19 @@
 
         </ContentTemplate>
     </asp:UpdatePanel>
-
+    
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" data-sort="true" AutoGenerateColumns="False" Width="100%" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" CssClass="table table-striped ScrollAD" GridLines="None">
+
+           <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%"   EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" 
+                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
                 <Columns>
                     <asp:TemplateField>
                         <HeaderTemplate>
                             Fecha
                         </HeaderTemplate>
                         <ItemTemplate>
-                            &nbsp;<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>&nbsp;
+                            <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField>
@@ -267,7 +280,7 @@
                             Fecha Venc.
                         </HeaderTemplate>
                         <ItemTemplate>
-                            &nbsp;<asp:Literal ID="LtlFechaVenc" runat="server" Text='<%# Eval("FechaVencimiento", "{0:d}") %>'></asp:Literal>&nbsp;
+                            <asp:Literal ID="LtlFechaVenc" runat="server" Text='<%# Eval("FechaVencimiento", "{0:d}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField>
@@ -283,7 +296,7 @@
                             Proveedor
                         </HeaderTemplate>
                         <ItemTemplate>
-                            &nbsp;<asp:Literal ID="LtlProveedor" runat="server" Text='<%# Eval("RazonSocial", "{0}")%>'></asp:Literal>
+                            <asp:Literal ID="LtlProveedor" runat="server" Text='<%# Eval("RazonSocial", "{0}")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField ControlStyle-Width="150px">
@@ -291,7 +304,7 @@
                             Cuenta
                         </HeaderTemplate>
                         <ItemTemplate>
-                            &nbsp;<asp:Literal ID="LtlCuenta" runat="server" Text='<%# Eval("Cuenta")%>'></asp:Literal>
+                            <asp:Literal ID="LtlCuenta" runat="server" Text='<%# Eval("Cuenta")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField ControlStyle-Width="150px" Visible="false">
@@ -299,11 +312,14 @@
                             Observaciones
                         </HeaderTemplate>
                         <ItemTemplate>
-                            &nbsp;<asp:Literal ID="LtlObservaciones" runat="server" Text='<%# Eval("Observaciones")%>'></asp:Literal>
+                            <asp:Literal ID="LtlObservaciones" runat="server" Text='<%# Eval("Observaciones")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                 </Columns>
+                <RowStyle CssClass="Texto" />
+                <HeaderStyle CssClass="Titulos" />
             </asp:GridView>
+
         </ContentTemplate>
     </asp:UpdatePanel>
 
diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb
index dd0035d58..bad04658b 100644
--- a/Compras/RepCxPDetalle.aspx.vb
+++ b/Compras/RepCxPDetalle.aspx.vb
@@ -82,7 +82,20 @@ Partial Class RepCxPDetalle
         Set(value As String)
             ViewState("FechaFin") = value
         End Set
+    End Property
+
+
+    Private Property Personalizo As Integer
+        Get
+            Return ViewState("Personalizo").ToString.ToEntero
+        End Get
+
+        Set(value As Integer)
+            ViewState("Personalizo") = value
+        End Set
     End Property
+
+
     Public Property FechaVInicio() As String
         Get
             Return ViewState("FechaVInicio").ToString
@@ -205,7 +218,9 @@ Partial Class RepCxPDetalle
 
     'pRivate ReadOnly Property ColumnasVisibles As 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not IsPostBack Then
+        If Not IsPostBack Then
+
+            Personalizo = 0
 
             ViewState("Opcion") = IfNull(Request("Op"), "S")
             CargaCombos()
@@ -532,20 +547,38 @@ Partial Class RepCxPDetalle
             GvDatos.Columns(8).Visible = True
         Else
             GvDatos.Columns(8).Visible = False
+        End If
+
+        Personalizo = 1
+        If Personalizo = 1 Then
+            ImgExcelPersonalizado.Visible = True
+        Else
+            ImgExcelPersonalizado.Visible = False
         End If
+
+
         UPDatos.Update()
 
         RegistraScript("$('#DivPersonalizar').modal('hide');")
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "IMPRESIONES"
-
+
     Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click
         GenerarPDF("EXCEL")
+    End Sub
+
+    Protected Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click
+        'GvVsh.Visible = True
+        'GvVsh.ExportToExcel("DetalleVentas_" & Now.ToShortDateString)
+        'GvVsh.Visible = False
+        GvDatos.ExportToExcel("DetalleCompras_" & Now.ToShortDateString & ".xls")
+        'GvDatos.ExportToExcelG("DetalleVentas_" & Now.ToShortDateString & ".xlsx")
     End Sub
 
+
     Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
         GenerarPDF()
     End Sub