>SELECT PGREEMBOLSO
> GOTO 1
> aa = RECNO()
> if ("ME") $ pgReembolso.valor
> DELETE FOR RECNO() = aa
>= MESSAGEBOX("deleted")
>brow
> endif
>
>the message box confirms deletion but in browse the record is still there

Delete from PGREEMBOLSO where recno()=1 and "ME"$valor