Web service GPS, Requiere agregar lo siguiente en el web.config:

<endpoint address="http://gps.rcontrol.com.mx/Tracking/wcf/RCService.svc"
            binding="basicHttpBinding" bindingConfiguration="BasicHttpBinding_IRCService" contract="RCGPSService.IRCService" name="BasicHttpBinding_IRCService" />

GPS/RecursoConfiableTracking.aspx.vb

@@ -0,0 +1,119 @@
+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
+Imports System.Linq
+Imports System.Net.Http
+
+Partial Class GPS_RecursoConfiableTracking
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaDatos()
+        End If
+    End Sub
+    Private Sub CargaDatos()
+        CargaDispositivos()
+        CargaTracking()
+    End Sub
+
+    Public Sub CargaDispositivos()
+
+        DdlDispositivoFiltro.DataSource = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario)
+        DdlDispositivoFiltro.DataBind()
+        DdlDispositivoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlDispositivo.DataSource = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario).FiltraParametros("PlacasVehiculo <> ''")
+        DdlDispositivo.DataBind()
+        DdlDispositivo.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+        UpAgregar.Update()
+    End Sub
+    Private Sub CargaTracking()
+        Dim FechaI As DateTime = If(IsDate(txtFechaI.Text), txtFechaI.Text.ToDateTime(), MinFecha)
+        Dim FechaF As DateTime = If(IsDate(txtFechaF.Text), txtFechaF.Text.ToDateTime(), MaxFecha)
+
+        Dim ObjGPS As New ClsGPS
+        If ObjGPS.GetRCTracking(-1, DdlDispositivoFiltro.SelectedValue.ToEntero(), DdlEstatus.SelectedValue.ToEntero(), UsuarioActual.CveCliente, UsuarioActual.CveEmpresa, FechaI, FechaF) Then
+            GvDatos.DataSource = ObjGPS.DtResultados
+        End If
+        ObjGPS.Dispose()
+        GvDatos.DataBind()
+        UpDatos.Update()
+    End Sub
+
+    Protected Sub LnkAgregarTracking_Click(sender As Object, e As EventArgs)
+        RegistraScript("$('#DivAgregar').modal('show');")
+    End Sub
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        CargaTracking()
+    End Sub
+    Protected Sub LnkCambiarEstatus_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim CveRCTracking As Integer = GvRow.DataKey("CveRCTracking").ToEntero()
+        Dim Estatus As Boolean = CBool(GvRow.DataKey("CveEstatus").ToEntero())
+
+        Dim ObjGPS As New ClsGPS
+        If ObjGPS.UpdateRCTrackingEstatus(CveRCTracking, Not Estatus, UsuarioActual.CveUsuario) Then
+            Alert("El tracking fue desactivado correctamente")
+        Else
+            Alert("Ocurrió un error al actualizar el estatus", TipoMensaje.MsgError)
+        End If
+        ObjGPS.Dispose()
+
+        CargaDatos()
+    End Sub
+    Protected Sub GvDatos_RowDeleting(sender As Object, e As GridViewDeleteEventArgs)
+
+    End Sub
+    Protected Sub BtnAgregar_Click(sender As Object, e As EventArgs)
+        Dim Nombre As String = TxtNombre.Text.Trim()
+        Dim CveDispositivo As Integer = DdlDispositivo.SelectedValue.ToEntero()
+        Dim Shipment As String = TxtShipment.Text.Trim()
+
+        Dim ObjGPS As New ClsGPS
+        Dim CveRCTracking As Integer = ObjGPS.AddRCTracking(Nombre, CveDispositivo, Shipment, UsuarioActual.CveUsuario, UsuarioActual.CveCliente, UsuarioActual.CveEmpresa)
+        If CveRCTracking > 0 Then
+            Alert("El tracking fue agregado correctamente")
+        Else
+            Alert("Ocurrió un error el tracking", TipoMensaje.MsgError)
+        End If
+        ObjGPS.Dispose()
+
+        CargaDatos()
+        RegistraScript("$('#DivAgregar').modal('hide');")
+    End Sub
+
+    Protected Sub DdlDispositivo_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Dim CveDispositivo As Integer = DdlDispositivo.SelectedValue.ToEntero()
+
+        Dim RowDispositivo As DataRow = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario).FiltroPrimero($"CveDispositivo = {CveDispositivo}")
+
+        If RowDispositivo IsNot Nothing Then
+            If String.IsNullOrEmpty(RowDispositivo("PlacasVehiculo").ToString()) Then
+                Alert("El vehiculo no tiene placas asignadas", TipoMensaje.MsgAdvertencia)
+                BtnAgregar.Enabled = False
+            Else
+                BtnAgregar.Enabled = True
+            End If
+        End If
+        UpAgregar.Update()
+    End Sub
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("CveEstatus") = "1" Then
+                e.Row.FCLabel("LblEstatus").CssClass = "badge badge-success"
+            ElseIf e.Row.DBCampo("CveEstatus") = "0" Then
+                e.Row.FCLabel("LblEstatus").CssClass = "badge badge-secondary"
+            End If
+        End If
+    End Sub
+End Class