From 8d693c1764cf6072a3b8ee0762fd8d72d87fb700 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 3 Jul 2020 13:38:04 -0700
Subject: [PATCH] Correciones

---
 GPS/RecursoConfiableTracking.aspx.vb | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/GPS/RecursoConfiableTracking.aspx.vb b/GPS/RecursoConfiableTracking.aspx.vb
index f88665cbe..1981c4ce8 100644
--- a/GPS/RecursoConfiableTracking.aspx.vb
+++ b/GPS/RecursoConfiableTracking.aspx.vb
@@ -25,11 +25,13 @@ Partial Class GPS_RecursoConfiableTracking
 
     Public Sub CargaDispositivos()
 
-        DdlDispositivoFiltro.DataSource = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario)
+        Dim DtDispositivos As DataTable = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario).FiltraParametros("Estatus = 1 AND PlacasVehiculo IS NOT NULL AND PlacasVehiculo <> ''")
+
+        DdlDispositivoFiltro.DataSource = DtDispositivos
         DdlDispositivoFiltro.DataBind()
         DdlDispositivoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlDispositivo.DataSource = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario).FiltraParametros("PlacasVehiculo IS NOT NULL AND PlacasVehiculo <> ''")
+        DdlDispositivo.DataSource = DtDispositivos
         DdlDispositivo.DataBind()
         DdlDispositivo.Items.Insert(0, New ListItem("Seleccione", "-1"))