SELECT VOU_NO
INDE ON DTOC(DATE,8) TO VOU_NO1
ZAP

CLEAR
SELECT VOUCHERS
INDEX ON DTOC(DATE,5)+STR(VOU_NO, 5)+ALLTRIM(VOU_TYPE) TO VOUCHERS1

SELECT MIN(DATE) FROM VOUCHERS WHERE  NOT EMPTY(DATE) INTO CURSOR V
F_DATE1 = MIN_DATE
SELECT MAX(DATE) FROM VOUCHERS WHERE  NOT EMPTY(DATE) INTO CURSOR V
T_DATE1 = MAX_DATE

SELECT VOUCHERS
R = RECCOUNT()

DO WHILE F_DATE1<=T_DATE1
*scan for F_DATE1<=T_DATE1

	@ 13, 47 TO 17, 80 DOUBLE
	@ 14, 50 SAY 'WAIT FOR PROCESSING' COLOR W+/RB
	@ 15, 54 SAY 'DATE:'  COLOR W+/RB
	@ 15, 62 SAY F_DATE1 COLOR W+/RB

	STORE 0 TO CP, CR, JV1, PR, PS, SL, SS, SO, SD, SC
	SELECT DISTINCT VOU_NO FROM VOUCHERS WHERE DATE=F_DATE1 AND VOU_TYPE= ;
		'CP' INTO CURSOR V1
	SELECT V1
	COUNT TO CP
	SELECT DISTINCT VOU_NO FROM VOUCHERS WHERE DATE=F_DATE1 AND VOU_TYPE= ;
		'CR' INTO CURSOR V1
	SELECT V1
	COUNT TO CR
	SELECT DISTINCT VOU_NO FROM VOUCHERS WHERE DATE=F_DATE1 AND VOU_TYPE= ;
		'JV' INTO CURSOR V1
	SELECT V1
	COUNT TO JV1
	SELECT DISTINCT VOU_NO FROM VOUCHERS WHERE DATE=F_DATE1 AND VOU_TYPE= ;
		'PR' INTO CURSOR V1
	SELECT V1
	COUNT TO PR
	SELECT DISTINCT VOU_NO FROM VOUCHERS WHERE DATE=F_DATE1 AND VOU_TYPE= ;
		'PS' INTO CURSOR V1
	SELECT V1
	COUNT TO PS
	SELECT DISTINCT VOU_NO FROM VOUCHERS WHERE DATE=F_DATE1 AND VOU_TYPE= ;
		'SL' INTO CURSOR V1
	SELECT V1
	COUNT TO SL
	SELECT DISTINCT VOU_NO FROM VOUCHERS WHERE DATE=F_DATE1 AND VOU_TYPE= ;
		'SO' INTO CURSOR V1
	SELECT V1
	COUNT TO SO
	SELECT DISTINCT VOU_NO FROM VOUCHERS WHERE DATE=F_DATE1 AND VOU_TYPE= ;
		'SS' INTO CURSOR V1
	SELECT V1
	COUNT TO SS
	SELECT DISTINCT VOU_NO FROM VOUCHERS WHERE DATE=F_DATE1 AND VOU_TYPE= ;
		'SC' INTO CURSOR V1
	SELECT V1
	COUNT TO SC
	SELECT DISTINCT VOU_NO FROM VOUCHERS WHERE DATE=F_DATE1 AND VOU_TYPE= ;
		'SD' INTO CURSOR V1
	SELECT V1
	COUNT TO SD
	T = CP+CR+JV1+PR+PS+SL+SO+SS+SC+SD

	IF T>0
		SELECT VOU_NO
		APPEND BLANK
		REPLACE DATE WITH F_DATE1, CASH_P WITH CP, CASH_R WITH CR, JV WITH JV1,  ;
			PURC_C WITH PR, PURC_S WITH PS, LINT_S WITH SL, SEED_S WITH SS,  ;
			OIL_S WITH SO, OILCAKE_S WITH SC, OILDIRT_S WITH SD, TOTAL WITH T
	ENDIF
	F_DATE1 = F_DATE1+1
ENDDO