EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "AIDANTSECTEURANAL" TO F.AIDANTSECTEURANAL ELSE STOP
EXECUTE 'SELECT CONTRAT AVEC 6 = "A" AND AVEC 65 # "O" AND AVEC 8 >= "':ICONV("01/10/2007","D4/"):'" 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
READ ENR_AIDANTSECT FROM F.AIDANTSECTEURANAL, W_Cle THEN
	i = 0
	LOOP
	i = i + 1
	WHILE ENR_CONTRAT<36,i> # ""
		IF INDEX(ENR_AIDANTSECT<1>,ENR_CONTRAT<36,i>,1) = 0 THEN
			PRINT "Contrat ":W_Cle:" : Pas d'activit ":ENR_CONTRAT<36,i>:" parametree."
		END		
	REPEAT
END ELSE
	PRINT "Pas d'aidantsecteuranal pour contrat : ":W_Cle
END
END
REPEAT
