AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Correción GlobalDTClavePedimento

Browse Source
This commit is contained in:
MLopez
2023-01-25 23:24:10 -07:00
parent fa688b00b5
commit 9f17320a21
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
App_Code/ClsPaginas.vb
View File

@@ -363,13 +363,19 @@ Public Class ClsPaginas
End Property End Property
#Region "GLOBALES DE SAT COMERCIO EXTERIOR" #Region "GLOBALES DE SAT COMERCIO EXTERIOR"
Public Shared Property GlobalDTClavePedimento() As DataTable
Property GlobalDTClavePedimento() As DataTable
Get 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 End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTClavePedimento") = value Dim AppNombre As String = "GlobalDTClavePedimento"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property