From 9f17320a21e1fc026a825e5f960384cf98f902bd Mon Sep 17 00:00:00 2001 From: MLopez Date: Wed, 25 Jan 2023 23:24:10 -0700 Subject: [PATCH] =?UTF-8?q?Correci=C3=B3n=20GlobalDTClavePedimento?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 4fe732926..8c9fc0de4 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -363,13 +363,19 @@ Public Class ClsPaginas End Property #Region "GLOBALES DE SAT COMERCIO EXTERIOR" - - Property GlobalDTClavePedimento() As DataTable + Public Shared Property GlobalDTClavePedimento() As DataTable Get - GlobalDTClavePedimento = DirectCast(Application("GlobalDTClavePedimento"), DataTable) + Dim AppNombre As String = "GlobalDTClavePedimento" + If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then + Dim ObjGrales As New ClsGenerales + If ObjGrales.GetSATClavePedimento() Then HttpContext.Current.Application(AppNombre) = ObjGrales.DtResultados + ObjGrales.Dispose() + End If + GlobalDTClavePedimento = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) End Get Set(value As DataTable) - Application("GlobalDTClavePedimento") = value + Dim AppNombre As String = "GlobalDTClavePedimento" + HttpContext.Current.Application(AppNombre) = value End Set End Property