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

--Globalalmacenusuarios

Browse Source
This commit is contained in:
rrene
2020-07-14 10:14:16 -07:00
parent 6ecd8e798c
commit 18d4924998
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Sistemas/CatSesiones.aspx.vb
View File

@@ -153,9 +153,10 @@ Partial Class Sistemas_CatSesiones
Private Sub CargaAlmacenUsuarios() Private Sub CargaAlmacenUsuarios()
Dim Obj As New ClsSisUsuarios GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
If Obj.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = Obj.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing 'Dim Obj As New ClsSisUsuarios
Obj.Dispose() 'If Obj.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = Obj.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
'Obj.Dispose()
End Sub End Sub
Private Sub CargaClientes() Private Sub CargaClientes()
@@ -268,7 +269,8 @@ Partial Class Sistemas_CatSesiones
Else Else
Application("GlobalDTUsuarios") = Nothing Application("GlobalDTUsuarios") = Nothing
End If End If
If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
ObjUsuarios.Dispose() ObjUsuarios.Dispose()
'Fin Carga Usuarios 'Fin Carga Usuarios
End Sub End Sub