SELECT C_Listado nRecno= RECNO() DELETE ALL FOR Cliente = M.Cliente GO TOP SELECT C_Listado GO nRecno && SELECT C_ClientesA nRecno= RECNO() GO TOP IF !EOF() .lallowremove = .T. ENDIF SELECT C_ClientesA GO nRecno .Refresh && .GrdLista.SetFocus .GrdLista.Refresh && .GrdClientes.SetFocus .GrdClientes.RefreshI need to Know,one way for simplify my code, Do you can help me?