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