>I`m using Scan........Endscan to print all records in a table marked for deleted.
>
>select (vfich1)
>
>Scan for deleted()

what is the scatter used for?

> scatter memvar memo

why is the report in the scan loop?

> report form licencas to printer prompt noconsole
>

the following if/endif is unnecessary because scan/endcan does it

> if eof()
> exit
> endif
>endscan
>
>After the loop I`m i using the UPDATE - SQL to update all records marked for deleted in this table.
>
>UPDATE (VFICH1) Set impressa=.t. Where impressa=.f. and Deleted()
>
>The problem is that all records are eliminated and not updated
>
>How can I`do to resolve this situaction ?
>
>
>Thanks
>Carla

try this:

select (vfich1)

report  form  licencas to printer prompt noconsole for deleted()

lcSetDeleted = set("deleted")
set deleted off
UPDATE (VFICH1) Set  impressa=.t. Where impressa=.f.   and Deleted()
set deleted &lcSetDeleted