From 1b5b3cd0061f072499ad877088b143fee8225a0c Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 7 Jul 2020 08:34:50 -0700 Subject: [PATCH 1/2] Correcion GlobalDTAlmacenUsuarios nothing --- Sistemas/UsuarioDetalle.aspx.vb | 16 ++++++++-------- vwd.webinfo | 2 ++ 2 files changed, 10 insertions(+), 8 deletions(-) diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 540ffbe91..78ec3051c 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -1319,14 +1319,14 @@ Partial Class Sistemas_UsuarioDetalle 'RECARGA GLOBAL ESTATUS If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing - If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing - - - 'RECARGA GLOBAL ALMACEN - 'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing - GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing - - 'RECARGA GLOBAL EMPRESAS USUARIOS + If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing + + + 'RECARGA GLOBAL ALMACEN + 'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing + + + 'RECARGA GLOBAL EMPRESAS USUARIOS If ObjUsuarios.GetUsuariosEmpresas(-1) Then Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") diff --git a/vwd.webinfo b/vwd.webinfo index 3874691e4..65b4102ee 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -78,6 +78,8 @@ + + From d97e24906db142eb8ecf363c6f6b2a468cb33375 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 7 Jul 2020 08:39:46 -0700 Subject: [PATCH 2/2] GlobalDTAlmacenUsuarios Regarga --- Sistemas/UsuarioDetalle.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 78ec3051c..3c769756c 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -1323,7 +1323,7 @@ Partial Class Sistemas_UsuarioDetalle 'RECARGA GLOBAL ALMACEN - 'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing + If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing 'RECARGA GLOBAL EMPRESAS USUARIOS