Opción Descarga Excel Personalisado

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