Opción Descarga Excel Personalisado

Compras/RepCxPDetalle.aspx

@@ -13,32 +13,43 @@
     </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>
+    <asp:UpdatePanel runat="server" >
-    </li>
+        <ContentTemplate>
-    <li>
+            <li>
-        <asp:LinkButton ID="ImgExcel" runat="server"> <i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+                <asp:LinkButton ID="ImgImprimir" runat="server"> <i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
-    </li>
+            </li>
-    <li>
+            <li>
-        <asp:UpdatePanel runat="server" ID="UpPersonlizar">
+                <asp:LinkButton ID="ImgExcel" runat="server"> <i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
-            <ContentTemplate>
+            </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>
-            </ContentTemplate>
+                <asp:LinkButton ID="ImgExcelPersonalizado" runat="server" Visible="false"> <i class="fa fa-ad-excel"></i> Excel Personalizado</asp:LinkButton>
-        </asp:UpdatePanel> 
+            </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>
+            <li>
+                <asp:HyperLink ID="HplProgramar" runat="server">Programar Recursos</asp:HyperLink>
 
-    <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>
 
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="ImgImprimir"  />
+            <asp:PostBackTrigger ControlID="ImgExcel"  />
+            <asp:PostBackTrigger ControlID="ImgExcelPersonalizado"  />
+        </Triggers>
+    </asp:UpdatePanel>
 
-    </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>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     Reporte de CxP - Detalle
@@ -226,14 +237,16 @@
     
     <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>
 

Compras/RepCxPDetalle.aspx.vb

@@ -83,6 +83,19 @@ Partial Class RepCxPDetalle
             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
@@ -207,6 +220,8 @@ Partial Class RepCxPDetalle
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
+            Personalizo = 0
+
             ViewState("Opcion") = IfNull(Request("Op"), "S")
             CargaCombos()
             If Request("Op") IsNot Nothing Then
@@ -533,6 +548,15 @@ Partial Class RepCxPDetalle
         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');")
@@ -546,6 +570,15 @@ Partial Class RepCxPDetalle
         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