>SET DELETED ON
>
>txtPathName = "DADOS\ECT\" + "ECT" + CHRTRAN(DTOC(DATE()),"/","") + ".TXT"
>= MESSAGEBOX (txtPathName)
>SET SAFETY OFF
>COPY FILE (anxFullPth) TO (txtPathName)
>SELECT pgreembolso3
>DELETE ALL
>append FROM (txtPathName) type SDF && till here records are appended OK
>set safe on
>SELECT pgreembolso3
>
>Now I need to delete the first record , because its the header
>
>BROW
>GOTO 1
>DELETE
> PACK
>BROW ---- first record still there

NO WAY!
After PACK all deleted records should disappear.

SET DELETED ON

txtPathName =  "DADOS\ECT\" + "ECT" + CHRTRAN(DTOC(DATE()),"/","") + ".TXT"
= MESSAGEBOX (txtPathName)
SET SAFETY OFF
COPY FILE (anxFullPth) TO (txtPathName)
SELECT * FROM pgreembolso WHERE .f. INTO CURSOR pgreembolso3 READWRITE

SELECT pgreembolso3
append FROM (txtPathName)  type SDF  && till here records are appended OK
SELECT pgreembolso3
BROW
GOTO 1
DELETE
PACK
GO TOP
BROW