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

--

Browse Source
This commit is contained in:
rrene
2024-08-09 10:21:34 -07:00
parent 1934f5e58c
commit ffab9fa725
1 changed files with 2 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
Global.asax
View File

@@ -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