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