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

- quitar globalFolios

Browse Source
This commit is contained in:
rrene
2020-05-30 14:58:17 -07:00
parent 1ac3b9ccc0
commit 1ffb59e10f
2 changed files with 8 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
App_Code/ClsPaginas.vb
View File

@@ -851,14 +851,7 @@ Public Class ClsPaginas
Application("GlobalDTLeyendasFiscales") = value
End Set
End Property
Property GlobalDTFolios() As DataTable
Get
GlobalDTFolios = DirectCast(Application("GlobalDTFolios"), DataTable)
End Get
Set(value As DataTable)
Application("GlobalDTFolios") = value
End Set
End Property
Property GlobalDTEstatusFactura() As DataTable
Get
GlobalDTEstatusFactura = DirectCast(Application("GlobalDTEstatusFactura"), DataTable)

19
Global.asax
View File

@@ -356,18 +356,13 @@
Dim ObjLeyendasFiscales As New ClsLeyendasFiscales()
If ObjLeyendasFiscales.GetLeyendasFiscales() Then Application("GlobalDTLeyendasFiscales") = ObjLeyendasFiscales.DtResultados Else Application("GlobalDTLeyendasFiscales") = Nothing
ObjLeyendasFiscales.Dispose()
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C A R G A - F O L I O S
Dim ObjFolios As New ClsGralFolios()
If ObjFolios.GetFolios() Then Application("GlobalDTFolios") = ObjFolios.DtResultados Else Application("GlobalDTFolios") = Nothing
ObjFolios.Dispose()
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'F A C T U R A S
ObjLeyendasFiscales.Dispose()
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'F A C T U R A S
Dim ObjEstatusFactura As New ClsEstatusFactura()
If ObjEstatusFactura.GetEstatusFactura() Then Application("GlobalDTEstatusFactura") = ObjEstatusFactura.DtResultados Else Application("GlobalDTEstatusFactura") = Nothing
ObjEstatusFactura.Dispose()