- activar la descarga personalizada

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