- activar la descarga personalizada

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