Tariq,

It's much simpler to do with a query

SELECT date, SUM(dr_amount) AS debit, SUM(cr_amount) AS credit ;
	FROM vouchers ;
	WHERE acc_code = m.acc_code1 AND  date = m.fdate1 ;
	INTO CURSOR crsSums

SELECT 	cash_f
APPEND FROM ( DBF("crsSums") )

>
>In do whlile, to see status I use follwong line
>

>@ 11, 39 SAY FDATE1 COLOR W+/RB
>

>But now I want to use progressbar instead of above line.
>How is it possible?
>
>Please Help
>
>

>DO WHILE FDATE1<=T_DATE1
>	@ 11, 39 SAY FDATE1 COLOR W+/RB
>	STORE 0 TO DR1, DR2, DR3, CR1, CR2, CR3
>	SELECT VOUCHERS
>	SUM FOR (ACC_CODE=ACC_CODE1) .AND. (DATE=FDATE1) DR_AMOUNT TO DR1
>	SUM FOR (ACC_CODE=ACC_CODE1) .AND. (DATE=FDATE1) CR_AMOUNT TO CR1
>	IF DR1>0 .OR. CR1>0
>		SELECT CASH_F
>		APPEND BLANK
>		REPLACE DATE WITH FDATE1, DEBIT WITH DR1, CREDIT WITH CR1
>	ENDIF
>	FDATE1 = FDATE1+1
>ENDDO
>