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