From c6e9bbd4cdb3a4e267a171f09620a0f70fcbe39f Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 15 May 2024 11:43:49 -0700 Subject: [PATCH] -- al aplicar cambio sobre una empresa, y tenga multiempresa --- Sistemas/UsuarioDetalle.aspx.vb | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index becfebe4b..a67afdb37 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -1343,8 +1343,9 @@ Partial Class Sistemas_UsuarioDetalle Private Sub RecargaGlobales(TieneError As Boolean, ObjSubProyectos As ClsSubProyectos, ObjBancos As ClsBancos, ObjOC As ClsOC, ObjUsuarios As ClsSisUsuarios) 'RECARGA GLOBAL SUBPROYECTOS + Dim tCveEmpresa As Integer = DdlEmpresaAsignaciones.SelectedValue.ToEntero If Not TieneError Then - GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa) = Nothing + GlobalDTSubProyectosUsuarios(-1, -1, tCveEmpresa) = Nothing 'If ObjSubProyectos.GetSubProyectosUsuarios Then ' Application("GlobalDTSubProyectosUsuarios") = ObjSubProyectos.DtResultados @@ -1355,7 +1356,7 @@ Partial Class Sistemas_UsuarioDetalle End If If Not TieneError Then - GlobalDTProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa, -1) = Nothing + GlobalDTProyectosUsuarios(-1, -1, tCveEmpresa, -1) = Nothing 'If ObjSubProyectos.GetSubProyectosUsuarios Then ' Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) 'Else @@ -1366,23 +1367,23 @@ Partial Class Sistemas_UsuarioDetalle 'RECARGA GLOBAL BANCOS 'If ObjBancos.GetBancosCuentasUsuarios(-1) Then - GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing 'ObjBancos.DtResultados + GlobalDTBancosCuentas(-1, CveEmpresa:=tCveEmpresa) = Nothing 'ObjBancos.DtResultados ' End If 'RECARGA GLOBAL ESTATUS - GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa) = Nothing + GlobalDTOCEstatusUsuarios(tCveEmpresa) = 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, UsuarioActual.CveEmpresa) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing - GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing + GlobalDTAlmacenUsuarios(-1, tCveEmpresa) = Nothing 'RECARGA GLOBAL EMPRESAS USUARIOS - GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing - GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing - GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing + GlobalDTAlmacenUsuarios(-1, tCveEmpresa) = Nothing + GlobalDTUsuarioResponsable(tCveEmpresa) = Nothing + GlobalDTUsuarios(CveEmpresa:=tCveEmpresa) = Nothing GlobalDTUsuarios(CveEmpresa:=-1) = Nothing