Rep Compras AF Detalle: Agregar opción Excel Personalizado

Compras/RepComprasAFDetalle.aspx.vb

@@ -337,6 +337,9 @@ Partial Class Compras_RepComprasAFDetalle
     Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LinkPDF.Click
         GenerarPDF()
     End Sub
+    Private Sub LnkExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles LnkExcelPersonalizado.Click
+        GvDatos.ExportToExcel("ComprasDetalle_" + DdlPS.txtValue.Value + Now.ToShortDateString)
+    End Sub
 
     Private Sub GenerarPDF(Optional Formato As String = "PDF")
         Dim ObjTareas As New ClsOIEventos
@@ -349,12 +352,8 @@ Partial Class Compras_RepComprasAFDetalle
         End If
 
         Dim params As New List(Of ReportParameter)
-
-
-
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
 
-
         Dim FechaI, FechaF As String
         FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
         FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
@@ -367,7 +366,6 @@ Partial Class Compras_RepComprasAFDetalle
         params.Add(New ReportParameter("FechaFin", FechaF))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
-
         params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF(RutaPDF, DTDatos, params, "ReporteComprasAFDetalle_" & Now.ToString("yyyyMMddmmss"), Formato:=Formato)
@@ -499,6 +497,13 @@ Partial Class Compras_RepComprasAFDetalle
         GvDatos.FBColumn("Total").Visible = ChkTotal.Checked
         GvDatos.FBColumn("Cuenta").Visible = ChkCuenta.Checked
         UPDatos.Update()
+
+        If Personalizado Then
+            LnkExcelPersonalizado.Visible = True
+        Else
+            LnkExcelPersonalizado.Visible = False
+        End If
+        UPAcciones.Update()
     End Sub
 
     Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click