EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ABSENCESAIDANT" TO F.ABSENCESAIDANT ELSE STOP

EXECUTE 'SSELECT ABSENCESAIDANT AVEC DebAbsAidant >= "[12328" AND AVEC NumMotifAidant <= "06"'

W_FIN=0

LOOP
	READNEXT CLE ELSE W_FIN=1
	UNTIL W_FIN=1 DO

	READ ENR_ABSENCESAIDANT FROM F.ABSENCESAIDANT,CLE ELSE ENR_ABSENCESAIDANT=""

	I=1
	LOOP 
		UNTIL ENR_ABSENCESAIDANT<14,I>="" DO
		ENR_ABSENCESAIDANT<14,I>=INT((ENR_ABSENCESAIDANT<14,I>/6.55957)+1/2)
		ENR_ABSENCESAIDANT<20,I>=INT((ENR_ABSENCESAIDANT<20,I>/6.55957)+1/2)
		I=I+1
	REPEAT
	WRITE ENR_ABSENCESAIDANT TO F.ABSENCESAIDANT,CLE

REPEAT

STOP
