- quitar globalFolios

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

View File

@@ -851,14 +851,7 @@ Public Class ClsPaginas
Application("GlobalDTLeyendasFiscales") = value Application("GlobalDTLeyendasFiscales") = value
End Set End Set
End Property 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 Property GlobalDTEstatusFactura() As DataTable
Get Get
GlobalDTEstatusFactura = DirectCast(Application("GlobalDTEstatusFactura"), DataTable) GlobalDTEstatusFactura = DirectCast(Application("GlobalDTEstatusFactura"), DataTable)

View File

@@ -359,11 +359,6 @@
ObjLeyendasFiscales.Dispose() 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 'F A C T U R A S