Did you try my first post?

>mydate=ctod("01/01/2006")
>mydate1=ctod("28/02/2006")
>sele a
>use igroup
>inde on igroup for selg='Y' to selig
>
>sele b
>use pcode1
>set rela to igroup into igroup addi
>inde on pcode for found("igroup") to selpc
>
>sele c
>use selsal
>inde on billno for sels='Y' to selbill
>
>use sales1
>set order to billdate
>set rela to billno into selsal addi
>set rela to pcode into pcode1 addi
>
>seek mydate
>copy to tsales1 for found("selsal") and found("pcode1") WHILE BILLDATE<=MYDATE1
>SELE F
>USE TSALES1
>
>please help me.
>
>WARM REGARDS,
>MK.