- limpieza de código comentado.
This commit is contained in:
138
Global.asax
138
Global.asax
@@ -99,54 +99,6 @@
|
||||
End Using
|
||||
|
||||
GuardaLogAsax(String.Format("Globalasax 9:{0}", DateTime.Now))
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'P R O S P E C T O S
|
||||
|
||||
'GuardaLogAsax(String.Format("Globalasax 10:{0}", DateTime.Now))
|
||||
'Using ObjProspectos As New ClsProspectos
|
||||
'If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing
|
||||
'If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificacionesCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificacionesCaracteristicas") = Nothing
|
||||
'If ObjProspectos.GetCoordinadores(-1) Then Application("GlobalDTProspectosCoordinadores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCoordinadores") = Nothing
|
||||
'If ObjProspectos.GetSupervisores(-1) Then Application("GlobalDTProspectosSupervisores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSupervisores") = Nothing
|
||||
'If ObjProspectos.GetProspectosSolicitudes(-1, -1, -1, -1, -1) Then Application("GlobalDTProspectosSolicitudes") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudes") = Nothing
|
||||
'If ObjProspectos.GetSolicitudTipo Then Application("GlobalDTProspectosSolicitudesTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesTipos") = Nothing
|
||||
'If ObjProspectos.GetApoyoTipo Then Application("GlobalDTProspectosApoyosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyosTipos") = Nothing
|
||||
'If ObjProspectos.GetProspectoApoyo Then Application("GlobalDTProspectosApoyos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyos") = Nothing
|
||||
'If ObjProspectos.GetSolicitudEstatus Then Application("GlobalDTProspectosSolicitudesEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesEstatus") = Nothing
|
||||
'If ObjProspectos.GetEventosTipo(-1) Then Application("GlobalDTProspectosEventosTipo") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEventosTipo") = Nothing
|
||||
'If ObjProspectos.GetProspectosEventos(-1, -1) Then Application("GlobalDTProspectosEvento") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEvento") = Nothing
|
||||
'If ObjProspectos.GetProspectosTipos() Then Application("GlobalDTProspectosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTipos") = Nothing
|
||||
'If ObjProspectos.GetProspectosEstatus() Then Application("GlobalDTProspectosEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEstatus") = Nothing
|
||||
'If ObjProspectos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTProspectosCaracteristicasClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasClasificaciones") = Nothing
|
||||
'If ObjProspectos.GetTiposCaracteristicas(-1) Then Application("GlobalDTProspectosTiposCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTiposCaracteristicas") = Nothing
|
||||
'If ObjProspectos.GetCaracteristicas(-1) Then Application("GlobalDTProspectosCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicas") = Nothing
|
||||
'If ObjProspectos.GetCaracteristicasOpciones(-1, -1) Then Application("GlobalDTProspectosCaracteristicasOpciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasOpciones") = Nothing
|
||||
'If ObjProspectos.GetEncuestas(-1, -1) Then Application("GlobalDTProspectosEncuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestas") = Nothing
|
||||
'If ObjProspectos.GetPreguntas(-1, -1, -1) Then Application("GlobalDTProspectosEncuestasPreguntas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasPreguntas") = Nothing
|
||||
'If ObjProspectos.GetRespuestas(-1, -1) Then Application("GlobalDTProspectosEncuestasRespuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasRespuestas") = Nothing
|
||||
'End Using
|
||||
|
||||
'GuardaLogAsax(String.Format("Globalasax 11:{0}", DateTime.Now))
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'C L A S I F I C A C I O N E S
|
||||
|
||||
'Using ObjClasificaciones As New ClsClasificaciones()
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'F A M I L I A S
|
||||
'If ObjClasificaciones.GetClasificaciones(Tipo:=2) Then Application("GlobalDTSubFamilias") = ObjClasificaciones.DtResultados Else Application("GlobalDTSubFamilias") = Nothing
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'P R E S U P U E S T O
|
||||
'If ObjClasificaciones.GetClasificaciones(Tipo:=3) Then Application("GlobalDTClasificacionesPresupuestos") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificacionesPresupuestos") = Nothing
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'C L A S I F I C A C I O N E S 2
|
||||
'If ObjClasificaciones.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificaciones2") = Nothing
|
||||
'End Using
|
||||
'GuardaLogAsax(String.Format("Globalasax 20:{0}", DateTime.Now))
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'------------------------------------------------------------------------------S I S T E M A ----------------------------------------------------------------------------------
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
@@ -158,14 +110,6 @@
|
||||
|
||||
GuardaLogAsax(String.Format("Globalasax 35:{0}", DateTime.Now))
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'C O M B U S T I B L E S
|
||||
|
||||
'Using ObjFlotillas As New ClsFlotillas
|
||||
'If ObjFlotillas.GetCombustibles() Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing
|
||||
'If ObjFlotillas.GetCombustiblesTipos(-1) Then Application("GlobalDTCombustiblesTipos") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustiblesTipos") = Nothing
|
||||
'End Using
|
||||
'GuardaLogAsax(String.Format("Globalasax 39:{0}", DateTime.Now))
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
@@ -194,26 +138,26 @@
|
||||
|
||||
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
' 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
|
||||
''------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'' 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 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
|
||||
@@ -277,48 +221,6 @@
|
||||
'sessionData.Remove(HttpContext.Current.Session.SessionID)
|
||||
'Application("s") = sessionData
|
||||
End Sub
|
||||
|
||||
#Region "S Q L D E P E N D E N C Y"
|
||||
|
||||
'Public Sub RegisterNotification()
|
||||
' Try
|
||||
' 'Get the connection string from the Web.Config file. Make sure that the key exists and it is the connection string for the Notification Database and the NotificationList Table that we created
|
||||
' Dim connectionString As String = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
|
||||
' 'We have selected the entire table as the command, so SQL Server executes this script and sees if there is a change in the result, raise the event
|
||||
' Dim commandText As String = "SELECT [FechaNotificacion] FROM dbo.Sis_NotificacionesActualizaciones"
|
||||
' 'Start the SQL Dependency
|
||||
' SqlDependency.Start(connectionString)
|
||||
' Using connection As New SqlConnection(connectionString)
|
||||
' Using command As New SqlCommand(commandText, connection)
|
||||
' connection.Open()
|
||||
' Dim sqlDependency = New SqlDependency(command)
|
||||
' AddHandler sqlDependency.OnChange, AddressOf sqlDependency_OnChange
|
||||
' ' NOTE: You have to execute the command, or the notification will never fire.
|
||||
' Using reader As SqlDataReader = command.ExecuteReader()
|
||||
' End Using
|
||||
' End Using
|
||||
' End Using
|
||||
' Catch ex As Exception
|
||||
|
||||
' End Try
|
||||
|
||||
'End Sub
|
||||
|
||||
'Private Sub sqlDependency_OnChange(sender As Object, e As SqlNotificationEventArgs)
|
||||
' If e.Info = SqlNotificationInfo.Update Then
|
||||
' Try
|
||||
' Dim ObjNotificaciones As New ClsSisNotificaciones
|
||||
' ObjNotificaciones.ObtenerNotificaciones()
|
||||
' ObjNotificaciones.Dispose()
|
||||
' 'System.Threading.Thread.Sleep(5000)
|
||||
' RegisterNotification()
|
||||
' Catch ex As Exception
|
||||
|
||||
' End Try
|
||||
' End If
|
||||
' 'Call the RegisterNotification method again
|
||||
'End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
</script>
|
||||
|
||||
Reference in New Issue
Block a user