Correción GlobalDTClavePedimento

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