From b6b0100989cfb37bb23d12d02248133677abc238 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 14 Aug 2024 06:49:36 -0700 Subject: [PATCH] =?UTF-8?q?--=20log=20para=20la=20asignaci=C3=B3n=20de=20g?= =?UTF-8?q?lobaldtsuproyectousuarios?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 5bc558e69..04baf5021 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1622,6 +1622,11 @@ Public Class ClsPaginas Set(ByVal value As DataTable) Dim AppNombre As String = $"GlobalDTSubProyectosUsuarios-{CveEmpresa}" 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 Property Public Shared Property GlobalDTProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, CveEstatus As Integer) As DataTable