From eaffa36d61a96dab8b0dca377a19d9a2fb3c9872 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 3 Jan 2022 20:30:58 -0700 Subject: [PATCH] GPS. Limitacion de fecha en trayectos --- GPS/Trayectos.aspx.vb | 158 ++++++++++++++++++++++-------------------- 1 file changed, 81 insertions(+), 77 deletions(-) diff --git a/GPS/Trayectos.aspx.vb b/GPS/Trayectos.aspx.vb index bc8ed7985..611d4da95 100644 --- a/GPS/Trayectos.aspx.vb +++ b/GPS/Trayectos.aspx.vb @@ -8,11 +8,11 @@ Imports Extensiones Imports Microsoft.Reporting.WebForms Imports Newtonsoft.Json.Linq Imports System.Linq -Imports System.Net.Http - +Imports System.Net.Http + Partial Class GPS_Trayectos - Inherits ClsPaginas - + Inherits ClsPaginas + #Region "P R O P I E D A D E S" Private Property DtGeocercasAgregar As DataTable Get @@ -37,12 +37,13 @@ Partial Class GPS_Trayectos Set(value As DataTable) ViewState("DtPosiciones") = value End Set - End Property + End Property #End Region - + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True + txtFechaI.Text = Now.AddMonths(-1).ToString("dd/MM/yyyy") CargaDatos() TimmerRefresh.Enabled = ChkTimmer.Checked End If @@ -58,22 +59,22 @@ Partial Class GPS_Trayectos Public Sub CargaDispositivos() Dim DtDispositivos As DataTable = Nothing - Using ObjGPS As New ClsGPS - If ObjGPS.DispositivosUsuariosGet(-1, 1, UsuarioActual.CveCliente, CveUsuario:=UsuarioActual.CveUsuario, ConcatenarDispuestos:=True) Then - DtDispositivos = ObjGPS.DtResultados.Copy - End If + Using ObjGPS As New ClsGPS + If ObjGPS.DispositivosUsuariosGet(-1, 1, UsuarioActual.CveCliente, CveUsuario:=UsuarioActual.CveUsuario, ConcatenarDispuestos:=True) Then + DtDispositivos = ObjGPS.DtResultados.Copy + End If End Using - DdlDispositivo.DataSource = DtDispositivos 'GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario) + DdlDispositivo.DataSource = DtDispositivos 'GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario) DdlDispositivo.DataBind() DdlDispositivo.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlDispositivoNuevo.DataSource = DtDispositivos 'GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario) + DdlDispositivoNuevo.DataSource = DtDispositivos 'GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario) DdlDispositivoNuevo.DataBind() DdlDispositivoNuevo.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlDispositivoFiltro.DataSource = DtDispositivos 'GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario) + DdlDispositivoFiltro.DataSource = DtDispositivos 'GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario) DdlDispositivoFiltro.DataBind() DdlDispositivoFiltro.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -95,13 +96,16 @@ Partial Class GPS_Trayectos Dim FechaI As String = If(IsDate(txtFechaI.Text), txtFechaI.Text, "-1") Dim FechaF As String = If(IsDate(txtFechaF.Text), txtFechaF.Text, "-1") + Dim CveEstatus As Integer = -1 + If ChkActivas.Checked AndAlso DdlEstatusTrayecto.SelectedValue.ToEntero() <= 0 Then + CveEstatus = -2 + Else + CveEstatus = DdlEstatusTrayecto.SelectedValue.ToEntero() + End If + Dim ObjGPS As New ClsGPS - If ObjGPS.GetTrayectos(-1, DdlDispositivoFiltro.SelectedValue.ToEntero(), UsuarioActual.CveCliente, DdlEstatusTrayecto.SelectedValue.ToEntero(), FechaI, FechaF) Then - If ChkActivas.Checked Then - GvBarra.DataSource = ObjGPS.DtResultados.FiltraParametros($"EsFin = False") - Else - GvBarra.DataSource = ObjGPS.DtResultados - End If + If ObjGPS.GetTrayectos(-1, DdlDispositivoFiltro.SelectedValue.ToEntero(), UsuarioActual.CveCliente, CveEstatus, FechaI, FechaF) Then + GvBarra.DataSource = ObjGPS.DtResultados End If ObjGPS.Dispose() GvBarra.DataBind() @@ -193,8 +197,8 @@ Partial Class GPS_Trayectos ObjGPS.IniciaTransacSQL() Try - Dim CveTrayecto As Integer = ObjGPS.AddTrayecto(Nombre, DateTime.Now, "", CveDispositivo, UsuarioActual.CveCliente, EnviarNotificacion:=ChkNotificacion.Checked, - CorreosNotificacion:=TxtCorreoNot.Text, Intervalo:=If(ChkNotificacion.Checked, DdlIntervalo.SelectedValue.ToEntero(), 0), + Dim CveTrayecto As Integer = ObjGPS.AddTrayecto(Nombre, DateTime.Now, "", CveDispositivo, UsuarioActual.CveCliente, EnviarNotificacion:=ChkNotificacion.Checked, + CorreosNotificacion:=TxtCorreoNot.Text, Intervalo:=If(ChkNotificacion.Checked, DdlIntervalo.SelectedValue.ToEntero(), 0), EnviarLiga:=ChkEnviarLiga.Checked) If CveTrayecto > 0 Then @@ -245,8 +249,8 @@ Partial Class GPS_Trayectos Dim Nombre As String = TxtNombreNuevo.Text Dim CveDispositivo As Integer = DdlDispositivoNuevo.SelectedValue.ToEntero If CveDispositivo > 0 Then - Dim CveTrayectoNuevo As Integer = ObjGPS.AddTrayecto(Nombre, DateTime.Now, "", CveDispositivo, UsuarioActual.CveCliente, EnviarNotificacion:=ChkNotificarApartirDe.Checked, - CorreosNotificacion:=TxtCorreNotApartidDe.Text, Intervalo:=If(ChkNotificarApartirDe.Checked, DdlIntervaloAPartirDe.SelectedValue.ToEntero(), 0), + Dim CveTrayectoNuevo As Integer = ObjGPS.AddTrayecto(Nombre, DateTime.Now, "", CveDispositivo, UsuarioActual.CveCliente, EnviarNotificacion:=ChkNotificarApartirDe.Checked, + CorreosNotificacion:=TxtCorreNotApartidDe.Text, Intervalo:=If(ChkNotificarApartirDe.Checked, DdlIntervaloAPartirDe.SelectedValue.ToEntero(), 0), EnviarLiga:=ChkEnviarLigaApartirDe.Checked) If CveTrayectoNuevo > 0 Then For Each Row As GridViewRow In GvEstatusNuevo.Rows @@ -288,12 +292,12 @@ Partial Class GPS_Trayectos Private Sub LimpiaCampos() TxtNombre.Text = "" DdlDispositivo.SelectedIndex = 0 - End Sub - + End Sub + #Region "C O N S U L T A " Protected Sub LnkConsultar_Click(sender As Object, e As EventArgs) CargaTrayectos() - End Sub + End Sub #End Region Protected Sub GvBarra_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then @@ -306,8 +310,8 @@ Partial Class GPS_Trayectos ElseIf e.Row.DBCampo("EsInicio") = "False" AndAlso e.Row.DBCampo("EsFin") = "False" Then e.Row.FCLabel("LblEstatus").CssClass = "badge badge-secondary" End If - If CBool(e.Row.DBCampo("EnviarNotificacion")) Then - e.Row.FCLinkButton("LnkEnviar").Visible = True + If CBool(e.Row.DBCampo("EnviarNotificacion")) Then + e.Row.FCLinkButton("LnkEnviar").Visible = True End If End If End Sub @@ -417,53 +421,53 @@ Partial Class GPS_Trayectos ObjGPS.Dispose() End If Return Retorno - End Function - - Protected Sub ChkNotificacion_CheckedChanged(sender As Object, e As EventArgs) - DivNotificaciones.Visible = ChkNotificacion.Checked - UpAgregar.Update() - End Sub - Protected Sub ChkNotificacionApartirDe_CheckedChanged(sender As Object, e As EventArgs) - DivNotificarApartirDe.Visible = ChkNotificarApartirDe.Checked - UpDdlTrayecto.Update() - End Sub - Protected Sub LnkEnviar_Click(sender As Object, e As EventArgs) - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - - Dim CveTrayecto As Integer = GvRow.DataKey("CveTrayecto").ToEntero() - If CveTrayecto > 0 Then - Dim Url = New Uri(String.Format("{0}/ashx/SIGGPS.ashx?metodo=EjecutaTrayectos&CveTrayecto={1}", "http://gps.signalsgps.com", CveTrayecto)) - Dim Retorno As String = "{}" - Try - Using httpClient = New HttpClient() - httpClient.Timeout = New TimeSpan(0, 0, 15) - Using request = New HttpRequestMessage(HttpMethod.Get, Url) - Dim response = httpClient.SendAsync(request).Result - If response.StatusCode = Net.HttpStatusCode.OK Then - Retorno = response.Content.ReadAsStringAsync().Result - End If - End Using - End Using - - Dim Resp = JObject.Parse(Retorno) - If CBool(Resp("EnvioCorreo").ToString()) Then - Alert(Resp("Mensaje").ToString(), TipoMensaje.MsgInformacion) - Else - Alert(Resp("Mensaje").ToString(), TipoMensaje.MsgError) - End If - Catch ex As Exception - OnError("Ocurrió un error al enviar el correo", ex) - End Try - Else - Alert("No se pudo identificar el trayecto", TipoMensaje.MsgError) - End If - End Sub - Protected Sub TimmerRefresh_Tick(sender As Object, e As EventArgs) - CargaTrayectos() - End Sub - Protected Sub ChkTimmer_CheckedChanged(sender As Object, e As EventArgs) - TimmerRefresh.Enabled = ChkTimmer.Checked - - UPGV.Update() - End Sub + End Function + + Protected Sub ChkNotificacion_CheckedChanged(sender As Object, e As EventArgs) + DivNotificaciones.Visible = ChkNotificacion.Checked + UpAgregar.Update() + End Sub + Protected Sub ChkNotificacionApartirDe_CheckedChanged(sender As Object, e As EventArgs) + DivNotificarApartirDe.Visible = ChkNotificarApartirDe.Checked + UpDdlTrayecto.Update() + End Sub + Protected Sub LnkEnviar_Click(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + + Dim CveTrayecto As Integer = GvRow.DataKey("CveTrayecto").ToEntero() + If CveTrayecto > 0 Then + Dim Url = New Uri(String.Format("{0}/ashx/SIGGPS.ashx?metodo=EjecutaTrayectos&CveTrayecto={1}", "http://gps.signalsgps.com", CveTrayecto)) + Dim Retorno As String = "{}" + Try + Using httpClient = New HttpClient() + httpClient.Timeout = New TimeSpan(0, 0, 15) + Using request = New HttpRequestMessage(HttpMethod.Get, Url) + Dim response = httpClient.SendAsync(request).Result + If response.StatusCode = Net.HttpStatusCode.OK Then + Retorno = response.Content.ReadAsStringAsync().Result + End If + End Using + End Using + + Dim Resp = JObject.Parse(Retorno) + If CBool(Resp("EnvioCorreo").ToString()) Then + Alert(Resp("Mensaje").ToString(), TipoMensaje.MsgInformacion) + Else + Alert(Resp("Mensaje").ToString(), TipoMensaje.MsgError) + End If + Catch ex As Exception + OnError("Ocurrió un error al enviar el correo", ex) + End Try + Else + Alert("No se pudo identificar el trayecto", TipoMensaje.MsgError) + End If + End Sub + Protected Sub TimmerRefresh_Tick(sender As Object, e As EventArgs) + CargaTrayectos() + End Sub + Protected Sub ChkTimmer_CheckedChanged(sender As Object, e As EventArgs) + TimmerRefresh.Enabled = ChkTimmer.Checked + + UPGV.Update() + End Sub End Class