AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- cambios

Browse Source
This commit is contained in:
rrene
2023-02-23 23:40:52 -07:00
parent 96d540b73f
commit 0510cc5c67
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsPaginas.vb
View File

@@ -2466,7 +2466,7 @@ Public Class ClsPaginas
End Property End Property
#End Region #End Region
#Region "***********************************************************************DT ACTIVOS FIJOS**********************************************************************************" #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 Get
Dim AppNombre As String = $"GlobalDTActivoFijo-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTActivoFijo-{CveEmpresa}"
If HttpContext.Current.Application(AppNombre) Is Nothing Then If HttpContext.Current.Application(AppNombre) Is Nothing Then
@@ -2483,7 +2483,7 @@ Public Class ClsPaginas
End Get End Get
Set(ByVal value As DataTable) Set(ByVal value As DataTable)
Dim AppNombre As String = $"GlobalDTActivoFijo-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTActivoFijo-{CveEmpresa}"
Application(AppNombre) = value HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Public Shared Property GlobalDTEstadoActivoFijo() As DataTable Public Shared Property GlobalDTEstadoActivoFijo() As DataTable

8
Global.asax
View File

@@ -185,7 +185,7 @@
BundleConfig.RegistrarBundles(BundleTable.Bundles) BundleConfig.RegistrarBundles(BundleTable.Bundles)
BundleTable.EnableOptimizations = True 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} Dim EmpresaNotificaciones As New Empresa With {.SendMail = "signotificaciones@adssistemas.mx", .SendMailPassword = "sig123987", .SendMailServer = "mail.adssistemas.mx", .SendMailPuerto = 587}
ClsPaginas.EmpresaNotificaciones = EmpresaNotificaciones ClsPaginas.EmpresaNotificaciones = EmpresaNotificaciones
@@ -228,9 +228,9 @@
End Sub End Sub
Sub Application_End(sender As Object, e As EventArgs) Sub Application_End(sender As Object, e As EventArgs)
If EsProduccion = "1" Then 'If EsProduccion = "1" Then
SqlDependency.Stop(ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) ' SqlDependency.Stop(ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
End If 'End If
' Code that runs on application shutdown ' Code that runs on application shutdown
End Sub End Sub