From 2d6812a0bf7990c4a3acae280e12cef1e3810cd9 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 30 Jun 2025 16:24:22 -0700
Subject: [PATCH] =?UTF-8?q?--=20cambio=20de=20p=C3=A1gina.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsPaginas.vb | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 4e6967359..65e819be0 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -10591,7 +10591,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/CxC/RepCxCPeriodo.aspx".ToUpper(), 887)
 #End Region
 #Region "Exportaciones"
-            PaginaDict.Add("/Export/RepExportaciones.aspx".ToUpper(), 77)
+            'PaginaDict.Add("/Export/RepExportaciones.aspx".ToUpper(), 77)
             PaginaDict.Add("/Export/ExpDetalle.aspx".ToUpper(), 77)
 #End Region
 #Region "Finanzas"
@@ -11362,6 +11362,12 @@ Public Class ClsPaginas
                 Case Else : Retorno = 9
             End Select
         End If
+        If Pagina.ToUpper() = ("/Export/RepExportaciones.aspx").ToUpper() Then
+            Select Case Request("Opcion")
+                Case "I" : Retorno = 85
+                Case Else : Retorno = 77
+            End Select
+        End If
         Return Retorno
     End Function
 #End Region