From b53abc064862ba446eab3a448980cd09cd626f96 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 26 Nov 2019 09:27:23 -0700
Subject: [PATCH] filtro clientes en app gps

---
 asmx/WSGPSApp.asmx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/asmx/WSGPSApp.asmx b/asmx/WSGPSApp.asmx
index 2fa5ca1ba..10120d159 100644
--- a/asmx/WSGPSApp.asmx
+++ b/asmx/WSGPSApp.asmx
@@ -128,7 +128,7 @@ Public Class WSGPSApp
                     DtModulos = Nothing
                 End If
                 UsuarioRetorno.Modulos = UsuariosModulos
-                Dim DtClientes As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltraParametros("CvePlataforma = 3 AND CveCliente > 0", "Empresa")
+                Dim DtClientes As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa")
                 If DtClientes IsNot Nothing Then
                     If DtClientes.Rows.Count > 0 Then
                         For Each Row As DataRow In DtClientes.Rows