-- log para la asignación de globaldtsuproyectousuarios

This commit is contained in:
2024-08-14 06:49:36 -07:00
parent 173b6e9f32
commit b6b0100989

View File

@@ -1622,6 +1622,11 @@ Public Class ClsPaginas
Set(ByVal value As DataTable) Set(ByVal value As DataTable)
Dim AppNombre As String = $"GlobalDTSubProyectosUsuarios-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTSubProyectosUsuarios-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value HttpContext.Current.Application(AppNombre) = value
If value Is Nothing Then
Dim a As String = "Limpieza de :" & AppNombre & " - CveUsuario: " & CveUsuario & " - CveProyecto: " & CveProyecto & " - CveSubProyecto: " & CveSubProyecto
a.GuardaLog()
End If
End Set End Set
End Property End Property
Public Shared Property GlobalDTProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, CveEstatus As Integer) As DataTable Public Shared Property GlobalDTProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, CveEstatus As Integer) As DataTable