- activar la descarga personalizada

2024-03-23 12:12:41 -07:00
parent d5a92c77f5
commit 3c205bda44
4 changed files with 115 additions and 57 deletions
--- a/Compras/RepCompras.aspx
+++ b/Compras/RepCompras.aspx
@@ -58,29 +58,34 @@
    Reporte de Compras
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <li>
-        <asp:LinkButton ID="LnkPdf" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
-    </li>
-    <li>
-        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
-    </li>
-    <asp:UpdatePanel runat="server">
-        <ContentTemplate>
-            <li>
-                <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar</asp:HyperLink>
-            </li>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-    <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>
-    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-            <li>
-                <asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server"><i class="fa fa-signal" ></i> Ver Grafica</asp:LinkButton>
-            </li>
-        </ContentTemplate>
-    </asp:UpdatePanel>
+    <asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UppAcciones">
+    <ContentTemplate>
+        <li>
+            <asp:LinkButton ID="LnkPdf" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
+        </li>
+        <li>
+            <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
+        </li>    
+        <li>
+            <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar</asp:HyperLink>
+        </li>
+       <li>
+            <asp:LinkButton ID="ImgExcelPersonalizado" runat="server" Visible="false"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel Personalizado</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:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server"><i class="fa fa-signal" ></i> Ver Grafica</asp:LinkButton>
+        </li>
+    </ContentTemplate>
+    <Triggers>
+        <asp:PostBackTrigger ControlID="LnkPdf" />
+        <asp:PostBackTrigger ControlID="LnkExportar" />
+        <asp:PostBackTrigger ControlID="ImgExcelPersonalizado" /> 
+</Triggers>
+</asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
--- a/Compras/RepCompras.aspx.vb
+++ b/Compras/RepCompras.aspx.vb
@@ -8,7 +8,15 @@ Imports Microsoft.Reporting.WebForms
 Partial Class Compras_RepCompras
    Inherits ClsPaginas
 #Region "PROPIEDADES"
+    Private Property Personalizo As Integer
+        Get
+            Return ViewState("Personalizo").ToString.ToEntero
+        End Get

+        Set(value As Integer)
+            ViewState("Personalizo") = value
+        End Set
+    End Property
    Private Property TCEspecifico As Double
        Get
            If ViewState("TCEspecifico") Is Nothing Then
@@ -43,6 +51,7 @@ Partial Class Compras_RepCompras

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
+            Personalizo = 0
            CargaCombos()
        End If
    End Sub
@@ -289,8 +298,16 @@ Partial Class Compras_RepCompras
            GvDatos.Columns(15).Visible = True
        Else
            GvDatos.Columns(15).Visible = False
+        End If
+
+
+        Personalizo = 1
+        If Personalizo = 1 Then
+            ImgExcelPersonalizado.Visible = True
+        Else
+            ImgExcelPersonalizado.Visible = False
        End If
-
+        UppAcciones.Update()
        UPDatos.Update()
    End Sub

@@ -398,9 +415,14 @@ Partial Class Compras_RepCompras

    Protected Sub DdlVer_SelectedIndexChanged(sender As Object, e As EventArgs)
        CambioGrafica()
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
+    Protected Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click
+
+        GvDatos.ExportToExcel("Compras_" & NowADS().ToShortDateString)
+        'GvDatos.ExportToExcelG("DetalleCompras_" & NowADS().ToShortDateString & ".xlsx")
+    End Sub
+
 End Class
--- a/Compras/RepComprasDetalle.aspx
+++ b/Compras/RepComprasDetalle.aspx
@@ -3,37 +3,46 @@
 <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>

 <asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
-    <%--<asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="17px" Height="17px" />--%>
-    <li>
-        <asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-ad-pdf"></i>  Generar PDF</asp:LinkButton>
-    </li>
+    <asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UppAcciones">
+    <ContentTemplate>
+   
+        <li>
+            <asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-ad-pdf"></i>  Generar PDF</asp:LinkButton>
+        </li>

-    <li>
-        <asp:LinkButton ID="LnkExportar" runat="server">
-            <i class="fa fa-ad-excel"></i> Exportar Excel
-        </asp:LinkButton>
-    </li>
-    <li runat="server" id="LiImprimir" visible="false">
-        <asp:LinkButton ID="Lnkimprimir" runat="server">
-            <i class="fa fa-print"></i> Imprimir Remesa
-        </asp:LinkButton>
-    </li>
-    <asp:UpdatePanel runat="server">
-        <ContentTemplate>
-            <li>
-                <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar</asp:HyperLink>
-            </li>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-    <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>
-    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-            <li>
-                <asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server">Ver Grafica</asp:LinkButton>
-            </li>
+        <li>
+            <asp:LinkButton ID="LnkExportar" runat="server">
+                <i class="fa fa-ad-excel"></i> Exportar Excel
+            </asp:LinkButton>
+        </li>
+         <li>
+             <asp:LinkButton ID="ImgExcelPersonalizado" runat="server" Visible="false"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel Personalizado</asp:LinkButton>
+         </li>
+        <li runat="server" id="LiImprimir" visible="false">
+            <asp:LinkButton ID="Lnkimprimir" runat="server">
+                <i class="fa fa-print"></i> Imprimir Remesa
+            </asp:LinkButton>
+        </li>
+        
+        <li>
+            <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar</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>
+        </li>
+       
+        <li>
+            <asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server">Ver Grafica</asp:LinkButton>
+        </li>
+       
        </ContentTemplate>
+         <Triggers>
+             <asp:PostBackTrigger ControlID="LnkPdf" />
+             <asp:PostBackTrigger ControlID="LnkExportar" />
+             <asp:PostBackTrigger ControlID="ImgExcelPersonalizado" />
+             <asp:PostBackTrigger ControlID="Lnkimprimir" />
+         </Triggers>
    </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
--- a/Compras/RepComprasDetalle.aspx.vb
+++ b/Compras/RepComprasDetalle.aspx.vb
@@ -28,6 +28,15 @@ Partial Class Compras_RepComprasDetalle
        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
    Private Property TCEspecifico As Double
        Get
            If ViewState("TCEspecifico") Is Nothing Then
@@ -62,6 +71,7 @@ Partial Class Compras_RepComprasDetalle

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
+            Personalizo = 0
            CargaCombos()
            CargaParametrosInicio()
            CargaDatos()
@@ -460,10 +470,22 @@ Partial Class Compras_RepComprasDetalle
        GvDatos.Columns(14).Visible = ChkFecha.Checked
        GvDatos.Columns(15).Visible = ChkObs.Checked
        GvDatos.Columns(16).Visible = ChkDescripcion.Checked
+
+        Personalizo = 1
+        If Personalizo = 1 Then
+            ImgExcelPersonalizado.Visible = True
+        Else
+            ImgExcelPersonalizado.Visible = False
+        End If
+        UppAcciones.Update()
        UPDatos.Update()
    End Sub

+    Protected Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click

+        GvDatos.ExportToExcel("DetalleCompras_" & NowADS().ToShortDateString)
+        'GvDatos.ExportToExcelG("DetalleCompras_" & NowADS().ToShortDateString & ".xlsx")
+    End Sub

 End Class