>>>>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
>>>

>>Check Moises' code, and you will see that he first DELETE ALL, then he APPENDs, then he DELETEs the first record which is already deleted...! After the first DELETE ALL he has forgotten to PACK. Nevertheless he uses a zillion lines to do something which could be done in two lines.
>
>O! Sh.....t!
>:-)
>You are right of course.

I guess I have a better Monday than someone else today! :-)