Option Strict On
Option Explicit On

Imports System.Data
Imports System.IO
Imports System.Net
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Imports Newtonsoft.Json.Linq

Partial Class GPS_Rastreo2
    Inherits ClsPaginas
#Region "P R O P I E D A D E S"

    Private Property TrazarLineaContinuo As Boolean
        Get
            Return CType(ViewState("TrazarLineaContinuo"), Boolean)
        End Get
        Set(value As Boolean)
            ViewState("TrazarLineaContinuo") = value
        End Set
    End Property
    Private Property JSCargaSeleccion As String
        Get
            Return CType(ViewState("JSCargaSeleccion"), String)
        End Get
        Set(value As String)
            ViewState("JSCargaSeleccion") = value
        End Set
    End Property
    Private Property Opcion As String
        Get
            Return CType(ViewState("Opcion"), String)
        End Get
        Set(value As String)
            ViewState("Opcion") = value
        End Set
    End Property
    Private Property Filtrado As Boolean
        Get
            Return CType(ViewState("Filtrado"), Boolean)
        End Get
        Set(value As Boolean)
            ViewState("Filtrado") = value
        End Set
    End Property
    Public Property DtDetalle() As Data.DataTable
        Get
            Return DirectCast(ViewState("DtDetalle"), DataTable)
        End Get
        Set(ByVal value As Data.DataTable)
            ViewState("DtDetalle") = value
        End Set
    End Property
    Public Property Offset() As Integer
        Get
            Return DirectCast(IfNull(ViewState("Offset"), 0), Integer)
        End Get
        Set(ByVal value As Integer)
            ViewState("Offset") = value
        End Set
    End Property
    Public ReadOnly Property FechaCliente() As DateTime
        Get
            Return DateTime.UtcNow.AddMinutes(10).AddMinutes(Offset)
        End Get
    End Property
    Private Property DtDatos As DataTable
        Get
            Return CType(ViewState("DtDatos"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtDatos") = value
        End Set
    End Property

    Private Property FechaI As DateTime
        Get
            Return CType(ViewState("FechaI"), DateTime)
        End Get
        Set(value As DateTime)
            ViewState("FechaI") = value
        End Set
    End Property

    Private Property FechaF As DateTime
        Get
            Return CType(ViewState("FechaF"), DateTime)
        End Get
        Set(value As DateTime)
            ViewState("FechaF") = value
        End Set
    End Property


    Private Property DtCoordenadasContinuas As DataTable
        Get
            Return CType(ViewState("DtCoordenadasContinuas"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtCoordenadasContinuas") = value
        End Set
    End Property
    Private Property DtPosiciones As DataTable
        Get
            Return CType(ViewState("DtPosiciones"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtPosiciones") = value
        End Set
    End Property
    Private Property DtPosicionesW As DataTable
        Get
            Return CType(ViewState("DtPosicionesW"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtPosicionesW") = value
        End Set
    End Property
#End Region
    Private Property IndiceGV As Integer
        Get
            Return CType(ViewState("IndiceGV"), Integer)
        End Get
        Set(value As Integer)
            ViewState("IndiceGV") = value
        End Set
    End Property

    'Private ReadOnly Property PaginaMaestra As String
    '    Get
    '        Return "~/Masters/SiteGPS2.master"
    '    End Get
    'End Property

    'Protected Overrides Sub Page_PreInit(sender As Object, e As EventArgs) Handles Me.PreInit
    '    Me.MasterPageFile = PaginaMaestra
    'End Sub
    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
            CargaDispositivos()
            CargaEventos()
            CargaGrupos()
            CreaTmpDTDetalle()
            CargaZonasHorarias()
            IndiceGV = 0
        End If
    End Sub
    Private Sub CargaZonasHorarias()
        Using ObjGPS As New ClsGPS
            Dim CveZonaHoraria As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveZonaHoraria", $"CveCliente = {UsuarioActual.CveCliente}").ToEntero()
            If ObjGPS.GetZonasHorarias() Then
                If ObjGPS.DtResultados.Rows.Count > 0 Then
                    Offset = ObjGPS.DtResultados.FiltroPrimeroValor("UTCOffset", $"CveZonaHoraria = {CveZonaHoraria}").ToEntero()
                End If
            End If
        End Using
    End Sub

    Private Sub CargaDispositivos()
        Dim Dt = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario).FiltraParametros("Estatus = 1 ")
        GvDispositivos.DataSource = Dt
        GvDispositivos.DataBind()

        DdlEquipoD.DataSource = GlobalDTDispositivos(UsuarioActual.CveCliente)
        DdlEquipoD.DataBind()
        DdlEquipoD.Items.Insert(0, New ListItem("Seleccione", "-1"))

        'DdlEquipo.DataSource = Dt
        'DdlEquipo.DataBind()

        ''DdlEquipoHis.DataSource = Dt
        ''DdlEquipoHis.DataBind()

        'DdlEquipo.Items.Insert(0, New ListItem("Seleccione", "-1"))
        RegistraScript("$('#C_GvDispositivos_chkSelectAll').click(function () { $("".ChkAllEvt input"").not(this).prop('checked',$(this).is(':checked')); });", "1")

    End Sub

    Private Sub CargaEventos()
        Dim GPS As New ClsGPS
        If GPS.EventoGet2(-1, -1, 1) Then
            GvEventos.DataSource = GPS.DtResultados
        Else
            GvEventos.DataSource = Nothing
        End If
        GPS.Dispose()
        GvEventos.DataBind()
    End Sub
    Private Sub CargaGrupos()
        Using ObjGPS As New ClsGPS
            If ObjGPS.GruposGet(-1, UsuarioActual.CveCliente) Then
                DdlGrupo.DataSource = ObjGPS.DtResultados
                DdlGrupo.DataBind()
            End If
        End Using
        DdlGrupo.Items.Insert(0, New ListItem("Seleccione", "-1"))
    End Sub
    Protected Sub CreaTmpDTDetalle()
        DtDetalle = New DataTable
        Dim pk = DtDetalle.Columns.Add("CveDispositivo", GetType(Integer))
        DtDetalle.Columns.Add("NoEconomico", GetType(String))
        DtDetalle.Columns.Add("CveDispositivoGeoReferenciaDetalle", GetType(Integer))
        DtDetalle.PrimaryKey = New DataColumn() {pk}

        GvEquiposDetalle.DataSource = DtDetalle
        GvEquiposDetalle.DataBind()
        UpAgregar.Update()
    End Sub

    Protected Sub BtnCosultar_Click(sender As Object, e As EventArgs) Handles BtnRastrear.Click
        RegistraScript("DeleteMarkers();", "0")
        If Opcion = "KM" Then
            ReporteKM()
            RegistraScript("FNShowDiv();")
        ElseIf Opcion = "Last" OrElse Opcion = "Watch" OrElse Opcion = "TPS" Then
            CreaDTPosiciones()
            Dim SB As New StringBuilder()
            For Each row As GridViewRow In GvDispositivos.Rows
                If row.FCCheckBox("chkDis").Checked Then
                    SB.Append($"{row.DataKey("CveDispositivo")};")
                End If
            Next
            RastrearEquipoNew(SB.ToString, Opcion)
            DivGvKM.Visible = False
            GVKm.Visible = False
            GvBarra.Visible = True
            IndiceGV = 0
            HdnIndexPage.Value = "0"
            If DtPosiciones.Rows.Count > 1000 Then
                DvPaginacion.Visible = True
                LblRegistros.Text = $"Distribución de datos desde 0 hasta 1,000.   Total de registros: {DtPosiciones.Rows.Count.ToString.FormatoNumero}"
            Else
                DvPaginacion.Visible = False
            End If
            GvBarra.DataSource = DtPosiciones
            GvBarra.DataBind()

            If DtPosiciones IsNot Nothing AndAlso DtPosiciones.Rows.Count > 0 Then
                GvBarra.HeaderRow.Cells(3).Style.Add("display", "")
                If Opcion = "TPS" Then
                    GvBarra.HeaderRow.Cells(4).Text = "No. Pasajeros"
                    GvBarra.HeaderRow.Cells(4).Style.Add("display", "")
                Else
                    GvBarra.HeaderRow.Cells(4).Style.Add("display", "none !important")
                End If

                If Opcion = "Last" OrElse Opcion = "Watch" OrElse Opcion = "Idle" OrElse Opcion = "Ralenti" Then
                    GvBarra.HeaderRow.Cells(3).Style.Add("display", "")
                    GvBarra.HeaderRow.Cells(4).Style.Add("display", "none !important")
                ElseIf Opcion = "All" OrElse Opcion = "TPS" Then
                    GvBarra.HeaderRow.Cells(3).Style.Add("display", "")
                ElseIf Opcion <> "Eventos" Then
                    GvBarra.HeaderRow.Cells(3).Style.Add("display", "none !important")
                    GvBarra.HeaderRow.Cells(4).Style.Add("display", "none !important")
                End If
            End If

        Else
            CreaDTPosiciones()
            For Each row As GridViewRow In GvDispositivos.Rows
                If row.FCCheckBox("chkDis").Checked Then
                    RastrearEquipo(row, Opcion)
                End If
            Next
            DivGvKM.Visible = False
            GVKm.Visible = False
            GvBarra.Visible = True
            IndiceGV = 0
            HdnIndexPage.Value = "0"
            If DtPosiciones.Rows.Count > 1000 Then
                DvPaginacion.Visible = True
                LblRegistros.Text = $"Distribución de datos de 0 hasta 1,000.   Total de registros: {DtPosiciones.Rows.Count.ToString.FormatoNumero}"
            Else
                DvPaginacion.Visible = False
            End If
            GvBarra.DataSource = DtPosiciones
            GvBarra.DataBind()
            If DtPosiciones.Rows.Count > 0 Then
                If Opcion = "Last" OrElse Opcion = "Watch" OrElse Opcion = "Idle" OrElse Opcion = "Ralenti" Then
                    GvBarra.HeaderRow.Cells(3).Style.Add("display", "")
                    GvBarra.HeaderRow.Cells(4).Style.Add("display", "none !important")
                ElseIf Opcion = "All" Then
                    GvBarra.HeaderRow.Cells(3).Style.Add("display", "")
                ElseIf Opcion <> "Eventos" Then
                    GvBarra.HeaderRow.Cells(3).Style.Add("display", "none !important")
                    GvBarra.HeaderRow.Cells(4).Style.Add("display", "none !important")
                End If
            End If
        End If
        UPGV.Update()
        UPModalBusqueda.Update()

        'If Opcion = "Ralenti" OrElse Opcion = "Idle" OrElse Opcion = "All" Then
        '    ScriptManager.GetCurrent(Me).RegisterAsyncPostBackControl()
        '    ScriptManager.GetCurrent(Me).RegisterPostBackControl(GvBarra.HeaderRow.FCLinkButton("BtnImprimirEX"))
        'Else
        '    GvBarra.HeaderRow.Cells(6).Style.Add("display", "none !important")
        'End If
        UPGV.Update()
        UPModalBusqueda.Update()

        RegistraScript($"$('#HdnOpcion').val('{Opcion}');", "1700")
    End Sub

    Private Sub ReporteKM()
        Dim GPS As New ClsGPS
        FechaI = If(txtFechaI.Text.Trim = "", MinFecha, txtFechaI.Text.Trim.ToDate)
        FechaF = If(txtFechaF.Text.Trim = "", MaxFecha, txtFechaF.Text.Trim.ToDate)
        If GPS.ReporteKMGet(UsuarioActual.CveCliente, FechaI, FechaF, GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario).DefaultView.ToTable(True, "CveDispositivo")) Then
            GVKm.DataSource = GPS.DtResultados
            DtDatos = GPS.DtResultados
        End If

        GPS.Dispose()

        GvBarra.Visible = False
        GVKm.Visible = True
        DivGvKM.Visible = True
        GVKm.DataBind()
        rowImpresionesKM.Visible = True
    End Sub

    Private Sub RastrearEquipo(GVRow As GridViewRow, Opcion As String)
        Dim LastCoord As String = ""
        Dim TmpDT As New DataTable
        Dim Info = ""
        Dim Direccion = ""
        Dim SBBody As New StringBuilder
        Dim Icono As String = "/Imagenes/rsz_11rsz_car.png"
        Dim Fecha, Vehiculo As String

        TimmerRefresh.Enabled = False
        FechaI = If(txtFechaI.Text.Trim = "", MinFecha, txtFechaI.Text.Trim.ToDate)
        FechaF = If(txtFechaF.Text.Trim = "", MaxFecha, txtFechaF.Text.Trim.ToDate)
        Dim GPS As New ClsGPS
        Try
            If Opcion = "Last" Then
                If GPS.UltimaPosicionEquipoGet(GVRow.DataKey("CveDispositivo").ToEntero, MinFecha, MaxFecha) Then
                    If GPS.DtResultados.Rows.Count > 0 Then
                        Dim Coord As String = GPS.DtResultados.Rows(0)("Posicion").ToString.SQLToGmaps("POINT")
                        Fecha = GPS.DtResultados.Rows(0)("FechaTrama").ToString
                        Vehiculo = GPS.DtResultados.Rows(0)("Vehiculo").ToString
                        Info = InfoWindowCombustible($"Vehículo:{Vehiculo}", "-1", GVRow.DataKey("CveDispositivo").ToString.ToEntero, GPS.DtResultados.Rows(0), UsuarioActual.TienePermisoProceso(200))
                        If GPS.DtResultados.Rows(0)("SPD").ToString.ToDouble > 1 Then
                            Icono = $"/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {GVRow.DataKey("CveDispositivo").ToString}")}green.png"
                        Else
                            Icono = $"/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {GVRow.DataKey("CveDispositivo").ToString}")}.png"
                        End If
                        RegistraScript($"CreaMarcador({Coord},'{GVRow.DataKey("NombreVehiculo")}', '{Info}', '{Icono}');", GVRow.DataKey("CveDispositivo").ToString)
                        AddRowPosiciones(Vehiculo, Coord, GPS.DtResultados.Rows(0)("SPD").ToString.ToDouble, Fecha, GVRow.DataKey("CveDispositivo").ToEntero, GPS.DtResultados.Rows(0)("TiempoDetenido").ToString.ToDouble)
                    Else
                        Alert($"No se encontraron resultados del vehículo: {GVRow.DataKey("NoEconomico").ToString}", TipoMensaje.MsgAdvertencia)
                    End If
                End If
            ElseIf Opcion = "All" Then
                'Dim CveDispositivo = GVRow.DataKey("CveDispositivo").ToEntero
                'Dim RowDispositivo As DataRow = GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimero($"CveDispositivo = {CveDispositivo}")
                'Dim json As JObject = GPS.GetPosicionEquipoJson(CveDispositivo, FechaI, FechaF, RowDispositivo("Icono").ToString, RowDispositivo("ColorTrazo").ToString, GVRow.DataKey("NombreVehiculo").ToString, UsuarioActual.TienePermisoProceso(200))
                'HdnJSScript.Value = json.ToString()
                'DtPosiciones = GPS.DtPosicionesResultados '.AsEnumerable().Take(1000).CopyToDataTable()
                'UpDatosMapa.Update()

                'RegistraScript($"CargaHistorico(); PreparaDibujadoHistorico();PreparaDibujado(3);")

                If GPS.GetPosicionEquipo(GVRow.DataKey("CveDispositivo").ToEntero, FechaI, FechaF) Then
                    If GPS.DtResultados.Rows.Count > 0 Then
                        Dim StrScriptsMakers As New StringBuilder

                        Dim StrPolyPath As New StringBuilder

                        StrPolyPath.Append("[")
                        Dim POLYPATH As String = "["
                        TmpDT = GPS.DtResultados
                        Dim Contador = 0
                        Dim CveDispositivo = GVRow.DataKey("CveDispositivo").ToString.ToEntero
                        Dim RowDispositivo As DataRow = GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimero($"CveDispositivo = {CveDispositivo}")
                        Dim CordenadaAnterior As String = ""
                        For Each row As DataRow In TmpDT.Rows
                            Contador += 1
                            Dim Coord As String = SQLToGmaps(row("Posicion").ToString, "POINT")
                            Dim Velocidad As Double = row("SPD").ToString.ToDouble

                            Fecha = row("FechaTrama").ToString
                            Vehiculo = row("Vehiculo").ToString
                            SBBody.Clear()

                            If Contador = TmpDT.Rows.Count Then
                                Info = InfoWindowCombustible($" Vehículo:  {Vehiculo}", "-1", CveDispositivo, row, UsuarioActual.TienePermisoProceso(200))

                                If Velocidad > 1 Then
                                    Icono = $"/Imagenes/{RowDispositivo("Icono")}green.png"
                                Else
                                    Icono = $"/Imagenes/{RowDispositivo("Icono")}.png"
                                End If

                                POLYPATH = $"{POLYPATH}{Coord},"
                                StrPolyPath.AppendFormat("{0}]", Coord)
                                POLYPATH = $"{POLYPATH.Substring(0, POLYPATH.Length - 1)}]"
                                RegistraScript($"creaPolyline({StrPolyPath.ToString}, '{RowDispositivo("ColorTrazo")}', '{Info}', {Coord}, '{GVRow.DataKey("NombreVehiculo")}', '{Icono}',{CveDispositivo})", $"A{CveDispositivo}")
                                AddRowPosiciones(Vehiculo, Coord, Velocidad, Fecha, CveDispositivo, Evento:=row("Evento").ToString, TiempoDetenido:=row("TiempoMuerto").ToString.ToDouble, KMRecorridos:=row("KMRecorridos").ToString.ToDouble, Icono:=Icono)

                            Else
                                Info = InfoWindowCombustible($" Vehículo:  {Vehiculo}", "-1", CveDispositivo, row, UsuarioActual.TienePermisoProceso(200))

                                If Velocidad > 1 Then
                                    Icono = $"/Imagenes/{RowDispositivo("Icono")}green.png"
                                Else
                                    Icono = $"/Imagenes/{RowDispositivo("Icono")}.png"
                                End If

                                StrPolyPath.AppendFormat("{0},", Coord)
                                POLYPATH = $"{POLYPATH}{Coord},"
                                If TmpDT.Rows.Count < 1500 Then
                                    StrScriptsMakers.Append($"CreaMarcadorHistorico({Coord},'{GVRow.DataKey("NombreVehiculo")}', '{Info}', 0, '{Icono}');")
                                    RegistraScript($"CreaMarcadorHistorico({Coord},'{GVRow.DataKey("NombreVehiculo")}', '{Info}', 0, '{Icono}');", Contador.ToString)
                                End If
                                AddRowPosiciones(Vehiculo, Coord, Velocidad, Fecha, CveDispositivo, Evento:=row("Evento").ToString, TiempoDetenido:=row("TiempoMuerto").ToString.ToDouble, Icono:=Icono)
                            End If

                            CordenadaAnterior = Coord
                        Next
                        RegistraScript($"PreparaDibujadoHistorico();PreparaDibujado(3);")
                    Else
                        Alert($"No se encontraron resultados del vehículo: {GVRow.DataKey("NoEconomico").ToString}", TipoMensaje.MsgAdvertencia)
                    End If
                End If
            ElseIf Opcion = "Watch" Then
                SBBody.Clear()
                If GPS.UltimaPosicionEquipoGet(GVRow.DataKey("CveDispositivo").ToEntero, MinFecha, MaxFecha) Then
                    If GPS.DtResultados.Rows.Count > 0 Then
                        Dim Coord As String = SQLToGmaps(GPS.DtResultados.Rows(0)("Posicion").ToString, "POINT")
                        Fecha = GPS.DtResultados.Rows(0)("FechaTrama").ToString
                        Vehiculo = GPS.DtResultados.Rows(0)("Vehiculo").ToString
                        Info = InfoWindowCombustible($" Vehículo:  {Vehiculo}", "-1", GVRow.DataKey("CveDispositivo").ToString.ToEntero, GPS.DtResultados.Rows(0), UsuarioActual.TienePermisoProceso(200))

                        Dim Diferencia As Long = DateDiff(DateInterval.Minute, Fecha.ToDateTime(), FechaCliente)
                        If Diferencia >= 30 AndAlso Diferencia < 120 Then
                            Icono = $"/Imagenes/rsz_11rsz_car_disconnected.png"
                        ElseIf Diferencia >= 120 Then
                            Icono = $"/Imagenes/rsz_11rsz_car_disable.png"
                        Else
                            If GPS.DtResultados.Rows(0)("SPD").ToString.ToDouble > 1 Then
                                Icono = $"/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {GVRow.DataKey("CveDispositivo").ToString}")}green.png"
                            Else
                                Icono = $"/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {GVRow.DataKey("CveDispositivo").ToString}")}.png"
                            End If
                        End If

                        If chkTrazarLinea.Checked Then
                            TrazarLineaContinuo = True
                            CreaDTCoordenadas()
                            AddRowCoordenadasContinuas(Coord, GVRow.DataKey("CveDispositivo").ToEntero)
                        End If
                        RegistraScript($"CreaMarcador({Coord},'{GVRow.DataKey("NombreVehiculo")}', '{Info}', '{Icono}');", GVRow.DataKey("CveDispositivo").ToString)
                        AddRowPosiciones(Vehiculo, Coord, GPS.DtResultados.Rows(0)("SPD").ToString.ToDouble, Fecha, GVRow.DataKey("CveDispositivo").ToEntero, GPS.DtResultados(0)("TiempoDetenido").ToString.ToDouble)
                    Else
                        Alert($"No se encontraron resultados del vehículo: {GVRow.DataKey("NoEconomico").ToString}", TipoMensaje.MsgAdvertencia)
                    End If
                End If
                TimmerRefresh.Enabled = True
            ElseIf Opcion = "Idle" Then
                Dim StrAlert As New StringBuilder
                If GPS.GetTiempoMuerto(GVRow.DataKey("CveDispositivo").ToEntero, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime, TxtMinutos.Text.ToEntero) AndAlso GPS.DtResultados.Rows.Count > 0 Then
                    TmpDT = GPS.DtResultados
                    For Each row As DataRow In TmpDT.Rows
                        Dim Coord As String = SQLToGmaps(row("Posicion").ToString, "POINT")
                        Fecha = row("FechaTrama").ToString
                        Vehiculo = row("Vehiculo").ToString
                        Info = InfoWindowCombustible($" Vehículo:  {Vehiculo}", $"<tr><td> Tiempo Muerto: Mayor a {TxtMinutos.Text} minutos</td></tr>", GVRow.DataKey("CveDispositivo").ToString.ToEntero, row, UsuarioActual.TienePermisoProceso(200))
                        RegistraScript($"CreaMarcador({Coord},'{GVRow.DataKey("NombreVehiculo")}', '{Info}');", $"{GVRow.DataKey("CveDispositivo").ToString}{row("CvePosicion").ToString}")
                        AddRowPosiciones(Vehiculo, Coord, "0".ToDouble, Fecha, GVRow.DataKey("CveDispositivo").ToEntero, row("Tiempo").ToString.ToDouble)
                    Next
                Else
                    Alert("La busqueda no arrojó resultados", TipoMensaje.MsgAdvertencia)
                End If
            ElseIf Opcion = "Eventos" Then
                Dim Eventos As String = ""
                For Each GROW As GridViewRow In GvEventos.Rows
                    If GROW.FCCheckBox("chkEv").Checked Then
                        If GPS.EventosPosicionGet(GVRow.DataKey("CveDispositivo").ToEntero, GROW.DataKey("CveEvento").ToEntero, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime) Then
                            If GPS.DtResultados.Rows.Count > 0 Then
                                Dim Coord As String
                                For Each row As DataRow In GPS.DtResultados.Rows
                                    Vehiculo = row("Vehiculo").ToString
                                    Fecha = row("FechaTrama").ToString
                                    Coord = SQLToGmaps(row("Posicion").ToString, "POINT")
                                    Icono = If(row("Imagen").ToString = "", "/Imagenes/rsz_11rsz_car.png", $"/Imagenes/{row("Imagen").ToString}")
                                    Info = InfoWindowCombustible(row("Evento").ToString, $"<tr><td><a target=\'_blank\' href=\'/GPS/Vehiculos.aspx?CveDispositivo={GVRow.DataKey("CveDispositivo").ToString}\'>Nombre Vehículo:  {GVRow.DataKey("NombreVehiculo").ToString}</a></td></tr>", GVRow.DataKey("CveDispositivo").ToString.ToEntero, row, UsuarioActual.TienePermisoProceso(200))
                                    RegistraScript($"CreaMarcador({Coord},'{GVRow.DataKey("NombreVehiculo")}', '{Info}', '{Icono}');", $"{GVRow.DataKey("CveDispositivo").ToString}{row("CveDispositivoEvento").ToString}")
                                    AddRowPosiciones(Vehiculo, Coord, row("SPD").ToString.ToDouble, Fecha, GVRow.DataKey("CveDispositivo").ToEntero)
                                Next
                            Else
                                Eventos = $"{Eventos} {GROW.DataKey("Evento").ToString},"
                            End If
                        End If
                    End If
                Next
                If Eventos <> "" Then
                    Alert($"El vehículo con serie: {GVRow.DataKey("SerieVehiculo").ToString}, no cuenta con los siguientes eventos seleccionados: {Eventos.Substring(0, Eventos.Length - 1)}", TipoMensaje.MsgAdvertencia)
                End If
            ElseIf Opcion = "Speed" Then
                If GPS.GetExcesosVelocidad(GVRow.DataKey("CveDispositivo").ToEntero, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime) Then
                    TmpDT = GPS.DtResultados
                    If GPS.DtResultados.Rows.Count > 0 Then
                        For Each row As DataRow In TmpDT.Rows
                            Dim Coord As String = SQLToGmaps(row("Posicion").ToString, "POINT")
                            Fecha = row("FechaTrama").ToString
                            Vehiculo = row("Vehiculo").ToString
                            Info = InfoWindowCombustible($"Exceso de velocidad: {row("SPD").ToString} KM/H", $"<tr><td><a target=\'_blank\' href=\'/GPS/Vehiculos.aspx?CveDispositivo={GVRow.DataKey("CveDispositivo").ToString}\'>Nombre Vehículo:  {GVRow.DataKey("NombreVehiculo").ToString}</a></td></tr>", GVRow.DataKey("CveDispositivo").ToString.ToEntero, row, UsuarioActual.TienePermisoProceso(200))
                            RegistraScript($"CreaMarcador({Coord},'{GVRow.DataKey("NombreVehiculo")}', '{Info}', '/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {GVRow.DataKey("CveDispositivo").ToString}")}green.png');", $"{GVRow.DataKey("CveDispositivo").ToString}{row("CveTrama").ToString}")
                            AddRowPosiciones(Vehiculo, Coord, row("SPD").ToString.ToDouble, Fecha, GVRow.DataKey("CveDispositivo").ToEntero)
                        Next
                    Else
                        Alert($"No se encontraron resultados del vehículo: {GVRow.DataKey("NoEconomico").ToString}", TipoMensaje.MsgAdvertencia)
                    End If
                End If
            ElseIf Opcion = "Ralenti" Then
                If GPS.GetRalenti(GVRow.DataKey("CveDispositivo").ToEntero, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime) Then
                    TmpDT = GPS.DtResultados.FiltraParametros("TiempoDetenido > 0")
                    Dim count As Integer = 0
                    If TmpDT.Rows.Count > 0 Then
                        For Each row As DataRow In TmpDT.Rows
                            Dim Coord As String = SQLToGmaps(row("Posicion").ToString, "POINT")
                            Vehiculo = row("Vehiculo").ToString
                            Fecha = row("FechaTrama").ToString
                            Info = InfoWindowCombustible($"Ralentí", $"<tr><td><a target=\'_blank\' href=\'/GPS/Vehiculos.aspx?CveDispositivo={GVRow.DataKey("CveDispositivo").ToString}\'>Nombre Vehículo:  {Vehiculo}</a></td></tr>", GVRow.DataKey("CveDispositivo").ToString.ToEntero, row, UsuarioActual.TienePermisoProceso(200))
                            RegistraScript($"CreaMarcador({Coord},'{GVRow.DataKey("NombreVehiculo")}', '{Info}', '/Imagenes/ralenti.png');", $"{GVRow.DataKey("CveDispositivo").ToString}{row("CveDispositivoEvento").ToString}")
                            AddRowPosiciones(Vehiculo, Coord, "0".ToDouble, Fecha, GVRow.DataKey("CveDispositivo").ToEntero, row("TiempoDetenido").ToString.ToDouble)
                            count += 1
                        Next
                    Else
                        Alert($"No se encontraron resultados del vehículo: {GVRow.DataKey("NoEconomico").ToString}", TipoMensaje.MsgAdvertencia)
                    End If

                End If
            End If
        Catch ex As Exception
            OnError("Ocurrió un error al rastrear equipo", ex)
        End Try
        GPS.Dispose()

        UpFiltros.Update()

    End Sub

    Private Sub RastrearEquipoNew(Equipos As String, Opcion As String)
        Dim LastCoord As String = ""
        Dim TmpDT As New DataTable
        Dim Info = ""
        Dim Direccion = ""
        Dim SBBody As New StringBuilder
        Dim Icono As String = "/Imagenes/rsz_11rsz_car.png"
        Dim Fecha, Vehiculo As String
        DivSeguimiento.Visible = False
        TimmerRefresh.Enabled = False
        FechaI = If(txtFechaI.Text.Trim = "", MinFecha, txtFechaI.Text.Trim.ToDate)
        FechaF = If(txtFechaF.Text.Trim = "", MaxFecha, txtFechaF.Text.Trim.ToDate)
        RegistraScript("DeletemarkersParadas();DeletemarkersGeoRastreo();DeleteGeocercas();$('#LnkMostarGeocercas').css('display', 'none');")
        Dim GPS As New ClsGPS
        Try
            If Opcion = "Last" Then
                If GPS.UltimaPosicionEquipoGet(Equipos, UsuarioActual.CveCliente) Then
                    If GPS.DtResultados.Rows.Count > 0 Then
                        For Each row As DataRow In GPS.DtResultados.Rows
                            Dim Coord As String = row("Posicion").ToString.SQLToGmaps("POINT")
                            Fecha = row("FechaTrama").ToString
                            Vehiculo = row("Vehiculo").ToString
                            Info = InfoWindowCombustible($"Vehículo:{Vehiculo}", "-1", row("CveDispositivo").ToString.ToEntero, row, UsuarioActual.TienePermisoProceso(200))
                            If row("SPD").ToString.ToDouble > 1 Then
                                Icono = $"/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {row("CveDispositivo").ToString}")}green.png"
                            Else
                                Icono = $"/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {row("CveDispositivo").ToString}")}.png"
                            End If
                            RegistraScript($"CreaMarcador({Coord},'{row("NombreVehiculo")}', '{Info}', '{Icono}');", row("CveDispositivo").ToString)
                            AddRowPosiciones(Vehiculo, Coord, row("SPD").ToString.ToDouble, Fecha, row("CveDispositivo").ToString.ToEntero, row("TiempoDetenido").ToString.ToDouble)
                        Next
                    Else
                        Alert($"No se encontraron resultados")
                    End If
                End If
            ElseIf Opcion = "Watch" Then
                DivSeguimiento.Visible = True
                SBBody.Clear()
                If GPS.UltimaPosicionEquipoGet(Equipos, UsuarioActual.CveCliente) Then
                    If GPS.DtResultados.Rows.Count > 0 Then

                        Dim DtGeocercas As DataTable = Nothing
                        Dim DtGeocercasDetalle As DataTable = Nothing

                        Dim ObjGPSGeo As New ClsGPS
                        If ObjGPSGeo.GetReferenciaDetalle(-1, -1, -1, UsuarioActual.CveCliente) Then
                            DtGeocercas = ObjGPSGeo.DtResultados.FiltraParametros("EsParada = False AND Tipo='Geocerca' AND Estatus = 1")
                        End If
                        ObjGPSGeo.Dispose()

                        For Each row As DataRow In GPS.DtResultados.Rows
                            Dim CveDispositivo As Integer = row("CveDispositivo").ToString.ToEntero
                            Dim Coord As String = SQLToGmaps(row("Posicion").ToString, "POINT")
                            Dim Velocidad = row("SPD").ToString.ToDouble
                            Fecha = row("FechaTrama").ToString
                            Vehiculo = row("Vehiculo").ToString
                            Info = InfoWindowCombustible($" Vehículo:  {Vehiculo}", "-1", CveDispositivo, row, UsuarioActual.TienePermisoProceso(200))

                            Dim IconoVehiculo = GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {CveDispositivo}")

                            Dim Diferencia As Long = DateDiff(DateInterval.Minute, Fecha.ToDateTime(), FechaCliente)
                            If Diferencia >= 30 AndAlso Diferencia < 120 Then
                                Icono = $"/Imagenes/rsz_11rsz_car_disconnected.png"
                            ElseIf Diferencia >= 120 Then
                                Icono = $"/Imagenes/rsz_11rsz_car_disable.png"
                            Else
                                If Velocidad > 1 Then
                                    Icono = $"/Imagenes/{IconoVehiculo}green.png"
                                Else
                                    Icono = $"/Imagenes/{IconoVehiculo}.png"
                                End If

                            End If


                            If chkTrazarLinea.Checked Then
                                TrazarLineaContinuo = True
                                CreaDTCoordenadas()
                                AddRowCoordenadasContinuas(Coord, CveDispositivo)
                            End If
                            If ChkTrazarGeocercas.Checked Then

                                'SI TIENE GEOREFERENCIAS LAS MOSTRAMOS
                                If DtGeocercas IsNot Nothing Then
                                    Dim DtParadasDispositivo = DtGeocercas.FiltraParametros($"CveDispositivo = {CveDispositivo}", "", {"Color", "GeoReferencia", "Coordenadas"})
                                    Dim SbJS As New StringBuilder
                                    'SbJS.Append("setTimeout(function(){ DeletemarkersGeoRastreo(); ")
                                    SbJS.Append("$('#LnkMostarGeocercas').css('display', 'block'); setTimeout(function(){  ")
                                    For Each Dr As DataRow In DtParadasDispositivo.Rows
                                        Dim CoordsParada = SQLToGmapsJArray(Dr("Coordenadas").ToString, "POLYGON")
                                        'SbJS.AppendFormat(" creaPoligonoGeoRastreo({0},'{1}','{2}'); ", CoordsParada.ToString, Dr("Color").ToString, Dr("GeoReferencia").ToString)
                                        SbJS.AppendFormat(" creaPoligonoGeocerca({0},'{1}','{2}'); ", CoordsParada.ToString, Dr("Color").ToString, Dr("GeoReferencia").ToString)
                                    Next
                                    SbJS.Append(" VerGeocercas(); },1000);")
                                    RegistraScript(SbJS.ToString)
                                End If
                            Else
                                RegistraScript("$('#LnkMostarGeocercas').css('display', 'none');")
                            End If
                            RegistraScript($"CreaMarcador({Coord},'{row("NombreVehiculo")}', '{Info}', '{Icono}');", CveDispositivo.ToString)


                            ''SI TIENE GEOCERCAS LAS MOSTRAMOS
                            'If DtGeocercas IsNot Nothing Then
                            '    Dim DtGeocercasDispositivos = DtGeocercas.FiltraParametros($"CveDispositivo = {CveDispositivo}")
                            '    Dim SbJS As New StringBuilder
                            '    SbJS.Append("setTimeout(function(){")
                            '    For Each Dr As DataRow In DtGeocercasDispositivos.Rows
                            '        Dim CoordsParada = SQLToGmapsJArray(Dr("Coordenadas").ToString, "POLYGON")
                            '        SbJS.AppendFormat(" creaPoligonoGeocerca({0},'{1}','{2}'); ", CoordsParada.ToString, Dr("Color").ToString, Dr("GeoReferencia").ToString)
                            '    Next
                            '    SbJS.Append(" },1000);")
                            '    RegistraScript(SbJS.ToString)
                            'End If

                            AddRowPosiciones(Vehiculo, Coord, row("SPD").ToString.ToDouble, Fecha, row("CveDispositivo").ToString.ToEntero, row("TiempoDetenido").ToString.ToDouble)
                        Next
                        RegistraScript("setTimeout(function(){  $('#LnkMostarGeocercas').css('display', 'block'); },1000);")
                    Else
                        Alert($"No se encontraron resultados", TipoMensaje.MsgAdvertencia)
                    End If
                End If
                TimmerRefresh.Enabled = True
            ElseIf Opcion = "TPS" Then
                SBBody.Clear()
                If GPS.UltimaPosicionPasajerosGet(Equipos, UsuarioActual.CveCliente) Then
                    If GPS.DtResultados.Rows.Count > 0 Then
                        Dim DtParadas As DataTable = Nothing

                        Dim ObjGPSGeo As New ClsGPS
                        If ObjGPSGeo.GetReferenciaDetalle(-1, -1, -1, UsuarioActual.CveCliente) Then
                            DtParadas = ObjGPSGeo.DtResultados.FiltraParametros("EsParada = True AND Estatus = 1")
                        End If
                        ObjGPSGeo.Dispose()
                        For Each row As DataRow In GPS.DtResultados.Rows
                            Dim CveDispositivo = row("CveDispositivo").ToString.ToEntero
                            Dim Coord As String = SQLToGmaps(row("Posicion").ToString, "POINT")
                            Dim Velocidad As Double = row("SPD").ToString.ToDouble

                            Fecha = row("FechaTrama").ToString
                            Vehiculo = row("Vehiculo").ToString
                            Info = InfoWindowCombustible($" Vehículo:  {Vehiculo}", $" &nbsp;No. Pasajeros: {row("Pasajeros").ToString}", CveDispositivo, row, UsuarioActual.TienePermisoProceso(200))

                            Dim Diferencia As Long = DateDiff(DateInterval.Minute, Fecha.ToDateTime(), FechaCliente)
                            If Diferencia >= 30 AndAlso Diferencia < 120 Then
                                Icono = $"/Imagenes/rsz_11rsz_car_disconnected.png"
                            ElseIf Diferencia >= 120 Then
                                Icono = $"/Imagenes/rsz_11rsz_car_disable.png"
                            Else
                                If Velocidad > 1 Then
                                    Icono = $"/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {CveDispositivo}")}green.png"
                                Else
                                    Icono = $"/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {CveDispositivo}")}.png"
                                End If

                            End If

                            If chkTrazarLinea.Checked Then
                                TrazarLineaContinuo = True
                                CreaDTCoordenadas()
                                AddRowCoordenadasContinuas(Coord, CveDispositivo)
                            End If
                            RegistraScript($"CreaMarcador({Coord},'{row("NombreVehiculo")}', '{Info}', '{Icono}');", CveDispositivo.ToString)
                            AddRowPosiciones(Vehiculo, Coord, Velocidad, Fecha, CveDispositivo, row("TiempoDetenido").ToString.ToDouble, Evento:=row("Pasajeros").ToString)

                            'SI TIENE PARADAS LAS MOSTRAMOS
                            If DtParadas IsNot Nothing Then
                                Dim DtParadasDispositivo = DtParadas.FiltraParametros($"CveDispositivo = {CveDispositivo}", "", {"Color", "GeoReferencia", "Coordenadas"})
                                Dim SbJS As New StringBuilder
                                SbJS.Append("setTimeout(function(){ DeletemarkersParadas(); ")
                                For Each Dr As DataRow In DtParadasDispositivo.Rows
                                    Dim CoordsParada = SQLToGmapsJArray(Dr("Coordenadas").ToString, "POLYGON")
                                    SbJS.AppendFormat(" creaPoligonoParada({0},'{1}','{2}'); ", CoordsParada.ToString, Dr("Color").ToString, Dr("GeoReferencia").ToString)
                                Next
                                SbJS.Append(" },2000);")
                                RegistraScript(SbJS.ToString)
                            End If

                        Next
                        TimmerRefresh.Enabled = True
                    Else
                        Alert($"No se encontraron resultados", TipoMensaje.MsgAdvertencia)
                    End If
                End If
            End If

        Catch ex As Exception
            OnError("Ocurrió un error al rastrear un equipo", ex)
        End Try
        GPS.Dispose()
    End Sub
    Protected Sub TimmerRefresh_Tick(sender As Object, e As EventArgs)

        DtPosiciones.Rows.Clear()
        Dim Info = ""
        Dim Icono = ""
        Dim Fecha As String
        Dim SBBody As New StringBuilder
        Dim SB = New StringBuilder()
        RegistraScript("DeleteMarkers();")
        Dim Vehiculo As String
        For Each row As GridViewRow In GvDispositivos.Rows
            If row.FCCheckBox("chkDis").Checked Then
                SB.Append($"{row.DataKey("CveDispositivo")};")
            End If
        Next
        Dim GPS As New ClsGPS
        Try
            If Opcion = "TPS" Then
                SBBody.Clear()
                If GPS.UltimaPosicionPasajerosGet(SB.ToString, UsuarioActual.CveCliente) Then
                    If GPS.DtResultados.Rows.Count > 0 Then
                        For Each row As DataRow In GPS.DtResultados.Rows
                            Dim Coord As String = SQLToGmaps(row("Posicion").ToString, "POINT")
                            Fecha = row("FechaTrama").ToString
                            Vehiculo = row("Vehiculo").ToString
                            Info = InfoWindowCombustible($" Vehículo:  {Vehiculo}", $" &nbsp;No. Pasajeros: {row("Pasajeros").ToString}", row("CveDispositivo").ToString.ToEntero, row, UsuarioActual.TienePermisoProceso(200))

                            Dim Diferencia As Long = DateDiff(DateInterval.Minute, Fecha.ToDateTime(), FechaCliente)

                            If Diferencia >= 30 AndAlso Diferencia < 120 Then
                                Icono = $"/Imagenes/rsz_11rsz_car_disconnected.png"
                            ElseIf Diferencia >= 120 Then
                                Icono = $"/Imagenes/rsz_11rsz_car_disable.png"
                            Else
                                If row("SPD").ToString.ToDouble > 1 Then
                                    Icono = $"/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {row("CveDispositivo").ToString}")}green.png"
                                Else
                                    Icono = $"/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {row("CveDispositivo").ToString}")}.png"
                                End If
                            End If


                            If chkTrazarLinea.Checked Then
                                TrazarLineaContinuo = True
                                CreaDTCoordenadas()
                                AddRowCoordenadasContinuas(Coord, row("CveDispositivo").ToString.ToEntero)
                            End If
                            RegistraScript($"CreaMarcadorWatch({Coord},'{row("NombreVehiculo")}', '{Info}', '{Icono}');", row("CveDispositivo").ToString)
                            AddRowPosiciones(Vehiculo, Coord, row("SPD").ToString.ToDouble, Fecha, row("CveDispositivo").ToString.ToEntero, row("TiempoDetenido").ToString.ToDouble, Evento:=row("Pasajeros").ToString)
                        Next
                        TimmerRefresh.Enabled = True
                    Else
                        Alert($"No se encontraron resultados", TipoMensaje.MsgAdvertencia)
                    End If
                End If
            Else
                If GPS.UltimaPosicionEquipoGet(SB.ToString, UsuarioActual.CveCliente) Then
                    If GPS.DtResultados.Rows.Count > 0 Then
                        For Each row As DataRow In GPS.DtResultados.Rows
                            Dim Coord As String = SQLToGmaps(row("Posicion").ToString, "POINT")
                            Vehiculo = row("Vehiculo").ToString
                            Info = InfoWindowCombustible($" Vehículo:  {Vehiculo}", "-1", row("CveDispositivo").ToString.ToEntero, row, UsuarioActual.TienePermisoProceso(200))
                            Fecha = row("FechaTrama").ToString

                            Dim Diferencia As Long = DateDiff(DateInterval.Minute, Fecha.ToDateTime(), FechaCliente)

                            If Diferencia >= 30 AndAlso Diferencia < 120 Then
                                Icono = $"/Imagenes/rsz_11rsz_car_disconnected.png"
                            ElseIf Diferencia >= 120 Then
                                Icono = $"/Imagenes/rsz_11rsz_car_disable.png"
                            Else
                                If row("SPD").ToString.ToDouble > 1 Then
                                    Icono = $"/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {row("CveDispositivo").ToString}")}green.png"
                                Else
                                    Icono = $"/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {row("CveDispositivo").ToString}")}.png"
                                End If
                            End If


                            If TrazarLineaContinuo Then
                                AddRowCoordenadasContinuas(Coord, row("CveDispositivo").ToString.ToEntero)
                                Dim POLYPATH As String = "["

                                For Each RCC As DataRow In DtCoordenadasContinuas.FiltraParametros($"CveDispositivo = {row("CveDispositivo").ToString.ToEntero}", DistinctColumns:={"CveDispositivo", "Coord"}).Rows
                                    POLYPATH = $"{POLYPATH}{RCC("Coord").ToString},"
                                Next
                                POLYPATH = $"{POLYPATH.Substring(0, POLYPATH.Length - 1)}]"
                                RegistraScript($"creaPolyline({POLYPATH}, '{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("ColorTrazo", $"CveDispositivo = {row("CveDispositivo").ToString.ToEntero}")}', '{Info}', {Coord}, '{row("NombreVehiculo")}', '{Icono}',{row("CveDispositivo").ToString.ToEntero}, 1)", $"{row("CveDispositivo").ToString}{DtCoordenadasContinuas.Rows.Count}")
                            Else
                                RegistraScript($"CreaMarcadorWatch({Coord},'{row("NombreVehiculo")}', '{Info}', '{Icono}');", row("CveDispositivo").ToString)
                            End If
                            AddRowPosiciones(Vehiculo, Coord, row("SPD").ToString.ToDouble, row("FechaTrama").ToString, row("CveDispositivo").ToString.ToEntero, row("TiempoDetenido").ToString.ToDouble)
                        Next
                    End If
                End If
            End If
        Catch ex As Exception
            OnError("Ocurrió un error al rastrear un equipo", ex)
        End Try
        GPS.Dispose()

        If DtPosiciones IsNot Nothing Then
            GvBarra.DataSource = DtPosiciones
            GvBarra.DataBind()
        End If

        If Opcion = "Last" OrElse Opcion = "Watch" OrElse Opcion = "Idle" OrElse Opcion = "All" Then
            GvBarra.HeaderRow.Cells(3).Style.Add("display", "")
            GvBarra.HeaderRow.Cells(4).Style.Add("display", "none !important")
        ElseIf Opcion = "TPS" Then
            GvBarra.HeaderRow.Cells(4).Text = "No. Pasajeros"
            GvBarra.HeaderRow.Cells(4).Style.Add("display", "")
            GvBarra.HeaderRow.Cells(3).Style.Add("display", "")

        ElseIf Opcion <> "Eventos" Then
            GvBarra.HeaderRow.Cells(3).Style.Add("display", "none !important")
            GvBarra.HeaderRow.Cells(4).Style.Add("display", "none !important")
        End If
        UPGV.Update()
        Dim SbJS As New StringBuilder
        SbJS.Append($"setTimeout(function(){{ $('#C_GvBarra').DataTable().search('{HdnTextFilter.Value}').draw(); ")

        If ChkSeguimiento.Checked Then
            If HdnIndexGvBarra.Value.ToEntero >= 0 Then
                SbJS.Append($"$('#row{HdnIndexGvBarra.Value}').click();")
                'If Not String.IsNullOrEmpty(JSCargaSeleccion) Then

                'End If
            End If
        End If
        SbJS.Append("},2000);")
        RegistraScript(SbJS.ToString)

        'RegistraScript("CargaPickers();", "ADP")
    End Sub


#Region "Herramientas - GPS"
    Protected Sub BtnCargaComandos_Click(sender As Object, e As EventArgs) Handles BtnCargaComandos.Click
        CargaComandos()
    End Sub
    Private Sub CargaComandos()
        Dim ObjGps As New ClsGPS
        If ObjGps.GetComandosModeloDispositivoUsuarios(HdnCveDipositivo.Value.ToEntero, UsuarioActual.CveUsuario, 1) Then
            GvComandos.DataSource = ObjGps.DtResultados
        End If
        ObjGps.Dispose()
        GvComandos.DataBind()

        UpBodyTipoEquipo.Update()
        'Dim ObjGps As New ClsGPS
        'If ObjGps.GetComandosModeloDispositivo(HdnCveDipositivo.Value.ToEntero) AndAlso ObjGps.DtResultados.Rows.Count > 0 Then
        '    GvComandos.DataSource = ObjGps.DtResultados.FiltraParametros("CveComando In (6, 7, 32, 36, 8, 9)")
        'End If
        'ObjGps.Dispose()

        'GvComandos.DataBind()
        'UpBodyTipoEquipo.Update()
    End Sub

    Private Sub GvComandos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvComandos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            'Select Case e.Row.DBCampo("CveComando").ToEntero
            '    Case 6
            '        e.Row.Cells(1).Text = "Apagar Motor"
            '    Case 7
            '        e.Row.Cells(1).Text = "Encender Motor"
            '    Case 32
            '        e.Row.Cells(1).Text = "Reiniciar Dispositivo"
            '    Case 36
            '        e.Row.Cells(1).Text = "Telefono de Pánico"
            '    Case 8
            '        e.Row.Cells(1).Text = "Abrir Compuerta"
            '    Case 9
            '        e.Row.Cells(1).Text = "Cerrar Compuerta"
            'End Select

            If e.Row.DataKey("RequiereValor").ToEntero = 1 Then
                e.Row.FCTextBox("TxtValor").Visible = True
            End If
        End If
    End Sub

    Private Sub GvComandos_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvComandos.RowCommand
        If (e.CommandName = "EnviarComando") Then

            Dim ObjHerramientas As New ClsGPSHerramientas

            Dim index As Integer = Convert.ToInt32(e.CommandArgument)
            Dim row As GridViewRow = GvComandos.Rows(index)

            ObjHerramientas.EjecutarComandoGPRS(row.DataKey("CveComando").ToEntero, HdnCveDipositivo.Value.ToEntero, UsuarioActual.CveUsuario, row.FCTextBox("TxtValor").Text)

            ObjHerramientas.Dispose()

        End If
    End Sub

    'Private Sub BtnApagarMotor_Click(sender As Object, e As EventArgs) Handles BtnApagarMotor.Click
    '    'Comando 6
    '    Dim ObjGPSHerramientas As New ClsGPSHerramientas
    '    ObjGPSHerramientas.EjecutarComandoGPRS(6, HdnCveDipositivo.Value.ToEntero, UsuarioActual.CveUsuario, "")
    '    ObjGPSHerramientas.Dispose()
    'End Sub

    'Private Sub BtnEncenderMotor_Click(sender As Object, e As EventArgs) Handles BtnEncenderMotor.Click
    '    'Comando 7
    '    Dim ObjGPSHerramientas As New ClsGPSHerramientas
    '    ObjGPSHerramientas.EjecutarComandoGPRS(7, HdnCveDipositivo.Value.ToEntero, UsuarioActual.CveUsuario, "")
    '    ObjGPSHerramientas.Dispose()
    'End Sub

    'Private Sub BtnReinicio_Click(sender As Object, e As EventArgs) Handles BtnReinicio.Click
    '    'Comando 32
    '    Dim ObjGPSHerramientas As New ClsGPSHerramientas
    '    ObjGPSHerramientas.EjecutarComandoGPRS(32, HdnCveDipositivo.Value.ToEntero, UsuarioActual.CveUsuario, "")
    '    ObjGPSHerramientas.Dispose()
    'End Sub

    'Private Sub BtnTelefonoPanico_Click(sender As Object, e As EventArgs) Handles BtnTelefonoPanico.Click
    '    'Comando 36
    '    Dim ObjGPSHerramientas As New ClsGPSHerramientas
    '    ObjGPSHerramientas.EjecutarComandoGPRS(36, HdnCveDipositivo.Value.ToEntero, UsuarioActual.CveUsuario, TxtTelefonoPanico.Text.Trim)
    '    ObjGPSHerramientas.Dispose()
    'End Sub

    'Private Sub BtnProbarEncendido_Click(sender As Object, e As EventArgs) Handles BtnProbarEncendido.Click
    '    'Comando 8 'Abrir Compuerta
    '    Dim ObjGPSHerramientas As New ClsGPSHerramientas
    '    ObjGPSHerramientas.EjecutarComandoGPRS(8, HdnCveDipositivo.Value.ToEntero, UsuarioActual.CveUsuario, "")
    '    ObjGPSHerramientas.Dispose()
    'End Subah s

    'Private Sub BtnInfoDispositivo_Click(sender As Object, e As EventArgs) Handles BtnInfoDispositivo.Click
    '    'Comando 9  'Cerrar Compuerta
    '    Dim ObjGPSHerramientas As New ClsGPSHerramientas
    '    ObjGPSHerramientas.EjecutarComandoGPRS(9, HdnCveDipositivo.Value.ToEntero, UsuarioActual.CveUsuario, "")
    '    ObjGPSHerramientas.Dispose()
    'End Sub

    'Private Sub BtnAhorroBateria_Click(sender As Object, e As EventArgs) Handles BtnAhorroBateria.Click
    '    'Comando 40
    '    Dim ObjGPSHerramientas As New ClsGPSHerramientas
    '    ObjGPSHerramientas.EjecutarComandoGPRS(40, HdnCveDipositivo.Value.ToEntero, UsuarioActual.CveUsuario, DdlTipoBateria.SelectedValue)
    '    ObjGPSHerramientas.Dispose()
    'End Sub



#End Region

#Region "DATA TABLES"
    Private Sub CreaDTPosiciones()
        DtPosiciones = Nothing
        Dim dt As New DataTable
        dt.Columns.Add("CveDispositivo", Type.GetType("System.Int32"))
        dt.Columns.Add("Vehiculo", Type.GetType("System.String"))
        dt.Columns.Add("Fecha", Type.GetType("System.String"))
        dt.Columns.Add("Evento", Type.GetType("System.String"))
        dt.Columns.Add("TiempoDetenido", Type.GetType("System.Double"))
        dt.Columns.Add("Velocidad", Type.GetType("System.Double"))
        dt.Columns.Add("Posicion", Type.GetType("System.String"))
        dt.Columns.Add("KMRecorridos", Type.GetType("System.Double"))
        dt.Columns.Add("Icono", Type.GetType("System.String"))

        ViewState("DtPosiciones") = dt

    End Sub

    Private Sub AddRowPosiciones(Vehiculo As String, Posicion As String, Velocidad As Double, Fecha As String, CveDispositivo As Integer, Optional TiempoDetenido As Double = 0, Optional Evento As String = "", Optional KMRecorridos As Double = 0, Optional Icono As String = "/Imagenes/rsz_11rsz_car.png")
        Dim dr As DataRow = DtPosiciones.NewRow()
        dr("Vehiculo") = Vehiculo
        dr("Fecha") = Fecha
        dr("TiempoDetenido") = TiempoDetenido
        dr("Velocidad") = Velocidad
        dr("Posicion") = Posicion
        dr("CveDispositivo") = CveDispositivo
        dr("Evento") = Evento
        dr("KMRecorridos") = KMRecorridos
        dr("Icono") = Icono

        DtPosiciones.Rows.Add(dr)
    End Sub


    Private Sub CreaDTCoordenadas()

        Dim dt As New DataTable

        dt.Columns.Add("CveDispositivo", Type.GetType("System.Int32"))
        dt.Columns.Add("Coord", Type.GetType("System.String"))

        DtCoordenadasContinuas = dt
    End Sub

    Private Sub AddRowCoordenadasContinuas(Coord As String, CveDispositivo As Integer)
        Dim dr As DataRow = DtCoordenadasContinuas.NewRow()
        dr("CveDispositivo") = CveDispositivo
        dr("Coord") = Coord
        DtCoordenadasContinuas.Rows.Add(dr)
    End Sub
#End Region

#Region "Carga Fechas Predeterminadas"
    'Protected Sub BtnUltimas2_Click(sender As Object, e As EventArgs) Handles BtnUltimas2.Click
    '    CargaFechasPredeterminadas("2")
    'End Sub
    'Protected Sub BtnUltimas8_Click(sender As Object, e As EventArgs) Handles BtnUltimas8.Click
    '    CargaFechasPredeterminadas("8")
    'End Sub
    'Protected Sub BtnHoy_Click(sender As Object, e As EventArgs) Handles BtnHoy.Click
    '    CargaFechasPredeterminadas("24")
    'End Sub
    'Protected Sub BtnAyer_Click(sender As Object, e As EventArgs) Handles BtnAyer.Click
    '    CargaFechasPredeterminadas("48")
    'End Sub
    'Protected Sub BtnSemana_Click(sender As Object, e As EventArgs) Handles BtnSemana.Click
    '    CargaFechasPredeterminadas("Week")
    'End Sub
    'Protected Sub BtnMes_Click(sender As Object, e As EventArgs) Handles BtnMes.Click
    '    CargaFechasPredeterminadas("Month")
    'End Sub

    <Web.Services.WebMethod()> <Script.Services.ScriptMethodAttribute()>
    Public Shared Function WsCalculaFechas(ByVal Opcion As System.String) As System.String
        Dim StrFecha As String = "{}"

        If Opcion = "2" Then
            Dim JsonFecha As New JObject(
                New JProperty("FechaI", DateTime.Now.AddHours(-2).ToString("dd/MM/yyyy HH:mm")),
                New JProperty("FechaF", DateTime.Now.ToString("dd/MM/yyyy HH:mm"))
            )
            StrFecha = JsonFecha.ToString
        ElseIf Opcion = "8" Then
            Dim JsonFecha As New JObject(
                New JProperty("FechaI", DateTime.Now.AddHours(-8).ToString("dd/MM/yyyy HH:mm")),
                New JProperty("FechaF", DateTime.Now.ToString("dd/MM/yyyy HH:mm"))
            )
            StrFecha = JsonFecha.ToString
        ElseIf Opcion = "24" Then
            Dim JsonFecha As New JObject(
                New JProperty("FechaI", $"{DateTime.Now.ToString("dd/MM/yyyy")} 0:00"),
                New JProperty("FechaF", $"{DateTime.Now.ToString("dd/MM/yyyy")} 23:59")
            )
            StrFecha = JsonFecha.ToString
        ElseIf Opcion = "48" Then
            Dim JsonFecha As New JObject(
                New JProperty("FechaI", $"{DateTime.Now.AddDays(-1).ToString("dd/MM/yyyy")} 0:00"),
                New JProperty("FechaF", $"{DateTime.Now.AddDays(-1).ToString("dd/MM/yyyy")} 23:59")
            )
            StrFecha = JsonFecha.ToString
        ElseIf Opcion = "Week" Then
            Dim JsonFecha As New JObject(
                New JProperty("FechaI", $"{DateTime.Now.AddDays(-7).ToString("dd/MM/yyyy")} 0:00"),
                New JProperty("FechaF", DateTime.Now.ToString("dd/MM/yyyy HH:mm"))
            )
            StrFecha = JsonFecha.ToString
        ElseIf Opcion = "Month" Then
            Dim JsonFecha As New JObject(
                New JProperty("FechaI", $"{New DateTime(Now.Year, Now.Month, 1).ToString("dd/MM/yyyy")} 0:00"),
                New JProperty("FechaF", DateTime.Now.ToString("dd/MM/yyyy HH:mm"))
            )
            StrFecha = JsonFecha.ToString
        End If

        Return StrFecha
    End Function

    'Private Sub CargaFechasPredeterminadas(Opcion As String)
    '    If Opcion = "2" Then
    '        txtFechaI.Text = DateTime.Now.AddHours(-2).ToString("dd/MM/yyyy HH:mm")
    '        txtFechaF.Text = DateTime.Now.ToString("dd/MM/yyyy HH:mm")
    '    ElseIf Opcion = "8" Then
    '        txtFechaI.Text = DateTime.Now.AddHours(-8).ToString("dd/MM/yyyy HH:mm")
    '        txtFechaF.Text = DateTime.Now.ToString("dd/MM/yyyy HH:mm")
    '    ElseIf Opcion = "24" Then
    '        txtFechaI.Text = $"{DateTime.Now.ToString("dd/MM/yyyy")} 0:00"
    '        txtFechaF.Text = $"{DateTime.Now.ToString("dd/MM/yyyy")} 23:59"
    '    ElseIf Opcion = "48" Then
    '        txtFechaI.Text = $"{DateTime.Now.AddDays(-1).ToString("dd/MM/yyyy")} 0:00"
    '        txtFechaF.Text = $"{DateTime.Now.AddDays(-1).ToString("dd/MM/yyyy")} 23:59"
    '    ElseIf Opcion = "Week" Then
    '        txtFechaI.Text = $"{DateTime.Now.AddDays(-7).ToString("dd/MM/yyyy")} 0:00"
    '        txtFechaF.Text = DateTime.Now.ToString("dd/MM/yyyy HH:mm")
    '    ElseIf Opcion = "Month" Then
    '        txtFechaI.Text = $"{New DateTime(Now.Year, Now.Month, 1).ToString("dd/MM/yyyy")} 0:00"
    '        txtFechaF.Text = DateTime.Now.ToString("dd/MM/yyyy HH:mm")
    '    End If

    '    ' RegistraScript("CargaPickers();")
    '    upFechas.Update()
    'End Sub

#End Region

#Region "Menu"
    Protected Sub Btn_Click(sender As Object, e As EventArgs) Handles BtnLast.Click, BtnAll.Click, BtnWatch.Click, BtnRalenti.Click, BtnSpeed.Click, BtnIdle.Click, BtnEv.Click, LnkKM.Click, BtnPasajeros.Click
        Dim Btn As LinkButton = CType(sender, LinkButton)
        Opcion = Btn.CommandArgument
        CargaOpcion(Opcion)
    End Sub

    Protected Sub CargaOpcion(opcion As String)
        TimmerRefresh.Enabled = False
        HdnOpcion.Value = opcion

        chkTrazarLinea.Visible = False
        ChkTrazarGeocercas.Visible = False
        DvPaginacion.Visible = False
        rowImpresionesKM.Visible = False
        If opcion = "All" Then
            dvFechas.Visible = True
            txtFechaI.Text = ""
            txtFechaF.Text = ""
            dvDispositivos.Visible = True
            dvTrazo.Visible = False
            dvTrazoGeo.Visible = False
            dvMinutos.Visible = False
            RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
            BtnRastrear.ValidationGroup = "GrpFechas"
            dvEventos.Visible = False
            myModalLabel2.InnerHtml = "Rastreo Vehícular Histórico"
        ElseIf opcion = "Eventos" Then
            dvFechas.Visible = True
            txtFechaI.Text = ""
            dvDispositivos.Visible = True
            txtFechaF.Text = ""
            dvTrazo.Visible = False
            dvTrazoGeo.Visible = False
            dvMinutos.Visible = False
            BtnRastrear.ValidationGroup = "GrpFechas"
            RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
            dvEventos.Visible = True
            myModalLabel2.InnerHtml = "Rastreo Vehícular por Eventos"
        ElseIf opcion = "Speed" Then
            dvFechas.Visible = True
            txtFechaI.Text = ""
            txtFechaF.Text = ""
            dvTrazo.Visible = False
            dvTrazoGeo.Visible = False
            dvDispositivos.Visible = True
            dvMinutos.Visible = False
            GvDispositivos.DataSource = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario).FiltraParametros("Estatus = 1 AND LimiteVelocidad = 1")
            GvDispositivos.DataBind()
            Filtrado = True
            dvEventos.Visible = False
            BtnRastrear.ValidationGroup = "GrpFechas"
            RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
            myModalLabel2.InnerHtml = "Rastreo Vehícular de Exceso de velocidad"
        ElseIf opcion = "Idle" Then
            dvFechas.Visible = True
            txtFechaI.Text = ""
            txtFechaF.Text = ""
            dvDispositivos.Visible = True
            dvTrazo.Visible = False
            dvTrazoGeo.Visible = False
            dvMinutos.Visible = True
            dvEventos.Visible = False
            BtnRastrear.ValidationGroup = "GrpFechas"
            RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
            myModalLabel2.InnerHtml = "Rastreo Vehícular por Tiempo Muerto"
        ElseIf opcion = "Ralenti" Then
            dvFechas.Visible = True
            txtFechaI.Text = ""
            txtFechaF.Text = ""
            dvDispositivos.Visible = True
            dvTrazo.Visible = False
            dvTrazoGeo.Visible = False
            dvMinutos.Visible = False
            dvEventos.Visible = False
            BtnRastrear.ValidationGroup = "GrpFechas"
            RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
            myModalLabel2.InnerHtml = "Rastreo Vehícular por Ralentí"
        ElseIf opcion = "Last" Then
            dvFechas.Visible = False
            dvDispositivos.Visible = True
            dvTrazo.Visible = False
            dvTrazoGeo.Visible = False
            dvMinutos.Visible = False
            dvEventos.Visible = False
            BtnRastrear.ValidationGroup = "xx"
            RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
            myModalLabel2.InnerHtml = "Última Posición"
        ElseIf opcion = "Watch" Then
            dvFechas.Visible = False
            dvMinutos.Visible = False
            dvTrazo.Visible = True
            dvTrazoGeo.Visible = True
            dvEventos.Visible = False
            BtnRastrear.ValidationGroup = "xx"
            RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
            myModalLabel2.InnerHtml = "Rastreo Continuo"
            chkTrazarLinea.Visible = True
            ChkTrazarGeocercas.Visible = True
        ElseIf opcion = "Watch" Then
            dvFechas.Visible = False
            dvDispositivos.Visible = True
            dvMinutos.Visible = False
            dvTrazo.Visible = True
            dvTrazoGeo.Visible = True
            dvEventos.Visible = False
            BtnRastrear.ValidationGroup = "xx"
            RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
            myModalLabel2.InnerHtml = "Rastreo Continuo"
        ElseIf opcion = "KM" Then
            dvFechas.Visible = True
            dvDispositivos.Visible = False
            dvMinutos.Visible = False
            dvTrazo.Visible = False
            dvTrazoGeo.Visible = False
            dvEventos.Visible = False
            BtnRastrear.ValidationGroup = "xx"
            RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
            myModalLabel2.InnerHtml = "Reporte de Kilometros Recorridos"
        ElseIf opcion = "TPS" Then
            dvFechas.Visible = False
            dvDispositivos.Visible = True
            dvMinutos.Visible = False
            DivFechasGVBarra.Visible = False
            GvDispositivos.DataSource = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario).FiltraParametros("CveModelo = 17")
            GvDispositivos.DataBind()
            Filtrado = True
            dvEventos.Visible = False
            RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
            myModalLabel2.InnerHtml = "Contador de pasajeros"
        End If
        If opcion <> "Speed" AndAlso opcion <> "TPS" AndAlso Filtrado Then
            CargaDispositivos()
            Filtrado = False
        End If
        RegistraScript("$(""#h"").modal('hide');
                $(""#ShowDiv3"").css(""line-height"", ""20px"");
                open = false;
                $(""#ShowDiv3"").html('<i class=""fa fa-angle-up"" aria-hidden=""True""></i>');", "HideDiv")
        RegistraScript("$(""input[name^='ctl00$C$GvDispositivos']"").not(this).prop('checked', false);$('#C_GvDispositivos_chkSelectAll').click(function () { $(""input[name^='ctl00$C$GvDispositivos']"").not(this).prop('checked', this.checked); });", "chkGV")



        UPConsulta.Update()
    End Sub

#End Region

#Region "GVBarra"
    Protected Sub GvBarra_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBarra.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            Dim RowID As String = $"row{e.Row.RowIndex}"
            e.Row.Attributes("id") = RowID
            Dim IndexGvBarra As Integer = If(String.IsNullOrEmpty(HdnIndexGvBarra.Value), -1, HdnIndexGvBarra.Value.ToEntero)

            If Opcion <> "All" Then
                If IndexGvBarra >= 0 Then
                    If e.Row.RowIndex = IndexGvBarra Then
                        JSCargaSeleccion = $"CargaDatosSeleccionados('{e.Row.RowIndex}', '{e.Row.DBCampo("CveDispositivo").ToString}', {e.Row.DBCampo("Posicion").ToString}, 0);CargaRecSeleccionados({e.Row.RowIndex});GetDireccionesGVClick({e.Row.DBCampo("Posicion").ToString}, {e.Row.RowIndex});"
                    End If
                End If
                RegistraScript($"GetDireccionesGV({e.Row.DBCampo("Posicion").ToString}, {e.Row.RowIndex}, 1);", $"{RowID}")
                e.Row.Attributes.Add("onClick", $"CargaDatosSeleccionados('{e.Row.RowIndex}', '{e.Row.DBCampo("CveDispositivo").ToString}', {e.Row.DBCampo("Posicion").ToString}, 0);CargaRecSeleccionados({e.Row.RowIndex});GetDireccionesGVClick({e.Row.DBCampo("Posicion").ToString}, {e.Row.RowIndex});")
            Else
                Dim SBBody = New StringBuilder()
                Dim Info As String = ""
                Dim Icono As String
                SBBody.Append($"<div>")
                SBBody.Append($"<div><h5><a target=\'_blank\' href=\'/GPS/Vehiculos.aspx?CveDispositivo={e.Row.DBCampo("CveDispositivo")}\'><b>{e.Row.DBCampo("Vehiculo")}</b></a></h5></div>")
                SBBody.Append($"<div><table>")
                SBBody.Append($"<tr><td>Fecha : {e.Row.DBCampo("Fecha")} </td></tr>")
                SBBody.Append($"<tr><td>Velocidad : {e.Row.DBCampo("Velocidad").ToString}</td></tr>")

                If Opcion = "Watch" Then
                    Dim Diferencia As Long = DateDiff(DateInterval.Minute, e.Row.DBCampo("Fecha").ToDateTime(), FechaCliente)
                    If Diferencia >= 30 AndAlso Diferencia < 120 Then
                        Icono = $"/Imagenes/rsz_11rsz_car_disconnected.png"
                    ElseIf Diferencia >= 120 Then
                        Icono = $"/Imagenes/rsz_11rsz_car_disable.png"
                    Else
                        If e.Row.DBCampo("Velocidad").ToString.ToDouble > 1 Then
                            Icono = $"/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {e.Row.DBCampo("CveDispositivo").ToString}")}green.png"
                        Else
                            Icono = $"/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {e.Row.DBCampo("CveDispositivo").ToString}")}.png"
                        End If
                    End If
                ElseIf Opcion = "All" Then
                    Icono = e.Row.DBCampo("Icono").ToString
                Else
                    If e.Row.DBCampo("Velocidad").ToString.ToDouble > 1 Then
                        Icono = $"/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {e.Row.DBCampo("CveDispositivo").ToString}")}green.png"
                    Else
                        Icono = $"/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {e.Row.DBCampo("CveDispositivo").ToString}")}.png"
                    End If
                End If

                SBBody.Append($"</table></div><div></div></div>")
                Info = SBBody.ToString
                e.Row.Attributes.Add("onClick", $"CargaDatosSeleccionados({e.Row.RowIndex}, '{e.Row.DBCampo("CveDispositivo").ToString}', {e.Row.DBCampo("Posicion").ToString}, 2); CreaMarcadorHistorico({e.Row.DBCampo("Posicion").ToString},'{e.Row.DBCampo("Vehiculo")}', '{Info}', 1, '{Icono}', {e.Row.RowIndex}); ")
                If IndexGvBarra >= 0 Then
                    If e.Row.RowIndex = IndexGvBarra Then
                        JSCargaSeleccion = $"CargaDatosSeleccionados({e.Row.RowIndex}, '{e.Row.DBCampo("CveDispositivo").ToString}', {e.Row.DBCampo("Posicion").ToString}, 2); CreaMarcadorHistorico({e.Row.DBCampo("Posicion").ToString},'{e.Row.DBCampo("Vehiculo")}', '{Info}', 1, '{Icono}', {e.Row.RowIndex}); "
                    End If
                End If
                RegistraScript($"GetDireccionesGV({e.Row.DBCampo("Posicion").ToString}, {e.Row.RowIndex}, 0);", $"{RowID}")
            End If
            If Opcion = "Watch" OrElse Opcion = "Last" OrElse Opcion = "Idle" OrElse Opcion = "Ralenti" Then
                e.Row.Cells(3).Text = $"{Decimal.Round(e.Row.DBCampo("TiempoDetenido").ToDecimal / 60, 1).ToString("###,###,##0.##")} Hrs ({e.Row.DBCampo("TiempoDetenido").ToDecimal.ToString("#,##0.##")} minutos)"
                e.Row.Cells(4).Style.Add("display", "none")
            ElseIf Opcion = "All" Then
                e.Row.Cells(3).Text = $"{Decimal.Round(e.Row.DBCampo("TiempoDetenido").ToDecimal / 60, 1).ToString("###,###,##0.##")} Hrs ({e.Row.DBCampo("TiempoDetenido").ToDecimal.ToString("#,##0.##")} minutos)"
            ElseIf Opcion = "TPS" Then
                e.Row.Cells(3).Text = $"{Decimal.Round(e.Row.DBCampo("TiempoDetenido").ToDecimal / 60, 1).ToString("###,###,##0.##")} Hrs ({e.Row.DBCampo("TiempoDetenido").ToDecimal.ToString("#,##0.##")} minutos)"
            Else
                e.Row.Cells(3).Style.Add("display", "none")
                e.Row.Cells(4).Style.Add("display", "none")
            End If

        End If
    End Sub

    Protected Sub GvKm_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVKm.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            Dim id = $"row{e.Row.RowIndex}"
            e.Row.ID = id
            If e.Row.DBCampo("Vehiculo").ToString = "" Then
                e.Row.CssClass = "Totales"
                e.Row.Cells(0).Text = $"Total Kilometros Recorridos:  {txtFechaI.Text.ToDateTime.ToShortDateString} - {txtFechaF.Text.ToDateTime.ToShortDateString} "
                e.Row.Cells(1).Text = $"{Decimal.Round(DtDatos.SUM("TiempoOperativo", "Vehiculo IS NOT NULL").ToDecimal / 60, 1).ToString("###,###,##0.##")} Hrs ({DtDatos.SUM("TiempoOperativo", "Vehiculo IS NOT NULL").ToDecimal.ToString("#,##0.##")} minutos)"
                e.Row.Cells(2).Text = $"{Decimal.Round(DtDatos.SUM("Dist", "Vehiculo IS NOT NULL").ToDecimal, 2).ToString("###,###,##0.00")} KM"
            Else
                e.Row.Attributes.Add("idgv", e.Row.RowIndex.ToString)
                e.Row.Attributes.Add("onClick", $"DeleteMarkers();$('#HdnKM').val({e.Row.DBCampo("CveDispositivo")});doScaledCLickKM('#C_BtnCargaRecorrido',{e.Row.RowIndex});")
                '  e.Row.Attributes.Add("onClick", $"DeleteMarkers();creaPolyline({SQLToGmaps(e.Row.DBCampo("Recorrido"), "FDFDSFDSFS")}, '{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("ColorTrazo", $"CveDispositivo = {e.Row.DataKey("CveDispositivo").ToString}")}', '', '', '', '')")
                e.Row.Cells(1).Text = $"{Decimal.Round(e.Row.DBCampo("TiempoOperativo").ToDecimal / 60, 1).ToString("###,###,##0.##")} Hrs ({e.Row.DBCampo("TiempoOperativo").ToDecimal.ToString("#,##0.##")} minutos)"
            End If
        End If
    End Sub



#End Region

#Region "GeoReferencias"
    Protected Sub BtnCrear_Click(sender As Object, e As EventArgs) Handles BtnAgregarGeoreferencia.Click
        Dim GeoRefString As String
        Dim ObjGPS As New ClsGPS
        ObjGPS.IniciaTransacSQL()
        Dim TieneError As Boolean = False
        Try
            If HdnTipo.Value = "Georuta" Then
                GeoRefString = CommandArg.Value
                Dim CoordsPuntos() As String = GeoRefString.Split("+"c)
                GeoRefString = ""
                For Each coordenada As String In CoordsPuntos
                    If coordenada Is CoordsPuntos.Last Then
                        Exit For
                    End If
                    coordenada = coordenada.Replace("(", "").Replace(")", "")
                    Dim LatLng() As String = coordenada.Split(","c)
                    GeoRefString = $"{GeoRefString} {LatLng(1).Trim} {LatLng(0).Trim},"
                Next
                GeoRefString = GeoRefString.Substring(0, GeoRefString.Length - 1)
                GeoRefString = $"LINESTRING({GeoRefString})"
                If ObjGPS.GeoReferenciaAdd(TxtNombre.Text, -1, GeoRefString, "Ruta", True, TxtFechaIG.Text.ToDate, TxtFechaFG.Text.ToDate, chkLunes.Checked, chkMartes.Checked, chkMiercoles.Checked, chkJueves.Checked, chkViernes.Checked, chkSabado.Checked, chkDomingo.Checked, MinFecha, MaxFecha, TxtColor.Text, TxtTolerancia.Text.ToEntero, UsuarioActual.CveCliente) Then
                    For Each Dr As GridViewRow In GvEquiposDetalle.Rows
                        If Dr.RowType = DataControlRowType.DataRow Then
                            If Not ObjGPS.AddGeoReferenciaDetalle(ObjGPS.CveGeoReferencia, Dr.DataKey("CveDispositivo").ToString.ToEntero) Then
                                TieneError = True
                                Exit For
                            End If
                        End If
                    Next
                End If
                'RegistraScript("CreaRuta();")
            ElseIf HdnTipo.Value = "Geocerca" Then
                GeoRefString = $"POLYGON(({GeoCerca.Value}))"
                If ObjGPS.GeoReferenciaAdd(TxtNombre.Text, -1, GeoRefString, "Geocerca", True, TxtFechaIG.Text.ToDate, TxtFechaFG.Text.ToDate, chkLunes.Checked, chkMartes.Checked, chkMiercoles.Checked, chkJueves.Checked, chkViernes.Checked, chkSabado.Checked, chkDomingo.Checked, MinFecha, MaxFecha, TxtColor.Text, TxtTolerancia.Text.ToEntero, UsuarioActual.CveCliente) Then
                    For Each Dr As GridViewRow In GvEquiposDetalle.Rows
                        If Dr.RowType = DataControlRowType.DataRow Then
                            If Not ObjGPS.AddGeoReferenciaDetalle(ObjGPS.CveGeoReferencia, Dr.DataKey("CveDispositivo").ToString.ToEntero) Then
                                TieneError = True
                                Exit For
                            End If
                        End If
                    Next
                End If
            End If
        Catch ex As Exception
            OnError("Ocurrió un error al crear la georeferencia", ex)
        End Try
        If TieneError Then
            ObjGPS.RollBack()
            Alert("Ocurrió un error al crear la georeferencia", TipoMensaje.MsgInformacion)
        Else
            ObjGPS.Commit()
            Alert("Se agregó correctamente la georeferencia", TipoMensaje.MsgInformacion)
        End If

        ObjGPS.Dispose()
        RegistraScript("Limpieza();")
        GeoRefString = ""
        ' DdlEquipo.SelectedValue = "-1"
        chkLunes.Checked = False
        chkMartes.Checked = False
        chkMiercoles.Checked = False
        chkJueves.Checked = False
        chkViernes.Checked = False
        chkSabado.Checked = False
        chkDomingo.Checked = False
        'TxtHoraI.Text = ""
        'TxtHoraF.Text = ""

    End Sub

    Protected Sub LnkAgregarGeoHist_Click(sender As Object, e As EventArgs)



        'RegistraScript("Limpieza();")
        'GeoRefString = ""
        'DdlEquipo.SelectedValue = "-1"
        'chkLunes.Checked = False
        'chkMartes.Checked = False
        'chkMiercoles.Checked = False
        'chkJueves.Checked = False
        'chkViernes.Checked = False
        'chkSabado.Checked = False
        'chkDomingo.Checked = False

    End Sub

#End Region



#Region "IMPRESIONES"
    Public Sub EnviarReporteProgramado(Format As String)
        Dim retorno As Byte()
        Dim RutaReporte As String = ""
        Dim NombreReporte As String = ""
        If Opcion = "KM" Then
            If GVKm.Rows.Count > 0 Then
                RutaReporte = "Empresas/Grales/ReportesProgramados/RPTKmRecorridos.rdlc"
                NombreReporte = "ReporteKMRecorridos"

                Try
                    Dim RptParametro As New List(Of ReportParameter)
                    RptParametro.Add(New ReportParameter("FechaInicio", FechaI.ToString))
                    RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToString))
                    RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
                    RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString))

                    retorno = StreamPDF(RutaReporte, DtDatos, RptParametro, $"{NombreReporte}{Date.Now.ToShortDateString}", Format, MR:=Nothing, RDSName:="DsOC")

                    ImprimirbytesPDF(retorno, $"{NombreReporte}{Date.Now.ToShortDateString}", Format)


                Catch ex As Exception
                    GuardaLog(String.Format("Ocurrio un error al generar el reporte RLDC {0}", ex))
                End Try


            Else
                Alert("No se pudo imprimir el pdf, ya que no se ha hecho una consulta, o ésta no arrojó resultados.", TipoMensaje.MsgInformacion)
            End If
        ElseIf Opcion = "All" Then
            If GvBarra.Rows.Count > 0 Then

                RutaReporte = "Empresas/Grales/ReportesProgramados/RPTHistorico.rpt"
                NombreReporte = "ReporteHistorico"

                Try
                    Dim RptParametro As New List(Of CrystalParametro)
                    RptParametro.Add(New CrystalParametro("FechaInicio", FechaI.ToString))
                    RptParametro.Add(New CrystalParametro("FechaFin", FechaF.ToString))
                    RptParametro.Add(New CrystalParametro("MapaURL", ""))
                    RptParametro.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Usuario))
                    RptParametro.Add(New CrystalParametro("FechaImpresion", DateTime.Now.ToShortDateString))
                    RptParametro.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Usuario))
                    RptParametro.Add(New CrystalParametro("KMRecorridos", DtPosiciones.SUM("KMRecorridos").ToString))

                    Dim DtDatos As New DataTable()

                    DtDatos.Columns.Add("Vehiculo", GetType(String))
                    DtDatos.Columns.Add("Fecha", GetType(String))
                    DtDatos.Columns.Add("Posicion", GetType(String))
                    DtDatos.Columns.Add("TiempoDetenido", GetType(String))
                    DtDatos.Columns.Add("Conductor", GetType(String))
                    DtDatos.Columns.Add("Velocidad", GetType(String))
                    DtDatos.Columns.Add("Evento", GetType(String))
                    DtDatos.Columns.Add("LatLng", GetType(String))

                    Dim Direcciones As String() = HdnDirecciones.Value.Split(";"c)
                    Dim i = 0
                    Try
                        For Each row As DataRow In DtPosiciones.Rows
                            Dim DrNew = DtDatos.NewRow()
                            DrNew("Vehiculo") = row("Vehiculo")
                            DrNew("Fecha") = row("Fecha")
                            DrNew("TiempoDetenido") = row("TiempoDetenido")
                            DrNew("Evento") = row("Evento")
                            DrNew("Velocidad") = row("Velocidad")
                            If i < Direcciones.Length Then
                                DrNew("Posicion") = If(String.IsNullOrEmpty(Direcciones(i)), "Dirección no encontrada", Direcciones(i))
                            Else
                                DrNew("Posicion") = "Dirección no encontrada"
                            End If
                            DrNew("LatLng") = row("Posicion").ToString.Replace("{", "").Replace("}", "")
                            DtDatos.Rows.Add(DrNew)
                            i = i + 1
                        Next
                    Catch ex As Exception
                        GuardaLog(String.Format("Ocurrio un error al generar el reporte RLDC {0}", ex))
                    End Try

                    ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/ReportesProgramados/RPTHistorico.rpt"), DtDatos, RptParametro, NombreReporte), "LibroDiario")

                    'retorno = StreamPDF(RutaReporte, DtDatos, RptParametro, $"{NombreReporte}_{Date.Now.ToShortDateString}", Format, MR:=Nothing, RDSName:="DsOC")

                    'If Opcion = "Idle" Then
                    '    RptParametro.Add(New ReportParameter("TiempoMuerto", TxtMinutos.Text + " Minutos"))
                    'End If
                    'retorno = StreamPDF(RutaReporte, DtDatos, RptParametro, $"{NombreReporte}{Date.Now.ToShortDateString}", Format, MR:=Nothing, RDSName:="DsOC")

                    'ImprimirbytesPDF(retorno, $"{NombreReporte}{Date.Now.ToShortDateString}", Format)

                    DtDatos.Clear()

                Catch ex As Exception
                    GuardaLog(String.Format("Ocurrio un error al generar el reporte RLDC {0}", ex))
                End Try
            Else
                Alert("No se pudo imprimir el pdf, ya que no se ha hecho una consulta, o ésta no arrojó resultados.", TipoMensaje.MsgInformacion)
            End If
        Else
            If GvBarra.Rows.Count > 0 Then
                Select Case Opcion
                    Case "Idle"
                        RutaReporte = "Empresas/Grales/ReportesProgramados/RPTiempoMuerto.rdlc"
                        NombreReporte = "ReporteTiempoMuerto"
                    Case "Ralenti"
                        RutaReporte = "Empresas/Grales/ReportesProgramados/RPTRalenti.rdlc"
                        NombreReporte = "ReporteRalenti"
                End Select
                Try
                    Dim RptParametro As New List(Of ReportParameter)
                    RptParametro.Add(New ReportParameter("FechaInicio", FechaI.ToString))
                    RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToString))
                    RptParametro.Add(New ReportParameter("MapaURL", ""))
                    RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
                    RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString))
                    RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))

                    If Opcion = "Idle" Then
                        RptParametro.Add(New ReportParameter("TiempoMuerto", TxtMinutos.Text + " Minutos"))
                    End If


                    Dim DtDatos As New DataTable()

                    DtDatos.Columns.Add("Unidad", GetType(String))
                    DtDatos.Columns.Add("Fecha", GetType(String))
                    DtDatos.Columns.Add("Direccion", GetType(String))
                    DtDatos.Columns.Add("TiempoDetenido", GetType(String))
                    DtDatos.Columns.Add("Conductor", GetType(String))


                    For Each row As GridViewRow In GvBarra.Rows
                        Dim DrNew = DtDatos.NewRow()
                        DrNew("Unidad") = row.Cells(0).Text
                        DrNew("Fecha") = row.Cells(1).Text
                        DrNew("Direccion") = row.FCHiddenField("hdnDireccion").Value
                        DrNew("TiempoDetenido") = row.Cells(3).Text
                        '  DrNew("Conductor") = DtPosiciones()
                        DtDatos.Rows.Add(DrNew)
                    Next


                    retorno = StreamPDF(RutaReporte, DtDatos, RptParametro, $"{NombreReporte}{Date.Now.ToShortDateString}", Format, MR:=Nothing, RDSName:="DsOC")



                    'Dim ObjMail As New ClsSisMail()
                    'Dim ObjEmpresa As New ClsSisEmpresas()
                    'ObjEmpresa.GetEmpresas(1, "-1", "-1", "-1", "-1")

                    'Dim ResultadoMail As Integer = 0

                    'Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)

                    'LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = retorno, .NombreArchivo = "ReporteProgramado.pdf"})
                    'LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = Xml})

                    ImprimirbytesPDF(retorno, $"{NombreReporte}{Date.Now.ToShortDateString}", Format)

                    DtDatos.Clear()

                Catch ex As Exception
                    GuardaLog(String.Format("Ocurrio un error al generar el reporte RLDC {0}", ex))
                End Try
            Else
                Alert("No se pudo imprimir el pdf, ya que no se ha hecho una consulta, o ésta no arrojó resultados.", TipoMensaje.MsgInformacion)
            End If
        End If

    End Sub


    Protected Sub btnImprimir_Click(sender As Object, e As EventArgs)
        Dim Btn As Button = CType(sender, Button)
        Dim Format = Btn.CommandArgument
        EnviarReporteProgramado(Format)
    End Sub


    Protected Sub btnImprimir_ClickKM(sender As Object, e As EventArgs)
        Dim Btn As Button = CType(sender, Button)
        Dim Format = Btn.CommandArgument
        EnviarReporteProgramado(Format)
    End Sub

#End Region

    Protected Sub BtnCargaRecorrido_Click(sender As Object, e As EventArgs)
        Dim ObjGPS As New ClsGPS
        Dim Correcto = ObjGPS.RecorridoGet(UsuarioActual.CveCliente, FechaI, FechaF, HdnKM.Value.ToEntero)
        Dim Recorrido As String = ""
        Dim StrRecorrido As New StringBuilder
        StrRecorrido.Append("[")
        Dim ColorTrazo As String = ""
        If Correcto Then
            'For Each Coord As String In ObjGPS.DtResultados.Rows(0)("Recorrido").ToString.Split(",")
            '    StrRecorrido.AppendFormat("{0},", SQLToGmapsJArray().ToString())
            'Next
            Recorrido = SQLToGmapsJArray(ObjGPS.DtResultados.Rows(0)("Recorrido").ToString, "FDFDSFDSFS").ToString
            Dim color = GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("ColorTrazo", $"CveDispositivo = {ObjGPS.DtResultados.Rows(0)("CveDispositivo").ToString}")
            ColorTrazo = If(String.IsNullOrEmpty(color), "#3393FF", color)
        End If
        StrRecorrido.Append("]")
        ObjGPS.Dispose()

        If Not String.IsNullOrEmpty(Recorrido) Then
            RegistraScript($"creaPolyline({Recorrido}, '{ColorTrazo}', '', '', '', '',-1)")
        End If

    End Sub
    Protected Sub BtnFiltrarFechaGV_Click(sender As Object, e As EventArgs)

        Dim retorno As Byte()
        Dim RutaReporte As String = ""
        Dim NombreReporte As String = ""
        Dim CveDispositivo As Integer = DtPosiciones.Rows(0)("CveDispositivo").ToString.ToEntero

        Dim GrupoMinutos = 30
        Dim GrupoHoras = 1
        Dim GrupoDias = 1

        Dim ObjGPS As New ClsGPS
        Dim Correcto = ObjGPS.GetHistorialPasajeros(CveDispositivo, TxtFechaGVI.Text.ToDateTime, TxtFechaGVF.Text.ToDateTime, GrupoMinutos, GrupoHoras, GrupoDias)
        Dim DtHistorialPasajeros = ObjGPS.DtResultados.Copy()
        ObjGPS.Dispose()

        If Correcto Then
            Try
                RutaReporte = "Empresas/Grales/ReportesProgramados/RPTPasajeros.rdlc"
                NombreReporte = "ReportePasajeros"

                Dim RptParametro As New List(Of ReportParameter)
                RptParametro.Add(New ReportParameter("FechaInicio", TxtFechaGVI.Text.ToString))
                RptParametro.Add(New ReportParameter("FechaFin", TxtFechaGVF.Text.ToString))
                RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
                RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString))


                retorno = StreamPDF(RutaReporte, DtHistorialPasajeros, RptParametro, $"{NombreReporte}{Date.Now.ToShortDateString}", "PDF", MR:=Nothing, RDSName:="DsOC")

                ImprimirbytesPDF(retorno, $"{NombreReporte}{Date.Now.ToShortDateString}")

            Catch ex As Exception
                GuardaLog(String.Format("Ocurrio un error al generar el reporte RLDC {0}", ex))
            End Try
        End If
    End Sub

    Private Function SQLToGmapsJArray(CoordsSQL As String, Tipo As String) As JArray
        Dim CoordsPoligono As String = CoordsSQL.Replace($"{Tipo}", "").Replace(")", "").Replace("(", "")
        Dim CoordsPuntos() As String = CoordsPoligono.Split(","c)

        Dim Json As New JArray(From coord In CoordsPuntos
                               Let c = coord.Trim.Split(" "c)
                               Select New JObject(
                                   New JProperty("lat", c(1).ToDouble),
                                   New JProperty("lng", c(0).ToDouble)
                                   )
                               )

        Return Json
    End Function
    Protected Sub LnkAgregarGeoHist_Click1(sender As Object, e As EventArgs)
        Dim TieneError As Boolean = False
        Dim ObjGPS As New ClsGPS
        ObjGPS.IniciaTransacSQL()
        Try
            'Dim JsonGeoRutas As JArray = JArray.Parse(GeoRutaHistorico.Value)
            Dim Geo As JObject = JObject.Parse(GeoRutaHistorico.Value)
            If Geo IsNot Nothing Then

                Dim CveDispositivo = Geo("ValueEquipo").ToString.ToEntero
                Dim Coords As JArray = JArray.Parse(Geo("Cordenadas").ToString)

                If Coords.Any Then
                    Dim GeoRefString As New StringBuilder()

                    GeoRefString.Append("LINESTRING(")

                    Dim Index = 0
                    Dim IndexFinal = Coords.Count - 1

                    For Each Coord As JObject In Coords

                        Dim Lat = Coord("lat").ToString
                        Dim Lng = Coord("lng").ToString

                        If Index = 0 Then
                            GeoRefString.AppendFormat("{0} {1},", Lng, Lat)
                        ElseIf Index = IndexFinal Then
                            Dim UltimaPos = Geo("UltimaPos")
                            GeoRefString.AppendFormat("{0} {1})", UltimaPos("lng"), UltimaPos("lat"))
                        Else
                            GeoRefString.AppendFormat(" {0} {1},", Lng, Lat)
                        End If
                        Index = Index + 1
                    Next
                    If ObjGPS.GeoReferenciaAdd(TxtNombreHis.Text, CveDispositivo, GeoRefString.ToString, "Ruta", True, TxtFechaIHis.Text.ToDate, TxtFechaFHis.Text.ToDate, ChkLunesH.Checked, ChkMartesH.Checked, ChkMiercolesH.Checked, ChkJuevesH.Checked, ChkViernesH.Checked, ChkSabadoH.Checked, ChkDomingoH.Checked, MinFecha, MaxFecha, TxtColorH.Text, TxtToleHis.Text.ToEntero, UsuarioActual.CveCliente) Then
                        If Not ObjGPS.AddGeoReferenciaDetalle(ObjGPS.CveGeoReferencia, CveDispositivo) Then
                            TieneError = True
                        End If
                    Else
                        TieneError = True
                    End If
                End If
            End If

        Catch ex As Exception
            OnError("Ocurrió un error al crear la georeferencia", ex)
        End Try
        If TieneError Then
            ObjGPS.RollBack()
            Alert("Ocurrió un error al crear la Ruta", TipoMensaje.MsgInformacion)
        Else
            ObjGPS.Commit()
            Alert("Se agregó correctamente la Ruta", TipoMensaje.MsgInformacion)
        End If
        ObjGPS.Dispose()
    End Sub
    Public Function InfoWindowCombustible(Header As String, ExtraBody As String, CveDispositivo As Integer, row As DataRow, Optional PermisoComandos As Boolean = True) As String
        Dim SBuilder As New StringBuilder
        SBuilder.Clear()
        SBuilder.Append($"<div>")
        SBuilder.Append($"<div><h5><a target=\'_blank\' href=\'/GPS/Vehiculos.aspx?CveDispositivo={CveDispositivo}\'><b>{Header}</b></a></h5></div>")
        SBuilder.Append($"<div><table>")
        Try
            SBuilder.Append($"<tr><td>Fecha : {row("FechaTrama")} </td></tr>")
            SBuilder.Append($"<tr><td>Conductor : {row("Conductor").ToString}</td></tr>")
            If row.Table.Columns.Contains("Combustible") Then
                SBuilder.Append($"<tr><td>Combustible : {IfNull(row("Combustible"), "NO DISPONIBLE", $"{row("Combustible").ToString.FormatoNumero} lts").ToString}</td></tr>")
            End If
            If row("SPD").ToString <> "-1" Then
                SBuilder.Append($"<tr><td>Velocidad : {row("SPD").ToString} KM/H </td></tr>")
            End If
            If ExtraBody <> "" AndAlso ExtraBody <> "-1" Then
                SBuilder.Append(ExtraBody)
            End If
            'If PermisoComandos Then
            SBuilder.Append($"<tr><td><a href=""javascript:;"" onclick=""CargaComandos(\'{row("Vehiculo").ToString}\',{CveDispositivo});"">Comandos</a></td></tr>")
            SBuilder.AppendFormat("<tr><td><a target=\'_blank\' href=\'https://www.google.com/maps/search/{0},{1}/\'>Ver en google maps</a></td></tr>", row("Lat").ToString, row("Lng").ToString)
            'End If
        Catch ex As Exception

        End Try
        SBuilder.Append($"</table></div><div></div></div>")
        Return SBuilder.ToString
    End Function

#Region "G E O C E R C A S"
    Protected Sub GvEquiposDetalle_RowDeleting(sender As Object, e As GridViewDeleteEventArgs)
        DtDetalle.Rows.RemoveAt(e.RowIndex)

        GvEquiposDetalle.DataSource = DtDetalle
        GvEquiposDetalle.DataBind()

        UpAgregar.Update()
    End Sub
    Protected Sub LnkAgregarDisp_Click(sender As Object, e As EventArgs)

        Dim CveDispositivo As Integer = DdlEquipoD.SelectedValue.ToEntero
        If CveDispositivo > 0 Then
            Dim NoEconomico As String = DdlEquipoD.SelectedItem.Text

            If Not DtDetalle.Select($"CveDispositivo={CveDispositivo}").Any() Then
                Dim Dr As DataRow = DtDetalle.NewRow
                Dr("CveDispositivo") = CveDispositivo
                Dr("NoEconomico") = NoEconomico
                Dr("CveDispositivoGeoReferenciaDetalle") = -1

                DtDetalle.Rows.Add(Dr)
                DtDetalle.AcceptChanges()
            Else
                Alert($"El dispositivo '{NoEconomico} ya existe en la tabla.'", TipoMensaje.MsgAdvertencia)
            End If
            GvEquiposDetalle.DataSource = DtDetalle
            GvEquiposDetalle.DataBind()
        End If
        UpAgregar.Update()
        RegistraScript("CargaPickersHora();", "1")
    End Sub
    Protected Sub LnkAgregarGrupo_Click(sender As Object, e As EventArgs)
        Dim CveGrupo As Integer = DdlGrupo.SelectedValue.ToEntero

        Using ObjGPS As New ClsGPS

            If ObjGPS.GruposDetallesGet(CveGrupo) Then
                Dim Query = From dr In ObjGPS.DtResultados
                            Select CveDispositivo = dr("CveDispositivo").ToString.ToEntero, NoEconomico = dr("NoEconomico").ToString, CveDispositivoGeoReferenciaDetalle = -1

                Dim dt As DataTable = Query.QueryToDataTable(True)
                dt.PrimaryKey = New DataColumn() {dt.Columns(0)}
                DtDetalle.Merge(dt, True, MissingSchemaAction.Ignore)

            End If

        End Using
        GvEquiposDetalle.DataSource = DtDetalle
        GvEquiposDetalle.DataBind()
        UpAgregar.Update()
    End Sub

#End Region
    Protected Sub btnPagePrev_Click(sender As Object, e As EventArgs)
        Dim TotalRegistros As Integer = DtPosiciones.Rows.Count
        Dim TotalRowsPage As Integer = GvBarra.PageSize
        Dim PrevIndex As Integer = HdnIndexPage.Value.ToEntero - 1
        Dim CurrentIndex As Integer = PrevIndex + 1

        Dim PrevIndexDT As Integer = (TotalRowsPage) * PrevIndex
        Dim CurrentIndexDT As Integer = (TotalRowsPage) * CurrentIndex

        HdnIndexPage.Value = PrevIndex.ToString

        If Not btnPageNext.Enabled Then
            btnPageNext.Enabled = True
        End If

        If PrevIndexDT <= 0 Then
            btnPagePrev.Enabled = False
            GvBarra.DataSource = DtPosiciones.FiltraPorIndices(0, CurrentIndexDT)
            LblRegistros.Text = $"Distribución de datos desde 0 hasta {CurrentIndexDT.ToString.FormatoNumero(0)}.   Total de registros: {DtPosiciones.Rows.Count.ToString.FormatoNumero(0)}"
        Else
            LblRegistros.Text = $"Distribución de datos desde {PrevIndexDT.ToString.FormatoNumero(0)} hasta {CurrentIndexDT.ToString.FormatoNumero(0)}.   Total de registros: {DtPosiciones.Rows.Count.ToString.FormatoNumero(0)}"
            GvBarra.DataSource = DtPosiciones.FiltraPorIndices(PrevIndexDT, CurrentIndexDT)
        End If

        GvBarra.DataBind()
        UPGV.Update()

        RegistraScript("setTimeout(function(){OpcionesHistorico();},500);")
    End Sub
    Protected Sub btnPageNext_Click(sender As Object, e As EventArgs)
        Dim TotalRegistros As Integer = DtPosiciones.Rows.Count
        Dim TotalRowsPage As Integer = GvBarra.PageSize
        Dim Index As Integer = HdnIndexPage.Value.ToEntero + 1
        Dim NextIndex As Integer = Index + 1

        Dim CurrentIndexDT As Integer = (TotalRowsPage) * Index
        Dim NextIndexDT As Integer = (TotalRowsPage) * NextIndex

        HdnIndexPage.Value = Index.ToString

        If Not btnPagePrev.Enabled Then
            btnPagePrev.Enabled = True
        End If

        If NextIndexDT >= TotalRegistros Then
            btnPageNext.Enabled = False
            GvBarra.DataSource = DtPosiciones.FiltraPorIndices(CurrentIndexDT, TotalRegistros - 1)
            LblRegistros.Text = $"Distribución de datos desde {CurrentIndexDT.ToString.FormatoNumero(0)} hasta {DtPosiciones.Rows.Count.ToString.FormatoNumero(0)}.   Total de registros: {DtPosiciones.Rows.Count.ToString.FormatoNumero(0)}"
        Else
            GvBarra.DataSource = DtPosiciones.FiltraPorIndices(CurrentIndexDT, NextIndexDT)
            LblRegistros.Text = $"Distribución de datos desde {CurrentIndexDT.ToString.FormatoNumero(0)} hasta {NextIndexDT.ToString.FormatoNumero(0)}.   Total de registros: {DtPosiciones.Rows.Count.ToString.FormatoNumero(0)}"
        End If

        GvBarra.DataBind()
        UPGV.Update()

        RegistraScript("setTimeout(function(){OpcionesHistorico();},500);")
    End Sub
End Class