>The scan below is not running
>
>SELECT email_anexo
>
> SCAN
>
> thisform.refresh
> LOCATE FOR emails.cod = email_anexo.id
>
> IF FOUND()
> replace email_anexo.spam with .F.
> ELSE
> replace email_anexo.spam with .T.
> ENDIF
>
> ENDSCAN


Do you want your replace for only one particular Emails.Cod?

If yes, then

lcCode = emails.Code

update Email_Anexo set Spam = .F. where exists (select 1 from Email_Anexo EA where ID = lcCode and ID = Email_Anexo.ID)
update Email_Anexo set Spam = .T. where not exists (select 1 from Email_Anexo EA where ID = lcCode and ID = Email_Anexo.ID)

Or simply

update EMail_Anexo set Spam = .F. where ID = lcCode
update EMail_Anexo set Spam = .T. where ID <> lcCode

Finally, using Borislav's idea simply

replace all Spam with ID <> lcCode in Email_Anexo