diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 70773458b..806e4381f 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -2466,7 +2466,7 @@ Public Class ClsPaginas End Property #End Region #Region "***********************************************************************DT ACTIVOS FIJOS**********************************************************************************" - Property GlobalDTActivoFijos(CveEmpresa As Integer, Optional CveSubTipoActivoFijo As Integer = -1, Optional CveActivoFijo As Integer = -1) As DataTable + Public Shared Property GlobalDTActivoFijos(CveEmpresa As Integer, Optional CveSubTipoActivoFijo As Integer = -1, Optional CveActivoFijo As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTActivoFijo-{CveEmpresa}" If HttpContext.Current.Application(AppNombre) Is Nothing Then @@ -2483,7 +2483,7 @@ Public Class ClsPaginas End Get Set(ByVal value As DataTable) Dim AppNombre As String = $"GlobalDTActivoFijo-{CveEmpresa}" - Application(AppNombre) = value + HttpContext.Current.Application(AppNombre) = value End Set End Property Public Shared Property GlobalDTEstadoActivoFijo() As DataTable diff --git a/Global.asax b/Global.asax index c9642f892..9e47534f9 100644 --- a/Global.asax +++ b/Global.asax @@ -185,7 +185,7 @@ BundleConfig.RegistrarBundles(BundleTable.Bundles) BundleTable.EnableOptimizations = True - System.Web.UI.ValidationSettings.UnobtrusiveValidationMode = UnobtrusiveValidationMode.None + ' System.Web.UI.ValidationSettings.UnobtrusiveValidationMode = UnobtrusiveValidationMode.None Dim EmpresaNotificaciones As New Empresa With {.SendMail = "signotificaciones@adssistemas.mx", .SendMailPassword = "sig123987", .SendMailServer = "mail.adssistemas.mx", .SendMailPuerto = 587} ClsPaginas.EmpresaNotificaciones = EmpresaNotificaciones @@ -228,9 +228,9 @@ End Sub Sub Application_End(sender As Object, e As EventArgs) - If EsProduccion = "1" Then - SqlDependency.Stop(ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) - End If + 'If EsProduccion = "1" Then + ' SqlDependency.Stop(ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) + 'End If ' Code that runs on application shutdown End Sub