EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", ABSENCESAIDANT TO F.ABSENCESAIDANT ELSE STOP
OPEN "", "CONTRAT" TO F.CONTRAT ELSE STOP
EXECUTE 'SELECT ABSENCESAIDANT AVEC 2 >= "13092" AND AVEC NumMotifAidant <= "06"'
W_NbModif = 0
W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_ABSENCESAIDANT FROM F.ABSENCESAIDANT, W_Cle THEN
		GOSUB 100
	END
REPEAT
PRINT W_NbModif:" absences modifies."
STOP
100
i = 0
LOOP
i = i + 1
WHILE ENR_ABSENCESAIDANT<17,i> # ""
	READ ENR_CONTRAT FROM F.CONTRAT, ENR_ABSENCESAIDANT<17,i> THEN 
		IF ENR_CONTRAT<7> < ENR_ABSENCESAIDANT<2> AND ENR_CONTRAT<8> # "" THEN
			PRINT W_Cle
			W_NbModif = W_NbModif + 1	
			DEL ENR_ABSENCESAIDANT<13,i>
			DEL ENR_ABSENCESAIDANT<14,i>
			DEL ENR_ABSENCESAIDANT<15,i>
			DEL ENR_ABSENCESAIDANT<16,i>
			DEL ENR_ABSENCESAIDANT<17,i>
			* + IJSS en att. 20, sinon dcalage !
			DEL ENR_ABSENCESAIDANT<20,i>
			WRITE ENR_ABSENCESAIDANT ON F.ABSENCESAIDANT, W_Cle
		END
	END
REPEAT
RETURN
