From 203d5e5071bf3dfeb2c8e94a21d97d4b7e3aae01 Mon Sep 17 00:00:00 2001
From: MLopez <Mario.lopez@adssistemas.mx>
Date: Wed, 14 Dec 2022 18:56:48 -0700
Subject: [PATCH] =?UTF-8?q?E172=20Rep=20Indicadores=20agregar=20exporta=20?=
 =?UTF-8?q?PDF=20de=20nuevo=20Parece=20que=20un=20commit=20borr=C3=B3=20es?=
 =?UTF-8?q?tas=20l=C3=ADneas=20accidentalmente?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 General/RepIndicadorResumen.aspx.vb | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/General/RepIndicadorResumen.aspx.vb b/General/RepIndicadorResumen.aspx.vb
index 5f26ee141..6d0f8569b 100644
--- a/General/RepIndicadorResumen.aspx.vb
+++ b/General/RepIndicadorResumen.aspx.vb
@@ -37,6 +37,13 @@ Partial Class General_RepIndicadorResumen
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles btnConsultar.Click
         CargaDatos()
     End Sub
+    Protected Sub LnkExportarPDF_Click(sender As Object, e As EventArgs) Handles LnkExportarPDF.Click
+        UPPMov.GenerarReportePDF("Reporte Resumen de Indicadores", TxtFechaI.Text, TxtFechaF.Text)
+    End Sub
+    'No quitar porque no funciona el exporta PDF
+    Public Overrides Sub VerifyRenderingInServerForm(control As Control)
+        ' Verifies that the control is rendered 
+    End Sub
     Private Sub CargaDatos()
 
         Dim ObjVentas As New ClsVentas