From 461089ff011029b3c69a3ce635ddf0f5b5103aa2 Mon Sep 17 00:00:00 2001 From: Luis Quijada Date: Wed, 7 May 2025 10:15:53 -0700 Subject: [PATCH] Cambios Visualizacion Dashboard --- General/Dashboard.aspx | 139 ++++++++++++++++++++++++++++---------- General/Dashboard.aspx.vb | 13 ++++ 2 files changed, 116 insertions(+), 36 deletions(-) diff --git a/General/Dashboard.aspx b/General/Dashboard.aspx index cc3ede1b8..5c0c1908a 100644 --- a/General/Dashboard.aspx +++ b/General/Dashboard.aspx @@ -1,6 +1,9 @@ <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Dashboard.aspx.vb" Inherits="General_Dashboard" %> - + +
  • + Exportar PDF +
  • - - - - - - - + -
    +
    - - Ingresos - Recuperación - Compras - Gasto - Cuentas por Pagar - Inventario - Utilidad - Impuestos - CRM - RH - AF - +
    + +
    + + Ingresos + Recuperación + Compras + Gasto + Cuentas por Pagar + Inventario + Utilidad + Impuestos + CRM + RH + AF + +
    +
    -
    +
    diff --git a/General/Dashboard.aspx.vb b/General/Dashboard.aspx.vb index 59fc12ef4..d2c1284eb 100644 --- a/General/Dashboard.aspx.vb +++ b/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)