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