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

21
App_Code/ClsPaginas.vb
View File

@@ -1013,10 +1013,10 @@ Public Class ClsPaginas
End Property End Property
Property GlobalDTProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, CveEstatus As Integer) As DataTable Property GlobalDTProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, CveEstatus As Integer) As DataTable
Get Get
Dim AppNombre As String = String.Format("GlobalDTProyectosUsuarios-{0}", CveEmpresa)
If Application("GlobalDTProyectosUsuarios") Is Nothing AndAlso DirectCast(Application("GlobalDTProyectosUsuarios"), DataTable).Rows.Count = 0 Then If Application("GlobalDTProyectosUsuarios") Is Nothing Then
Dim ObjSubProyectos As New ClsSubProyectos() Dim ObjSubProyectos As New ClsSubProyectos()
If ObjSubProyectos.GetSubProyectosUsuarios Then Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError) If ObjSubProyectos.GetSubProyectosUsuarios Then Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError)
ObjSubProyectos.Dispose() ObjSubProyectos.Dispose()
GuardaLog("Se Cargo GlobalDTProyectosUsuarios") GuardaLog("Se Cargo GlobalDTProyectosUsuarios")
End If End If
@@ -1028,25 +1028,18 @@ Public Class ClsPaginas
If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario) If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario)
If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatusProyecto = {0}", CveEstatus) If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatusProyecto = {0}", CveEstatus)
Dim Dv As New DataView(DirectCast(Application("GlobalDTProyectosUsuarios"), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
GlobalDTProyectosUsuarios = Dv.ToTable GlobalDTProyectosUsuarios = Dv.ToTable
Dv.Dispose() Dv.Dispose()
Else Else
GlobalDTProyectosUsuarios = DirectCast(Application("GlobalDTProyectosUsuarios"), DataTable) GlobalDTProyectosUsuarios = DirectCast(Application(AppNombre), DataTable)
End If End If
End Get End Get
Set(ByVal value As DataTable) Set(ByVal value As DataTable)
If value Is Nothing OrElse value.Rows.Count = 0 Then Dim AppNombre As String = String.Format("GlobalDTSubProyectosUsuarios-{0}", CveEmpresa)
Dim msg As String = "aqui no se carga proyectos" Application(AppNombre) = value
If Request IsNot Nothing Then
msg = msg & Request.ServerVariables("URL")
End If
msg.GuardaLog()
End If
Application("GlobalDTProyectosUsuarios") = value
End Set End Set
End Property End Property
Property GlobalDTPrecioListas(CveEmpresa As Integer) As DataTable Property GlobalDTPrecioListas(CveEmpresa As Integer) As DataTable

16
Sistemas/UsuarioDetalle.aspx.vb
View File

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