SELECT BB
SET ORDER TO Tag Numero
SELECT Direto
SET RELATION TO Cod_Fast INTO BB
REPLACE ALL Liberado WITH .T. FOR FOUND("BB")

>It there a better way to rearrange the code below ?
>
>
> SELECT BB
> SCAN
>
> SELECT direto
> LOCATE FOR DIRETO.COD_FAST = BB.NUMERO
> IF FOUND()
> REPLACE BB.LIBERADO WITH .T.
> ENDIF
>
>ENDSCAN