Cambios Visualizacion Dashboard

General/Dashboard.aspx.vb

@@ -5,6 +5,7 @@ Imports System.Web.Services
 Imports Newtonsoft.Json
 Imports ADSNetLibrary.SIGAPI.Models.CRM.Request
 Imports ADSNetLibrary.SIGAPI.Services.CRM
+Imports MoreLinq
 Imports System.Globalization
 
 Partial Class General_Dashboard
@@ -87,6 +88,18 @@ Partial Class General_Dashboard
         End Select
     End Sub
 
+    Protected Sub LnkExportarPDF_Click(sender As Object, e As EventArgs) Handles LnkExportarPDF.Click
+        UPDashboard.Update()
+
+        ' Clonar todo el UpdatePanel
+        Dim clonedPanel As New UpdatePanel()
+        clonedPanel.ID = "ClonedDashboard"
+        clonedPanel.ContentTemplateContainer.Controls.Add(UPDashboard.ContentTemplateContainer)
+
+        ' Usar el método mejorado
+        clonedPanel.GenerarReportePDF("Reporte_Dashboard")
+    End Sub
+
     Private Sub CargarIndicadores(dt As DataTable)
         If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
             ProcesarDatosIndicadores(dt)