-- log para la asignación de globaldtsuproyectousuarios

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