Hi. Tariq
You can index all your field in your tables.
this make it more faster,

1) ACC_CODE
2) ACC_CODE1
3) FDATE1

index this field in your tables. Another thing is to use SELECT - SQL to sum
all this field.

Vanzetty Durant
Aplicaciones & Desarrollo,S.A.
Santo Domingo, Rep.Dominicana






>Dear Experts,
>
>Following codes work fine but take more than a minute.
>How to speed up these code.
>
>Please help
>
>

>F_DATE1 = THISFORM.TEXT1.VALUE
>T_DATE1 = THISFORM.TEXT10.VALUE
>ACC_CODE1 = SPACE(7)
>ACC_CODE1 = THISFORm.TEXT11.VALUE
>
>FDATE1 = F_DATE1
>DO WHILE FDATE1<=T_DATE1
>	STORE 0 TO DR1, DR2, DR3, CR1, CR2, CR3
>	SELECT VOUCHERS
>	SUM FOR (ACC_CODE=ACC_CODE1) .AND. (DATE=FDATE1) DRAMT TO DR1
>	SUM FOR (ACC_CODE=ACC_CODE1) .AND. (DATE=FDATE1) CRAMT TO CR1
>	SELECT CASHPRP
>	SUM FOR (ACC_CODE=ACC_CODE1) .AND. (DATE=FDATE1) DRAMT TO DR2
>	SUM FOR (ACC_CODE=ACC_CODE1) .AND. (DATE=FDATE1) CRAMT TO CR2
>	SELECT CASHSALP
>	SUM FOR (ACC_CODE=ACC_CODE1) .AND. (DATE=FDATE1) DRAMT TO DR3
>	SUM FOR (ACC_CODE=ACC_CODE1) .AND. (DATE=FDATE1) CRAMT TO CR3
>
>	DR4=DR1+DR2+DR3
>	CR4=CR1+CR2+CR3
>
>	IF DR4>0 .OR. CR4>0
>		SELECT CASH_F
>		APPEND BLANK
>		REPLACE DATE WITH FDATE1, DEBIT WITH DR4, CREDIT WITH CR4
>	ENDIF
>	FDATE1 = FDATE1+1
>ENDDO
>