diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index af0790b36..bce30ff42 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -779,7 +779,7 @@ Partial Class Inventarios_EntradasSalidas
             'Carga Cliente y ClienteSucursal
             If Mov.CveCliente > 0 Then
                 If DdlClientes.Items.FindByValue(Mov.CveCliente.ToString()) Is Nothing Then
-                    Dim dr As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=Mov.CveCliente).FiltroPrimero("")
+                    Dim dr As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=Mov.CveCliente, Estatus:=-1).FiltroPrimero("")
                     If dr IsNot Nothing Then
                         DdlClientes.Items.Insert(0, New ListItem(dr("NombreComercial").ToString, dr("CveCliente").ToString))
                     End If