Opción Descarga Excel Personalisado

2019-12-23 16:09:14 -07:00
parent 9c21c5fcbe
commit f2c6baeff8
2 changed files with 88 additions and 39 deletions
--- 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>

--- 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