> 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.Refresh >>I need to Know,one way for simplify my code, Do you can help me?