From ffab9fa72506fc92c68c3fdc80db2a4ec90d7c65 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 9 Aug 2024 10:21:34 -0700 Subject: [PATCH] -- --- Global.asax | 69 ++--------------------------------------------------- 1 file changed, 2 insertions(+), 67 deletions(-) diff --git a/Global.asax b/Global.asax index f57c732c7..b51b33bee 100644 --- a/Global.asax +++ b/Global.asax @@ -30,93 +30,28 @@ 'BANDERA PARA VALIDACION DE CFDI Application("GlobalValidarCFDI") = True - '------------------------------------------------------------------------------------------------------------------------- - 'A M O R T I Z A C I O N - C O N T A B L E - - 'GuardaLogAsax(String.Format("Globalasax 5:{0}", DateTime.Now)) - 'Using ObjAC As New ClsAC - ' If ObjAC.GetFuenteFinanciamientoCONAC() Then Application("GlobalDTAC_FuentesFinanciamientoCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamientoCONAC") = Nothing - ' If ObjAC.GetProgramaCONAC() Then Application("GlobalDTAC_ProgramasCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramasCONAC") = Nothing - ' If ObjAC.GetPD_Programas() Then Application("GlobalDTAC_PD_Programas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Programas") = Nothing - ' If ObjAC.GetPD_Estrategias() Then Application("GlobalDTAC_PD_Estrategias") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Estrategias") = Nothing - ' If ObjAC.GetPD_LineasAccion() Then Application("GlobalDTAC_PD_LineasAccion") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_LineasAccion") = Nothing - ' If ObjAC.GetPD_Metas() Then Application("GlobalDTAC_PD_Metas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Metas") = Nothing - ' If ObjAC.GetTipoGasto() Then Application("GlobalDTAC_TipoGasto") = ObjAC.DtResultados Else Application("GlobalDTAC_TipoGasto") = Nothing - ' If ObjAC.GetRubrosIngreso() Then Application("GlobalDTAC_RubrosIngreso") = ObjAC.DtResultados Else Application("GlobalDTAC_RubrosIngreso") = Nothing - ' If ObjAC.GetMatrizID Then Application("GlobalDTAC_MatrizIngresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizIngresos") = Nothing - ' If ObjAC.GetMatrizGD Then Application("GlobalDTAC_MatrizEgresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizEgresos") = Nothing - 'End Using - - 'GuardaLogAsax(String.Format("Globalasax 6:{0}", DateTime.Now)) - 'Using Finan As New ClsFinanzas - - ' If Finan.GetRazonesFinancieras(-1) Then Application("GlobalDTFinan_RazonesFinancieras") = Finan.DtResultados - - 'End Using - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------S I S T E M A ---------------------------------------------------------------------------------- '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'P A R A M E T R O S - - 'Using ObjParametros As New ClsSisParametros - ' If ObjParametros.GetParametros Then Application("GlobalDTParametros") = ObjParametros.DtResultados Else Application("GlobalDTParametros") = Nothing - 'End Using GuardaLogAsax(String.Format("Globalasax 35:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'G L O B A L E S A P L I C A C I Ó N - - 'GuardaLogAsax(String.Format("Globalasax 41:{0}", DateTime.Now)) - BundleConfig.RegistrarBundles(BundleTable.Bundles) BundleTable.EnableOptimizations = True ' 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 = "SigNot..98$", .SendMailSSL = True, .SendMailServer = "adssistemas.mx", .SendMailPuerto = 465} ClsPaginas.EmpresaNotificaciones = EmpresaNotificaciones Dim EmpresaNotificacionesGPS As New Empresa With {.SendMail = "ALERTAS@SIGNALSGPS.com", .SendMailPassword = "STJ180705IV42021ad", .SendMailServer = "mail.signalsgps.com", .SendMailPuerto = 587} ClsPaginas.EmpresaNotificacionesGPS = EmpresaNotificacionesGPS - ''------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - '' R A S T R E O - 'Using ObjGPS As New ClsGPS - ' If ObjGPS.DispositivosGet(-1, -1, -1, -1) Then - ' If ObjGPS.DtResultados.Rows.Count > 0 Then - ' Application("GlobalDTDispositivos") = ObjGPS.DtResultados - ' Else - ' Application("GlobalDTDispositivos") = Nothing - ' End If - ' End If - - ' If ObjGPS.DispositivosUsuariosGet(-1, -1, -1, -1, -1) Then - ' If ObjGPS.DtResultados.Rows.Count > 0 Then - ' Application("GlobalDTDispositivosUsuarios") = ObjGPS.DtResultados - ' Else - ' Application("GlobalDTDispositivosUsuarios") = Nothing - ' End If - ' End If - 'End Using - 'GuardaLogAsax(String.Format("Globalasax 42:{0}", DateTime.Now)) - - - 'If EsProduccion = "1" Then - ' RegisterNotification() - 'End If - '----------------- - - GlobalConfiguration.Configure(AddressOf WebApiConfig.Register) GlobalConfiguration.Configuration.EnsureInitialized() End Sub Sub Application_End(sender As Object, e As EventArgs) - 'If EsProduccion = "1" Then - ' SqlDependency.Stop(ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) - 'End If + ' Code that runs on application shutdown End Sub