SELECT VOUCHERS INDEX ON DTOC(DATE,5)+STR(VOU_NO, 5)+ALLTRIM(VOU_TYPE) TO VOUCHERS1 SELECT vou_sum INDEX ON DTOC(DATE,5)+STR(VOU_NO, 5)+ALLTRIM(VOU_TYPE) TO VOU_SUM1 SELECT VOUCHERS REPLACE all d1 with "" SELECT vou_sum GO Top DO While !Eof() AA=Date && date type bb=VOU_NO && numeric type cc=Alltrim(VOU_TYPE)&& character type dd=d1 SELECT VOUCHERS LOCATE For Date=AA And VOU_NO=bb And Alltrim(VOU_TYPE)=cc IF Found() REPLACE all d1 With dd For Date=AA And VOU_NO=bb And Alltrim(VOU_TYPE)=cc ENDIF SELECT vou_sum Skip ENDDO