EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","ELTSPARTEMP" TO F.ELTSPARTEMP ELSE STOP
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP

PRINT "1ER JOUR DU MOIS (JJ/MM/AAAA)"
INPUT W_DEB
PRINT "DERNIER JOUR DU MOIS (JJ/MM/AAAA)"
INPUT W_FIN
PRINT "PERIODE A TRAITER (AAAAMM)"
INPUT W_MOIS

W_DEB=ICONV(W_DEB,"D4/")
W_FIN=ICONV(W_FIN,"D4/")

EXECUTE 'SSELECT CONTRAT AVEC 1 = "02" AND AVEC 65 # "O" AND AVEC 7 <= "':W_FIN:'" AND AVEC 8 >= "':W_DEB:'" OR = "" AND AVEC 29 # ""'

W_FIN=0
W_TOTAL=0
PRINTER ON
LOOP
	READNEXT CLE ELSE W_FIN=1
	UNTIL W_FIN=1 DO

	READ ENR_CONTRAT FROM F.CONTRAT,CLE ELSE ENR_CONTRAT=""
	READ ENR_ELTSPARTEMP FROM F.ELTSPARTEMP,ENR_CONTRAT<3> ELSE ENR_ELTSPARTEMP=""
	READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,CLE:W_MOIS ELSE ENR_DETAILCALCUL=""
	READ ENR_CIVILAIDE FROM F.CIVILAIDE,ENR_CONTRAT<3> ELSE ENR_CIVILAIDE=""

	IF ENR_ELTSPARTEMP<7>="0" THEN
		PRINT "PAS APPEL COTIS IRCEM POUR L'AIDE ":ENR_CONTRAT<3>:" ":ENR_CIVILAIDE<2>:" POUR LE CONTRAT N ":CLE:" POUR UN MONTANT DE ":ENR_DETAILCALCUL<7>/100
		W_TOTAL=W_TOTAL+ENR_DETAILCALCUL<7>/100		
	END

REPEAT

PRINT W_TOTAL
