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

- globalDT usuarios

Browse Source
This commit is contained in:
rrene
2020-07-06 15:46:23 -07:00
parent da49d3d1ad
commit 8795620d9c
2 changed files with 16 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -1303,12 +1303,13 @@ Partial Class Sistemas_UsuarioDetalle
End If
If Not TieneError Then
If ObjSubProyectos.GetSubProyectosUsuarios Then
Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
Else
Application("GlobalDTProyectosUsuarios") = Nothing
TieneError = True
End If
GlobalDTProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa, -1) = Nothing
'If ObjSubProyectos.GetSubProyectosUsuarios Then
' Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
'Else
' Application("GlobalDTProyectosUsuarios") = Nothing
' TieneError = True
'End If
End If
'RECARGA GLOBAL BANCOS
@@ -1322,7 +1323,8 @@ 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
GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
'RECARGA GLOBAL EMPRESAS USUARIOS
If ObjUsuarios.GetUsuariosEmpresas(-1) Then