Dear Tariq,
The part in the middle:
LOCATE for date=AA and VOU_NO=bb and VOU_TYPE=cc
DO while FOUND()
REPLACE d1 WITH dd
ENDDO
Should be:
LOCATE for date=AA and VOU_NO=bb and VOU_TYPE=cc
DO while FOUND()
REPLACE d1 WITH dd
CONTINUE
ENDDO
BUT there is a shorter way; you can change that part to:
REPLACE for date=AA and VOU_NO=bb and VOU_TYPE=cc d1 WITH dd
So your code will look like:
SELECT vou_sum
GO top
DO while !eof()
AA=date && date type
bb=VOU_NO && numueric type
cc=ALLTRIM(VOU_TYPE)&& character type
dd=d1
SELECT VOUCHERS
REPLACE for date=AA and VOU_NO=bb and VOU_TYPE=cc d1 WITH dd
SELECT vou_sum
Skip
ENDDO
Then, make the next step: the sequence GO TOP, DO WHILE !EOF(), SELECT vou_sum, SKIP and ENDDO is equal to SCAN...ENDSCAN, so:
SELECT vou_sum
SCAN
AA=date && date type
bb=VOU_NO && numueric type
cc=ALLTRIM(VOU_TYPE)&& character type
dd=d1
SELECT VOUCHERS
REPLACE for date=AA and VOU_NO=bb and VOU_TYPE=cc d1 WITH dd
ENDSCAN
I hope you are helped with this.
Lennert Blom
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only