diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 444381642..162abeeab 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -994,7 +994,7 @@ Partial Class Clientes
 
     Private Sub CargaResponsables()
         Dim Dt As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("True", "Nombre")
-        DdlResponsable.DataSource = Dt.FiltraParametros("", "", {"CveUsuario", "Nombre"})
+        DdlResponsable.DataSource = Dt.FiltraParametros("Estatus = 1", "", {"CveUsuario", "Nombre"})
         DdlResponsable.DataBind()
         DdlResponsable.Items.Insert(0, New ListItem("Seleccione", "-1"))