EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","PERIODESPAIE" TO F.PERIODESPAIE ELSE STOP
READ ENR_PERIODESPAIE FROM F.PERIODESPAIE, "1" THEN
	W_Per = ENR_PERIODESPAIE<1>
END ELSE
	PRINT "Periode (AAAAMM) ?"
	INPUT W_Per
END
W_Date = "01/":W_Per[5,2]:"/":W_Per[1,4]
EXECUTE 'SELECT CONTRAT AVEC 1 # "02" AND AVEC 65 # "O" AND AVEC 8 >= "':W_Date:'" OR = ""'
W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
READ ENR_CONTRAT FROM F.CONTRAT, W_Cle THEN
 IF ENR_CONTRAT<70> = "" THEN
	ENR_CONTRAT<70> = 0
 END
 IF ENR_CONTRAT<70> > 0 THEN
	W_Count = DCOUNT(ENR_CONTRAT<14>, CHAR(253))
	ENR_CONTRAT<21,W_Count> = ENR_CONTRAT<21,W_Count> + INT(ENR_CONTRAT<70>/100)
	* Nb : si dcimales, on laisse les dcimales en jrs susp
	ENR_CONTRAT<70> = ENR_CONTRAT<70> - (INT(ENR_CONTRAT<70>/100) * 100)
	WRITE ENR_CONTRAT ON F.CONTRAT, W_Cle
 END	
END
REPEAT 
STOP
