PRINT "ANNEE A TRAITER (AAAA):"
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
INPUT ANNEE

EXECUTE 'SELECT STATACTAIDE AVEC TypeActiviteAct = "P" AND AVEC PeriodeAct = "':ANNEE:']" PAR CodeAide'

W_FIN=0
W_NBAIDE=0
W_ANCAIDE=""
LOOP
	READNEXT CLE ELSE W_FIN=1
	UNTIL W_FIN=1 DO

	IF CLE[1,5]#W_ANCAIDE THEN
		W_ANCAIDE=CLE[1,5]
		W_NBAIDE=W_NBAIDE+1
	END	
REPEAT

PRINT "NB AIDE PREST =":W_NBAIDE
