Hi Tariq
I would change the second DO WHILE to this:
SELECT VOUCHERS
LOCATE for date=AA and VOU_NO=bb and VOU_TYPE=cc
DO while date=AA and VOU_NO=bb and VOU_TYPE=cc
REPLACE d1 WITH dd
SKIP
ENDDO
>Dear Experts
>
>The following command do nothing and curosr seems to be working for a long time.
>Please make some changes to work
>
>SELECT vou_sum
>GO top
>DO while !eof()
> AA=date
> bb=VOU_NO
> cc=ALLTRIM(VOU_TYPE)
> dd=d1
>
> SELECT VOUCHERS
> LOCATE for date=AA and VOU_NO=bb and VOU_TYPE=cc
> DO while FOUND()
> REPLACE d1 WITH dd
> ENDDO
>
> SELECT vou_sum
> Skip
>ENDDO
>
Benn Kjaer
MS Certified Professional - Visual Foxpro
"There is something rotten in the state of Denmark"
"Why make user-friendly programs, when there aren’t any friendly users :o)"