-- mejoras parametros

This commit is contained in:
2023-02-12 21:45:58 -07:00
parent c5e145ffad
commit 6fad08d43a
7 changed files with 13 additions and 12 deletions

View File

@@ -489,9 +489,10 @@ Partial Class Sistemas_CatSesiones
End Sub
Private Sub CargaOCEstatus()
Dim ObjOC As New ClsOC
If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
ObjOC.Dispose()
'Dim ObjOC As New ClsOC
'If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
'ObjOC.Dispose()
GlobalDTOCEstatus(UsuarioActual.CveEmpresa) = Nothing
End Sub
Private Sub CargaOCEstatusUsuarios()